--- a/Launcher.st Sun Nov 02 18:37:29 1997 +0100
+++ b/Launcher.st Sun Nov 02 18:41:50 1997 +0100
@@ -350,6 +350,16 @@
"Modified: 8.1.1997 / 14:41:38 / cg"
!
+startLauncherHelp
+ "open an HTML browser on the 'launcher-help' document"
+
+ self showDocumentation:'help/launcher/launcher.html'
+
+ "Modified: / 31.8.1995 / 13:11:28 / claus"
+ "Modified: / 8.1.1997 / 14:41:23 / cg"
+ "Created: / 31.10.1997 / 15:59:28 / cg"
+!
+
startWhatsNewDocumentation
"open an HTML browser on the 'whatsNew.html' document"
@@ -377,21 +387,37 @@
!Launcher methodsFor:'actions - classes'!
+browseAllBreakAndTracePoints
+ "open a browser showing all breakPointed/traced methods
+ (but, to get rid of them, there is also a menu itme to remove them all)"
+
+ |methods|
+
+ methods := WrappedMethod allInstances.
+ SystemBrowser browseMethods:methods title:'all breakPointed/traced methods'
+
+ "Modified: 14.1.1997 / 12:51:17 / cg"
+ "Created: 14.1.1997 / 12:55:23 / cg"
+!
+
browseImplementors
"open an implementors- browser after asking for a selector"
- |enterBox|
-
- enterBox := EnterBox title:(resources at:'Browse implementors of:') withCRs.
- enterBox okText:(resources at:'browse').
- enterBox action:[:selectorName |
- |cls|
-
- self withWaitCursorDo:[SystemBrowser browseImplementorsOf:selectorName]
+ |enterBox selector|
+
+ enterBox := EnterBox
+ title:(resources at:'Browse implementors of:') withCRs
+ okText:(resources at:'browse')
+ action:[:acceptedString | selector := acceptedString].
+ enterBox showAtPointer.
+
+ selector notNil ifTrue:[
+ self withWaitCursorDo:[
+ SystemBrowser browseImplementorsOf:selector
+ ]
].
- enterBox showAtPointer
-
- "Modified: 8.1.1997 / 14:44:09 / cg"
+
+ "Modified: / 31.10.1997 / 15:43:45 / cg"
!
browseResources
@@ -458,18 +484,42 @@
browseSenders
"open a senders- browser after asking for a selector"
- |enterBox|
-
- enterBox := EnterBox title:(resources at:'Browse senders of:') withCRs.
- enterBox okText:(resources at:'browse').
- enterBox action:[:selectorName |
- |cls|
-
- self withWaitCursorDo:[SystemBrowser browseAllCallsOn:selectorName]
+ |enterBox selector|
+
+ enterBox := EnterBox
+ title:(resources at:'Browse senders of:') withCRs
+ okText:(resources at:'browse')
+ action:[:acceptedString | selector := acceptedString].
+ enterBox showAtPointer.
+
+ selector notNil ifTrue:[
+ self withWaitCursorDo:[
+ SystemBrowser browseAllCallsOn:selector
+ ]
].
- enterBox showAtPointer
-
- "Modified: 8.1.1997 / 14:46:46 / cg"
+
+ "Modified: / 31.10.1997 / 15:44:11 / cg"
+!
+
+browseUndeclared
+ "open a browser on methods refering to undeclared variables"
+
+ self withWaitCursorDo:[
+ SystemBrowser
+ browseReferendsOf:(Smalltalk underclaredPrefix , '*')
+ title:(resources string:'references to undeclared variables')
+ warnIfNone:true
+ ]
+
+ "Modified: / 31.10.1997 / 15:43:18 / cg"
+!
+
+removeAllBreakAndTracePoints
+ "remove all break- and trace points"
+
+ MessageTracer cleanup
+
+ "Modified: 8.1.1997 / 14:55:27 / cg"
!
startChangesBrowser
@@ -2993,19 +3043,6 @@
!Launcher methodsFor:'actions - tools'!
-browseAllBreakAndTracePoints
- "open a browser showing all breakPointed/traced methods
- (but, to get rid of them, there is also a menu itme to remove them all)"
-
- |methods|
-
- methods := WrappedMethod allInstances.
- SystemBrowser browseMethods:methods title:'all breakPointed/traced methods'
-
- "Modified: 14.1.1997 / 12:51:17 / cg"
- "Created: 14.1.1997 / 12:55:23 / cg"
-!
-
compressingGarbageCollect
"perform a compressing garbageCollect"
@@ -3110,14 +3147,6 @@
"Modified: 3.3.1997 / 14:13:11 / cg"
!
-removeAllBreakAndTracePoints
- "remove all break- and trace points"
-
- MessageTracer cleanup
-
- "Modified: 8.1.1997 / 14:55:27 / cg"
-!
-
screenHardcopy
"after a second (to allow redraw of views under menu ...),
let user specify a rectangular area on the screen
@@ -3586,6 +3615,8 @@
setupClassesMenu
<resource: #programMenu >
+ |m|
+
"setup the classes- pulldown menu"
myMenu at:#classes
@@ -3598,7 +3629,7 @@
'-'
'implementors ...'
'senders ...'
- 'resource ...'
+ 'special'
'-'
'change browser'
))
@@ -3611,12 +3642,31 @@
nil
#browseImplementors
#browseSenders
- #browseResources
+ #special
nil
#startChangesBrowser
)
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
+ )
+ ).
+
JavaBrowser notNil ifTrue:[
(myMenu subMenuAt:#classes)
addLabels:(resources array:#('-' 'java browser'))
@@ -3625,7 +3675,7 @@
].
"Created: / 8.1.1997 / 14:05:44 / cg"
- "Modified: / 29.10.1997 / 03:40:42 / cg"
+ "Modified: / 31.10.1997 / 18:30:41 / cg"
!
setupDemoMenu
@@ -4149,16 +4199,10 @@
labels:(resources array:#(
'garbage collect'
'garbage collect & compress'
- '-'
- 'find all break/trace points'
- 'remove all break/trace points'
))
selectors:#(
#garbageCollect
#compressingGarbageCollect
- nil
- #browseAllBreakAndTracePoints
- #removeAllBreakAndTracePoints
)
receiver:self).
@@ -4176,7 +4220,7 @@
)
receiver:self).
- "Modified: 26.7.1997 / 20:16:00 / cg"
+ "Modified: / 31.10.1997 / 16:01:53 / cg"
! !
!Launcher methodsFor:'initialize / release'!
@@ -4884,5 +4928,5 @@
!Launcher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.301 1997-10-29 16:04:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.302 1997-11-02 17:41:50 cg Exp $'
! !