SnapShotImageMemory.st
changeset 1448 42ec8770d09f
parent 1440 f3eda2f72399
child 1469 b726d8a4b801
equal deleted inserted replaced
1447:bf034d910b27 1448:42ec8770d09f
    20 	classVariableNames:''
    20 	classVariableNames:''
    21 	poolDictionaries:''
    21 	poolDictionaries:''
    22 	privateIn:SnapShotImageMemory
    22 	privateIn:SnapShotImageMemory
    23 !
    23 !
    24 
    24 
       
    25 SnapShotImageMemory::ImageHeader variableByteSubclass:#ImageByteObject
       
    26 	instanceVariableNames:''
       
    27 	classVariableNames:''
       
    28 	poolDictionaries:''
       
    29 	privateIn:SnapShotImageMemory
       
    30 !
       
    31 
    25 SnapShotImageMemory::ImageObject variableSubclass:#ImageClassObject
    32 SnapShotImageMemory::ImageObject variableSubclass:#ImageClassObject
    26 	instanceVariableNames:''
    33 	instanceVariableNames:''
    27 	classVariableNames:''
    34 	classVariableNames:''
    28 	poolDictionaries:''
    35 	poolDictionaries:''
    29 	privateIn:SnapShotImageMemory
    36 	privateIn:SnapShotImageMemory
    34 	classVariableNames:''
    41 	classVariableNames:''
    35 	poolDictionaries:''
    42 	poolDictionaries:''
    36 	privateIn:SnapShotImageMemory
    43 	privateIn:SnapShotImageMemory
    37 !
    44 !
    38 
    45 
    39 SnapShotImageMemory::ImageHeader variableByteSubclass:#ImageByteObject
    46 !SnapShotImageMemory class methodsFor:'documentation'!
    40 	instanceVariableNames:''
    47 
    41 	classVariableNames:''
    48 documentation
    42 	poolDictionaries:''
    49 "
    43 	privateIn:SnapShotImageMemory
    50     I represent the memory as contained in a snapshot image.
    44 !
    51 
    45 
    52     I am not used directly; instead, via the SystemBrowsers entry:
       
    53         SystemBrowser openOnSnapShotImage:'/export/home/cg/work/stx/projects/smalltalk/st.img'
       
    54 
       
    55     [author:]
       
    56         Claus Gittinger
       
    57 
       
    58 "
       
    59 ! !
    46 
    60 
    47 !SnapShotImageMemory class methodsFor:'instance creation'!
    61 !SnapShotImageMemory class methodsFor:'instance creation'!
    48 
    62 
    49 for:aFilename
    63 for:aFilename
    50     ^ self new for:aFilename
    64     ^ self new for:aFilename
  1308         ^ self
  1322         ^ self
  1309     ].
  1323     ].
  1310     self halt.
  1324     self halt.
  1311 ! !
  1325 ! !
  1312 
  1326 
       
  1327 !SnapShotImageMemory::ImageByteObject methodsFor:'queries'!
       
  1328 
       
  1329 size
       
  1330     ^ byteSize
       
  1331 ! !
       
  1332 
  1313 !SnapShotImageMemory::ImageClassObject methodsFor:'accessing - slots'!
  1333 !SnapShotImageMemory::ImageClassObject methodsFor:'accessing - slots'!
  1314 
  1334 
  1315 category
  1335 category
  1316     |categoryRef category|
  1336     |categoryRef category|
  1317 
  1337 
  3841     "set the value of the instance variable 'start' (automatically generated)"
  3861     "set the value of the instance variable 'start' (automatically generated)"
  3842 
  3862 
  3843     start := something.
  3863     start := something.
  3844 ! !
  3864 ! !
  3845 
  3865 
  3846 !SnapShotImageMemory::ImageByteObject methodsFor:'queries'!
       
  3847 
       
  3848 size
       
  3849     ^ byteSize
       
  3850 ! !
       
  3851 
       
  3852 !SnapShotImageMemory class methodsFor:'documentation'!
  3866 !SnapShotImageMemory class methodsFor:'documentation'!
  3853 
  3867 
  3854 version
  3868 version
  3855     ^ '$Header$'
  3869     ^ '$Header$'
  3856 ! !
  3870 ! !