FlyByHelp.st
changeset 2781 31725cdfbe43
parent 2780 82e3e1061ae7
child 2799 bc3ff9e96512
--- a/FlyByHelp.st	Mon Nov 02 13:59:35 2009 +0100
+++ b/FlyByHelp.st	Mon Nov 02 15:54:16 2009 +0100
@@ -295,12 +295,10 @@
 
     |wg org p v dev|
 
-thisContext fullPrintAllOn:Transcript.
+    "/ thisContext fullPrintAllOn:Transcript.
     (wg := view windowGroup) notNil ifTrue:[
         wg isInModalLoop ifTrue:[
-Transcript showCR:'1'.
             wg isModal ifFalse:[
-Transcript showCR:'2'.
                 ^ self
             ].
         ].
@@ -384,11 +382,11 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.36 2009-11-02 12:59:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.37 2009-11-02 14:54:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.36 2009-11-02 12:59:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.37 2009-11-02 14:54:16 cg Exp $'
 ! !
 
 FlyByHelp initialize!