--- a/OrderedCollectionInspectorView.st	Tue Aug 24 17:41:20 2010 +0200
+++ b/OrderedCollectionInspectorView.st	Tue Aug 24 17:58:43 2010 +0200
@@ -96,17 +96,7 @@
     ] ifFalse:[
         items := items , #( ('-') ('Stop monitor' doStopMonitor)).
     ].
-    showHex ifTrue:[
-        items := items , #(
-                        ('-')
-                        ('Decimal Integers'  #toggleHex               )
-                          )
-    ] ifFalse:[
-        items := items , #(
-                        ('-')
-                        ('Hex Integers'      #toggleHex               )
-                          )
-    ].
+    items := items , (self numberBaseItems).
 
     m := PopUpMenu
           itemList:items
@@ -124,7 +114,7 @@
 
     ^ m
 
-    "Modified: / 21.5.1998 / 13:32:09 / cg"
+    "Modified: / 24-08-2010 / 17:27:44 / cg"
 ! !
 
 !OrderedCollectionInspectorView methodsFor:'private'!
@@ -199,9 +189,9 @@
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.41 2010-02-01 14:58:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.42 2010-08-24 15:58:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.41 2010-02-01 14:58:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.42 2010-08-24 15:58:43 cg Exp $'
 ! !