# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 919853145 -3600
# Node ID 3024d3fc27b801779b7cef019db30347f5bc6ecc
# Parent  5ea9d1631a14c9b69ef36dc9c42b2756e8099747
checkin from browser

diff -r 5ea9d1631a14 -r 3024d3fc27b8 Launcher.st
--- 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 $'
 ! !