equal
deleted
inserted
replaced
20 SystemBrowser openOnSnapShotImage:'/export/home/cg/work/stx/projects/smalltalk/st.img' |
20 SystemBrowser openOnSnapShotImage:'/export/home/cg/work/stx/projects/smalltalk/st.img' |
21 |
21 |
22 [author:] |
22 [author:] |
23 Claus Gittinger |
23 Claus Gittinger |
24 " |
24 " |
|
25 ! |
|
26 |
|
27 examples |
|
28 " |
|
29 |i m| |
|
30 |
|
31 i := self for:'st.img'. |
|
32 m := i memory. |
|
33 m fetchObjectAt:16r38000000 |
|
34 " |
25 ! ! |
35 ! ! |
26 |
36 |
27 !SnapShotImage class methodsFor:'instance creation'! |
37 !SnapShotImage class methodsFor:'instance creation'! |
28 |
38 |
29 for:aFilename |
39 for:aFilename |
30 ^ self new for:aFilename |
40 ^ self new for:aFilename |
|
41 ! ! |
|
42 |
|
43 !SnapShotImage methodsFor:'accessing'! |
|
44 |
|
45 memory |
|
46 ^ memory |
31 ! ! |
47 ! ! |
32 |
48 |
33 !SnapShotImage methodsFor:'private'! |
49 !SnapShotImage methodsFor:'private'! |
34 |
50 |
35 fetchGlobals |
51 fetchGlobals |