MCStxStWriter.st
author Jan Vrany <jan.vrany@labware.com>
Thu, 23 Mar 2023 17:21:35 +0000
branchjv
changeset 1166 e9b369305a8d
parent 744 0caa54044783
permissions -rw-r--r--
Transform snapshot just before loading into / just after creating from ...Smalltalk/X. When loading, this commit delays use of snapshot transformations till the very last point just before loading. When creating snapshot from code in image, snapshot is transformed very early on. This sort of makes sense and helps when one wants to load code into RING2 model or similar. In this case, transformation is unwanted.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1166
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
     1
"
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
     2
COPYRIGHT (c) 2023 LabWare
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
     3
"
739
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
"{ Package: 'stx:goodies/monticello' }"
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
1166
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
     6
"{ NameSpace: Smalltalk }"
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
     7
739
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
MCStWriter subclass:#MCStxStWriter
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
	instanceVariableNames:''
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
	classVariableNames:''
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
	poolDictionaries:''
744
0caa54044783 option to save st/x extra stuff in the mcz
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
    12
	category:'SCM-Monticello-St/X Storing'
739
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
!
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
1166
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    15
!MCStxStWriter class methodsFor:'documentation'!
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    16
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    17
copyright
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    18
"
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    19
COPYRIGHT (c) 2023 LabWare
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    20
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    21
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    22
"
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    23
! !
739
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
!MCStxStWriter class methodsFor:'documentation'!
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
version
744
0caa54044783 option to save st/x extra stuff in the mcz
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
    28
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStxStWriter.st,v 1.2 2013-03-21 17:25:31 cg Exp $'
739
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
!
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
version_CVS
744
0caa54044783 option to save st/x extra stuff in the mcz
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
    32
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStxStWriter.st,v 1.2 2013-03-21 17:25:31 cg Exp $'
1166
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    33
!
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    34
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    35
version_HG
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    36
e9b369305a8d Transform snapshot just before loading into / just after creating from
Jan Vrany <jan.vrany@labware.com>
parents: 744
diff changeset
    37
    ^ '$Changeset: <not expanded> $'
739
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
! !
cdeff10cc670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39