--- a/OrderedCollectionInspectorView.st Mon Mar 29 16:52:58 1999 +0200
+++ b/OrderedCollectionInspectorView.st Mon Mar 29 17:11:21 1999 +0200
@@ -88,15 +88,15 @@
('inspect' doInspect )
('basicInspect' doBasicInspect )
('inspect hierarchical' doNewInspect )
- ('-' nil )
+ ('-')
('ref chains' showReferences )
- ('-' nil )
+ ('-')
('browse' browse )
('browse class hierarchy' browseClassHierarchy )
('browse full class protocol' browseFullClassProtocol)
- ('-' nil )
+ ('-')
('remove' removeIndex )
- ('-' nil )
+ ('-')
('show more' showMore )
).
] ifFalse:[
@@ -104,21 +104,21 @@
('inspect' doInspect )
('basicInspect' doBasicInspect )
('inspect hierarchical' doNewInspect )
- ('-' nil )
+ ('-')
('ref chains' showReferences )
- ('-' nil )
+ ('-')
('browse' browse )
('browse class hierarchy' browseClassHierarchy )
('browse full class protocol' browseFullClassProtocol)
- ('-' nil )
- ('remove' removeIndex )
+ ('-')
+ ('remove' removeIndex )
).
].
monitorProcess isNil ifTrue:[
- items := items , #( ('-' nil) ('start monitor' doStartMonitor)).
+ items := items , #( ('-') ('start monitor' doStartMonitor)).
] ifFalse:[
- items := items , #( ('-' nil) ('stop monitor' doStopMonitor)).
+ items := items , #( ('-') ('stop monitor' doStopMonitor)).
].
m := PopUpMenu
@@ -201,5 +201,5 @@
!OrderedCollectionInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.23 1998-07-23 21:33:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.24 1999-03-29 15:10:59 cg Exp $'
! !