--- a/AbstractLauncherApplication.st	Fri Jan 24 17:28:49 2003 +0100
+++ b/AbstractLauncherApplication.st	Fri Jan 24 17:33:45 2003 +0100
@@ -1364,16 +1364,15 @@
 
     v := Screen current viewFromUser.
     v notNil ifTrue:[
-	v := v topView.
-	wg := v windowGroup.
-	wg notNil ifTrue:[
-	    "/
-	    "/ toggle eventTrace in its windowGroup
-	    "/
-	    wg traceEvents:(wg preEventHook isNil)
-	]
+        v := v topView.
+        wg := v windowGroup.
+        wg notNil ifTrue:[
+            "/
+            "/ toggle eventTrace in its windowGroup
+            "/
+            wg traceEvents:(wg traceEvents not)
+        ]
     ]
-
 ! !
 
 !AbstractLauncherApplication methodsFor:'user actions - tools'!
@@ -6686,5 +6685,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.253 2003-01-21 16:51:22 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.254 2003-01-24 16:33:45 cg Exp $'
 ! !