checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 04 Feb 1999 20:00:55 +0100
changeset 1022 afd2ac9d1b55
parent 1021 8c1deb0281c7
child 1023 b804e9608a61
checkin from browser
InspectorList.st
NewInspectorList.st
--- a/InspectorList.st	Thu Feb 04 15:40:52 1999 +0100
+++ b/InspectorList.st	Thu Feb 04 20:00:55 1999 +0100
@@ -96,6 +96,8 @@
         cls == Character  ifTrue:[ ^ false ].
         cls == Symbol     ifTrue:[ ^ false ].
         cls == String     ifTrue:[ ^ false ].
+        cls == Float      ifTrue:[ ^ false ].
+        cls == ShortFloat ifTrue:[ ^ false ].
 
         cls allInstVarNames notEmpty ifTrue:[
             ^ true
@@ -107,7 +109,7 @@
     ].
     ^ false
 
-
+    "Modified: / 4.2.1999 / 20:00:11 / cg"
 !
 
 isTraceable:anInstance
@@ -188,6 +190,8 @@
         ].
         self resizeTo:size.
     ]
+
+    "Modified: / 4.2.1999 / 20:00:38 / cg"
 ! !
 
 !InspectorList methodsFor:'accessing contents'!
--- a/NewInspectorList.st	Thu Feb 04 15:40:52 1999 +0100
+++ b/NewInspectorList.st	Thu Feb 04 20:00:55 1999 +0100
@@ -96,6 +96,8 @@
         cls == Character  ifTrue:[ ^ false ].
         cls == Symbol     ifTrue:[ ^ false ].
         cls == String     ifTrue:[ ^ false ].
+        cls == Float      ifTrue:[ ^ false ].
+        cls == ShortFloat ifTrue:[ ^ false ].
 
         cls allInstVarNames notEmpty ifTrue:[
             ^ true
@@ -107,7 +109,7 @@
     ].
     ^ false
 
-
+    "Modified: / 4.2.1999 / 20:00:11 / cg"
 !
 
 isTraceable:anInstance
@@ -188,6 +190,8 @@
         ].
         self resizeTo:size.
     ]
+
+    "Modified: / 4.2.1999 / 20:00:38 / cg"
 ! !
 
 !InspectorList methodsFor:'accessing contents'!