Launcher.st
changeset 827 c74f542ba50b
parent 821 a81a0fb108d0
child 833 f4d9acc94617
--- a/Launcher.st	Fri Nov 01 17:23:10 1996 +0100
+++ b/Launcher.st	Fri Nov 01 17:26:35 1996 +0100
@@ -535,7 +535,12 @@
                                     labels:#('inspect' 'browse')
                                     selectors:#(inspect browse).
                         menu actionAt:#inspect put:[ method inspect ].
-                        menu actionAt:#browse put:[ SystemBrowser openInClass:(method who at:1) selector:(method who at:2) ].
+                        menu actionAt:#browse put:[ |who|
+                                                    who := method who.
+                                                    SystemBrowser 
+                                                        openInClass:(who methodClass) 
+                                                        selector:(who methodSelector) 
+                                                  ].
                         listView1 middleButtonMenu:menu.
 
                         nm := (method whoString) asText emphasizeAllWith:(#color->Color blue).
@@ -715,7 +720,7 @@
     box destroy.
 
     "Modified: 17.9.1995 / 16:47:50 / claus"
-    "Modified: 31.10.1996 / 14:02:11 / cg"
+    "Modified: 1.11.1996 / 16:36:14 / cg"
 !
 
 snapshot
@@ -3715,5 +3720,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.207 1996-10-31 14:22:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.208 1996-11-01 16:26:35 cg Exp $'
 ! !