# HG changeset patch # User Claus Gittinger # Date 878492510 -3600 # Node ID 84c1c83325304c540b1bf57ccf6cf38a0d09739a # Parent 4a98e9a59430bb353ab0663ab65bb5337bce1daf *** empty log message *** diff -r 4a98e9a59430 -r 84c1c8332530 Launcher.st --- 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 + |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 $' ! !