--- a/Launcher.st Tue Apr 23 21:45:09 1996 +0200
+++ b/Launcher.st Wed Apr 24 10:42:05 1996 +0200
@@ -1526,28 +1526,22 @@
!
startStopEventTrace
- |v hook|
+ |v wg|
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'.
+ wg := v windowGroup.
+ wg notNil ifTrue:[
+ "/
+ "/ toggle eventTrace in its windowGroup
+ "/
+ wg traceEvents:(wg preEventHook isNil)
]
]
"Created: 7.3.1996 / 14:44:22 / cg"
- "Modified: 7.3.1996 / 14:56:49 / cg"
+ "Modified: 24.4.1996 / 10:27:11 / cg"
!
startWindowTreeView
@@ -2559,5 +2553,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.114 1996-04-23 19:42:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.115 1996-04-24 08:42:05 cg Exp $'
! !