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