equal
deleted
inserted
replaced
1 "{ Package: 'stx:libtool2' }" |
1 "{ Package: 'stx:libtool2' }" |
2 |
2 |
3 Object subclass:#SnapShotImage |
3 Object subclass:#SnapShotImage |
4 instanceVariableNames:'memory globals' |
4 instanceVariableNames:'memory globals cachedBehaviors' |
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'System-Support' |
7 category:'System-Support' |
8 ! |
8 ! |
9 |
9 |
69 ! ! |
69 ! ! |
70 |
70 |
71 !SnapShotImage methodsFor:'smalltalk protocol'! |
71 !SnapShotImage methodsFor:'smalltalk protocol'! |
72 |
72 |
73 allClassesDo:aBlock |
73 allClassesDo:aBlock |
74 self keysAndValuesDo:[:key :valRef | |
74 cachedBehaviors isNil ifTrue:[ |
75 valRef isInteger ifFalse:[ |
75 cachedBehaviors := OrderedCollection new. |
76 valRef ~~ true ifTrue:[ |
76 |
77 valRef ~~ false ifTrue:[ |
77 self keysAndValuesDo:[:key :valRef | |
78 valRef notNil ifTrue:[ |
78 valRef isInteger ifFalse:[ |
79 valRef isImageBehavior ifTrue:[ |
79 valRef ~~ true ifTrue:[ |
80 aBlock value:valRef |
80 valRef ~~ false ifTrue:[ |
|
81 valRef notNil ifTrue:[ |
|
82 valRef isImageBehavior ifTrue:[ |
|
83 cachedBehaviors add:valRef |
|
84 ] |
81 ] |
85 ] |
82 ] |
86 ] |
83 ] |
87 ] |
84 ] |
88 ] |
85 ] |
89 ]. |
86 ]. |
90 ]. |
|
91 cachedBehaviors do:aBlock |
87 ! |
92 ! |
88 |
93 |
89 allClassesInCategory:aCategory |
94 allClassesInCategory:aCategory |
90 |coll| |
95 |coll| |
91 |
96 |