# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1038307588 -3600
# Node ID 7dbc212d0cd2daf2b188e92e01ac144479ff9bac
# Parent  a8553b7a090ef7ab04d2db1fc6f0e2626166f14a
kludge to show Float bytes

diff -r a8553b7a090e -r 7dbc212d0cd2 InspectorView.st
--- a/InspectorView.st	Tue Nov 26 10:13:10 2002 +0100
+++ b/InspectorView.st	Tue Nov 26 11:46:28 2002 +0100
@@ -1085,6 +1085,10 @@
 !
 
 indexedValueAtKey:key
+    "/ kludge
+    inspectedObject isLimitedPrecisionReal ifTrue:[
+        ^ inspectedObject basicAt:key
+    ].
     ^ inspectedObject at:key
 !
 
@@ -1686,5 +1690,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.137 2002-11-18 10:12:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.138 2002-11-26 10:46:28 cg Exp $'
 ! !