--- a/Launcher.st Sat Jul 25 12:05:54 1998 +0200
+++ b/Launcher.st Sat Jul 25 12:14:16 1998 +0200
@@ -1878,56 +1878,54 @@
setupClassesMenu
<resource: #programMenu >
- |m|
+ |m labels selectors|
"setup the classes- pulldown menu"
+ labels := #(
+ 'system browser'
+ 'class browser ...'
+ 'full class browser ...'
+ 'class hierarchy browser ...'
+ 'class tree'
+ '-'
+ 'implementors ...'
+ 'senders ...'
+ 'special'
+ '-'
+ 'change browser'
+ ).
+
+ selectors := #(
+ #startSystemBrowser
+ #startClassBrowser
+ #startFullClassBrowser
+ #startClassHierarchyBrowser
+ #startClassTreeView
+ nil
+ #browseImplementors
+ #browseSenders
+ #special
+ nil
+ #startChangesBrowser
+ ).
+
myMenu at:#classes
- putLabels:(resources array:#(
- 'system browser'
- 'class browser ...'
- 'full class browser ...'
- 'class hierarchy browser ...'
- 'class tree'
- '-'
- 'implementors ...'
- 'senders ...'
- 'special'
- '-'
- 'change browser'
- ))
- selectors:#(
- #startSystemBrowser
- #startClassBrowser
- #startFullClassBrowser
- #startClassHierarchyBrowser
- #startClassTreeView
- nil
- #browseImplementors
- #browseSenders
- #special
- nil
- #startChangesBrowser
- )
+ putLabels:(resources array:labels)
+ selectors:selectors
receiver:self.
m := myMenu menuAt:#classes.
m subMenuAt:#special
put:(PopUpMenu
- labels:(resources array:#(
- 'references to undeclared'
- 'resource methods ...'
- 'show break/trace points'
- '-'
- 'remove all break/trace points'
- ))
- selectors:#(
- #browseUndeclared
- #browseResources
- #browseAllBreakAndTracePoints
- nil
- #removeAllBreakAndTracePoints
- )
+ itemList: #(
+ ('references to undeclared' #browseUndeclared )
+ ('resource methods ...' #browseResources )
+ ('show break/trace points' #browseAllBreakAndTracePoints )
+ ('-' )
+ ('remove all break/trace points' #removeAllBreakAndTracePoints )
+ )
+ resources:resources
).
(JavaBrowser notNil
@@ -5457,5 +5455,5 @@
!Launcher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.356 1998-07-25 10:05:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.357 1998-07-25 10:14:16 cg Exp $'
! !