--- 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 $'
! !