equal
deleted
inserted
replaced
94 cls := anInstance class. |
94 cls := anInstance class. |
95 |
95 |
96 cls == Character ifTrue:[ ^ false ]. |
96 cls == Character ifTrue:[ ^ false ]. |
97 cls == Symbol ifTrue:[ ^ false ]. |
97 cls == Symbol ifTrue:[ ^ false ]. |
98 cls == String ifTrue:[ ^ false ]. |
98 cls == String ifTrue:[ ^ false ]. |
|
99 cls == Float ifTrue:[ ^ false ]. |
|
100 cls == ShortFloat ifTrue:[ ^ false ]. |
99 |
101 |
100 cls allInstVarNames notEmpty ifTrue:[ |
102 cls allInstVarNames notEmpty ifTrue:[ |
101 ^ true |
103 ^ true |
102 ]. |
104 ]. |
103 |
105 |
105 ^ true |
107 ^ true |
106 ]. |
108 ]. |
107 ]. |
109 ]. |
108 ^ false |
110 ^ false |
109 |
111 |
110 |
112 "Modified: / 4.2.1999 / 20:00:11 / cg" |
111 ! |
113 ! |
112 |
114 |
113 isTraceable:anInstance |
115 isTraceable:anInstance |
114 "returns true if the instance could be traced or traped |
116 "returns true if the instance could be traced or traped |
115 " |
117 " |
186 instanceTypes removeFromIndex:start toIndex:stop. |
188 instanceTypes removeFromIndex:start toIndex:stop. |
187 instanceNames removeFromIndex:start toIndex:stop. |
189 instanceNames removeFromIndex:start toIndex:stop. |
188 ]. |
190 ]. |
189 self resizeTo:size. |
191 self resizeTo:size. |
190 ] |
192 ] |
|
193 |
|
194 "Modified: / 4.2.1999 / 20:00:38 / cg" |
191 ! ! |
195 ! ! |
192 |
196 |
193 !InspectorList methodsFor:'accessing contents'! |
197 !InspectorList methodsFor:'accessing contents'! |
194 |
198 |
195 inspectedObject |
199 inspectedObject |