--- a/extensions.st	Mon Jul 17 12:30:54 2017 +0200
+++ b/extensions.st	Tue Jul 18 14:34:33 2017 +0200
@@ -1523,6 +1523,20 @@
 inspectorExtraAttributes
     "extra (pseudo instvar) entries to be shown in an inspector."
 
+    |basePrinter|
+
+    basePrinter := 
+        [:base :padding |
+            String 
+                streamContents:[:s |
+                    self byteSize to:1 by:-1 do:[:i |
+                        (((self basicAt:i) printStringRadix:base) paddedTo:padding with:$0)
+                            printOn:s.
+                        s space.    
+                    ]
+                ]
+        ] .
+        
     ^ super inspectorExtraAttributes
         add:'-scientific (%e-format)' ->
             [
@@ -1542,29 +1556,23 @@
             ];
         add:'-binary' ->
             [
-                String
-                    streamContents:[:s |
-                        self byteSize to:1 by:-1 do:[:i |
-                            (((self basicAt:i) printStringRadix:2) paddedTo:8 with:$0)
-                                printOn:s.
-                            s space.    
-                        ]
-                    ]
+                basePrinter value:2 value:8
             ];
         add:'-hex' ->
             [
-                String
-                    streamContents:[:s |
-                        self byteSize to:1 by:-1 do:[:i |
-                            (((self basicAt:i) printStringRadix:16) paddedTo:2 with:$0)
-                                printOn:s
-                        ]
-                    ]
+                basePrinter value:16 value:2
             ];
         yourself
 
+    "
+     1.0 inspect
+     1.0 asShortFloat inspect
+     1.0 asLongFloat inspect
+     1.0 asQDouble inspect
+    "
+
     "Created: / 20-03-2012 / 22:34:46 / cg"
-    "Modified: / 20-06-2017 / 11:54:32 / cg"
+    "Modified (comment): / 18-07-2017 / 14:33:31 / cg"
 ! !
 
 !MenuView methodsFor:'accessing-behavior'!