--- a/Launcher.st Tue Feb 23 23:23:23 1999 +0100
+++ b/Launcher.st Wed Feb 24 11:45:45 1999 +0100
@@ -271,8 +271,10 @@
startJavaBrowser
"open a javaBrowser (not included in the standard distribution)"
- JavaBrowser notNil ifTrue:[
- self withWaitCursorDo:[JavaBrowser open]
+ |jb|
+
+ (jb := Smalltalk at:#JavaBrowser) notNil ifTrue:[
+ self withWaitCursorDo:[jb open]
]
"Created: 18.4.1996 / 15:55:44 / cg"
@@ -803,62 +805,62 @@
setupClassesMenu
<resource: #programMenu >
- |m labels selectors|
+ |m labels selectors jb|
"setup the classes- pulldown menu"
labels := #(
- 'system browser'
- 'class browser ...'
- 'full class browser ...'
- 'class hierarchy browser ...'
- 'class tree'
- '-'
- 'implementors ...'
- 'senders ...'
- 'special'
- '-'
- 'change browser'
- ).
+ '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
- ).
+ #startSystemBrowser
+ #startClassBrowser
+ #startFullClassBrowser
+ #startClassHierarchyBrowser
+ #startClassTreeView
+ nil
+ #browseImplementors
+ #browseSenders
+ #special
+ nil
+ #startChangesBrowser
+ ).
myMenu at:#classes
- putLabels:(resources array:labels)
- selectors:selectors
- receiver:self.
+ putLabels:(resources array:labels)
+ selectors:selectors
+ receiver:self.
m := myMenu menuAt:#classes.
m subMenuAt:#special
put:(PopUpMenu
- itemList: #(
- ('references to undeclared' #browseUndeclared )
- ('resource methods ...' #browseResources )
- ('show break/trace points' #browseAllBreakAndTracePoints )
- ('-' )
- ('remove all break/trace points' #removeAllBreakAndTracePoints )
- )
- resources:resources
- ).
+ itemList: #(
+ ('references to undeclared' #browseUndeclared )
+ ('resource methods ...' #browseResources )
+ ('show break/trace points' #browseAllBreakAndTracePoints )
+ ('-' )
+ ('remove all break/trace points' #removeAllBreakAndTracePoints )
+ )
+ resources:resources
+ ).
- (JavaBrowser notNil
- and:[JavaBrowser isLoaded]) ifTrue:[
- (myMenu subMenuAt:#classes)
- addLabels:(resources array:#('-' 'java browser'))
- selectors:#(nil startJavaBrowser)
- after:#startClassTreeView
+ ((jb := Smalltalk at:#JavaBrowser) notNil
+ and:[jb isLoaded]) ifTrue:[
+ (myMenu subMenuAt:#classes)
+ addLabels:(resources array:#('-' 'java browser'))
+ selectors:#(nil startJavaBrowser)
+ after:#startClassTreeView
].
"Created: / 8.1.1997 / 14:05:44 / cg"
@@ -1713,5 +1715,5 @@
!Launcher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.401 1999-02-11 12:45:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.402 1999-02-24 10:45:45 cg Exp $'
! !