--- a/Launcher.st Thu Mar 07 15:07:24 1996 +0100
+++ b/Launcher.st Thu Mar 07 19:44:50 1996 +0100
@@ -1389,6 +1389,31 @@
ProcessMonitor open
!
+startStopEventTrace
+ |v hook|
+
+ v := Screen current viewFromUser.
+ v notNil ifTrue:[
+ v := v topView.
+ v windowGroup preEventHook notNil ifTrue:[
+ "/ remove any eventHook on its windowGroup
+ v windowGroup preEventHook:nil.
+ Transcript showCr:'removed eventHook'.
+ ] ifFalse:[
+ "/ set an eventHook on its windowGroup
+ hook := Plug new.
+ hook respondTo:#processEvent:
+ with:[:ev | ev displayString printNL. false].
+
+ v windowGroup preEventHook:hook.
+ Transcript showCr:'set eventHook for tracing'.
+ ]
+ ]
+
+ "Created: 7.3.1996 / 14:44:22 / cg"
+ "Modified: 7.3.1996 / 14:56:49 / cg"
+!
+
startWindowTreeView
|v|
@@ -2045,80 +2070,83 @@
|m|
myMenu at:#tools
- putLabels:(resources array:#(
- 'workspace'
- '-'
- 'monitors'
- '-'
- 'view tree (all views)'
- 'view tree'
- 'inspect view'
- 'destroy view'
- '-'
- 'hardcopy'
- '-'
- 'misc'
- ))
- selectors:#(
- #startWorkspace
- nil
- #monitors
- nil
- #startFullWindowTreeView
- #startWindowTreeView
- #viewInspect
- #viewDestroy
- nil
- #hardcopy
- nil
- #misc
- )
- receiver:self.
+ putLabels:(resources array:#(
+ 'workspace'
+ '-'
+ 'monitors'
+ '-'
+ 'view tree (all views)'
+ 'view tree'
+ 'inspect view'
+ 'destroy view'
+ '-'
+ 'hardcopy'
+ '-'
+ 'misc'
+ ))
+ selectors:#(
+ #startWorkspace
+ nil
+ #monitors
+ nil
+ #startFullWindowTreeView
+ #startWindowTreeView
+ #viewInspect
+ #viewDestroy
+ nil
+ #hardcopy
+ nil
+ #misc
+ )
+ receiver:self.
m := myMenu menuAt:#tools.
m subMenuAt:#monitors
put:(PopUpMenu
- labels:(resources array:#(
- 'process'
- 'memory'
- 'event'
- '-'
- 'memory usage'
- ))
- selectors:#(
- #startProcessMonitor
- #startMemoryMonitor
- #startEventMonitor
- nil
- #startMemoryUsageView
- )
- receiver:self).
+ labels:(resources array:#(
+ 'process'
+ 'memory'
+ 'event view'
+ 'event trace'
+ '-'
+ 'memory usage'
+ ))
+ selectors:#(
+ #startProcessMonitor
+ #startMemoryMonitor
+ #startEventMonitor
+ #startStopEventTrace
+ nil
+ #startMemoryUsageView
+ )
+ receiver:self).
m subMenuAt:#misc
put:(PopUpMenu
- labels:(resources array:#(
- 'remove all break/trace points'
- ))
- selectors:#(
- #removeAllBreakAndTracePoints
- )
- receiver:self).
+ labels:(resources array:#(
+ 'remove all break/trace points'
+ ))
+ selectors:#(
+ #removeAllBreakAndTracePoints
+ )
+ receiver:self).
m subMenuAt:#hardcopy
put:(PopUpMenu
- labels:(resources array:#(
- 'screen'
- 'area'
- 'view'
- ))
- selectors:#(
- #fullScreenHardcopy
- #screenHardcopy
- #viewHardcopy
- )
- receiver:self).
+ labels:(resources array:#(
+ 'screen'
+ 'area'
+ 'view'
+ ))
+ selectors:#(
+ #fullScreenHardcopy
+ #screenHardcopy
+ #viewHardcopy
+ )
+ receiver:self).
+ "Modified: 7.3.1996 / 15:01:26 / cg"
!
setupTranscriptIn:aView
@@ -2352,5 +2380,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.97 1996-03-05 00:46:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.98 1996-03-07 18:44:50 cg Exp $'
! !