--- a/OrderedCollectionInspectorView.st Fri Jun 13 20:36:41 2003 +0200
+++ b/OrderedCollectionInspectorView.st Mon Jun 16 11:24:47 2003 +0200
@@ -69,36 +69,24 @@
|items m|
- hasMore ifTrue:[
- items := #(
- ('Inspect' doInspect )
- ('BasicInspect' doBasicInspect )
- ('Inspect hierarchical' doNewInspect )
- ('-')
- ('Ref chains' showReferences )
- ('-')
- ('Browse' browse )
+ items := #(
+ ('Inspect' doInspect )
+ ('BasicInspect' doBasicInspect )
+ ('Inspect hierarchical' doNewInspect )
+ ('-')
+ ('Ref chains' showReferences )
+ ('-')
+ ('Browse' browse )
"/ ('Browse class hierarchy' browseClassHierarchy )
"/ ('Browse full class protocol' browseFullClassProtocol)
- ('-')
- ('Remove' removeIndex )
+ ('-')
+ ('Remove' removeIndex )
+ ).
+ (hasMore) ifTrue:[
+ items := items , #(
('-')
('Show more' showMore )
).
- ] ifFalse:[
- items := #(
- ('Inspect' doInspect )
- ('BasicInspect' doBasicInspect )
- ('Inspect hierarchical' doNewInspect )
- ('-')
- ('Ref chains' showReferences )
- ('-')
- ('Browse' browse )
-"/ ('Browse class hierarchy' browseClassHierarchy )
-"/ ('Browse full class protocol' browseFullClassProtocol)
- ('-')
- ('Remove' removeIndex )
- ).
].
monitorProcess isNil ifTrue:[
@@ -106,6 +94,17 @@
] ifFalse:[
items := items , #( ('-') ('Stop monitor' doStopMonitor)).
].
+ showHex ifTrue:[
+ items := items , #(
+ ('-')
+ ('Decimal Integers' #toggleHex )
+ )
+ ] ifFalse:[
+ items := items , #(
+ ('-')
+ ('Hex Integers' #toggleHex )
+ )
+ ].
m := PopUpMenu
itemList:items
@@ -169,5 +168,5 @@
!OrderedCollectionInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.33 2002-10-29 12:49:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.34 2003-06-16 09:24:47 cg Exp $'
! !