InspectorList.st
changeset 1022 afd2ac9d1b55
parent 810 032e13b1bfda
equal deleted inserted replaced
1021:8c1deb0281c7 1022:afd2ac9d1b55
    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