--- 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'!