--- a/ToolApplicationModel.st	Fri Aug 21 21:01:42 1998 +0200
+++ b/ToolApplicationModel.st	Sat Aug 22 00:07:34 1998 +0200
@@ -945,11 +945,16 @@
     currentActiveHelp := ActiveHelp currentHelpListener.
 
     ^ self class showingHelp 
-      and: [currentActiveHelp notNil and: [masterApplication notNil 
-                ifFalse: [currentActiveHelp interestedIn: self window]
-                ifTrue:  [currentActiveHelp interestedIn: masterApplication window]]]
+      and: [currentActiveHelp notNil and: [
+                currentActiveHelp interestedIn: self window]]
+
+"/    ^ self class showingHelp 
+"/      and: [currentActiveHelp notNil and: [masterApplication notNil 
+"/                ifFalse: [currentActiveHelp interestedIn: self window]
+"/                ifTrue:  [currentActiveHelp interestedIn: masterApplication window]]]
 
     "Created: / 31.7.1998 / 17:57:03 / cg"
+    "Modified: / 22.8.1998 / 00:06:38 / cg"
 !
 
 showingHelp: aValue
@@ -1250,5 +1255,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.73 1998-08-14 15:38:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.74 1998-08-21 22:07:34 cg Exp $'
 ! !