# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 918154855 -3600
# Node ID afd2ac9d1b5509657f6baa25d42b7cce511632ae
# Parent  8c1deb0281c734c8873a13586ef26da286454448
checkin from browser

diff -r 8c1deb0281c7 -r afd2ac9d1b55 InspectorList.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'!
diff -r 8c1deb0281c7 -r afd2ac9d1b55 NewInspectorList.st
--- 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'!