--- a/OrderedCollectionInspectorView.st Thu May 21 13:27:04 1998 +0200
+++ b/OrderedCollectionInspectorView.st Thu May 21 13:32:17 1998 +0200
@@ -81,74 +81,47 @@
<resource: #programMenu>
- |labels selectors m|
+ |items m|
hasMore ifTrue:[
- labels := #(
- 'inspect'
- 'basicInspect'
- '-'
- 'browse'
- 'browse class hierarchy'
- 'browse full class protocol'
- '-'
- 'remove'
- '-'
- 'show more'
+ items := #(
+ ('inspect' doInspect )
+ ('basicInspect' doBasicInspect )
+ ('inspect hierarchical' doNewInspect )
+ ('-' nil )
+ ('browse' browse )
+ ('browse class hierarchy' browseClassHierarchy )
+ ('browse full class protocol' browseFullClassProtocol)
+ ('-' nil )
+ ('remove' removeIndex )
+ ('-' nil )
+ ('show more' showMore )
).
-
- selectors := #(
- doInspect
- doBasicInspect
- nil
- browse
- browseClassHierarchy
- browseFullClassProtocol
- nil
- removeIndex
- nil
- showMore
- ).
] ifFalse:[
- labels := #(
- 'inspect'
- 'basicInspect'
- '-'
- 'browse'
- 'browse class hierarchy'
- 'browse full class protocol'
- '-'
- 'remove'
-"/ '-'
-"/ 'owners'
+ items := #(
+ ('inspect' doInspect )
+ ('basicInspect' doBasicInspect )
+ ('inspect hierarchical' doNewInspect )
+ ('-' nil )
+ ('browse' browse )
+ ('browse class hierarchy' browseClassHierarchy )
+ ('browse full class protocol' browseFullClassProtocol)
+ ('-' nil )
+ ('remove' inspectOwners )
+"/ ('-' )
+"/ ('owners' )
).
-
- selectors := #(
- doInspect
- doBasicInspect
- nil
- browse
- browseClassHierarchy
- browseFullClassProtocol
- nil
- removeIndex
-"/ nil
-"/ inspectOwners
- ).
-
].
monitorProcess isNil ifTrue:[
- labels := labels , #('-' 'start monitor').
- selectors := selectors , #(nil #doStartMonitor).
+ items := items , #( ('-' nil) ('start monitor' doStartMonitor)).
] ifFalse:[
- labels := labels , #('-' 'stop monitor').
- selectors := selectors , #(nil #doStopMonitor).
+ items := items , #( ('-' nil) ('stop monitor' doStopMonitor)).
].
m := PopUpMenu
- labels:(resources array:labels)
- selectors:selectors.
+ itemList:items
+ resources:resources.
selectedLine isNil ifTrue:[
m disableAll:#(doInspect doBasicInspect
@@ -162,7 +135,7 @@
^ m
- "Modified: 3.7.1997 / 13:54:15 / cg"
+ "Modified: / 21.5.1998 / 13:32:09 / cg"
! !
!OrderedCollectionInspectorView methodsFor:'user interaction'!
@@ -226,5 +199,5 @@
!OrderedCollectionInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.19 1997-07-03 12:29:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.20 1998-05-21 11:32:17 cg Exp $'
! !