#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Tue, 19 Apr 2016 15:29:18 +0200
changeset 3656 de582c82fa70
parent 3655 1398556ec619
child 3657 dafb6ec536ff
child 3658 ed7a9aa41ba4
#DOCUMENTATION by cg class: FlyByHelp comment/format in: #activeHelpViewForApplication:text:onDevice:
FlyByHelp.st
--- a/FlyByHelp.st	Tue Apr 19 15:28:46 2016 +0200
+++ b/FlyByHelp.st	Tue Apr 19 15:29:18 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview2' }"
 
+"{ NameSpace: Smalltalk }"
+
 ActiveHelp subclass:#FlyByHelp
 	instanceVariableNames:'currentFrame currentView currentHelpView showProcess closeProcess'
 	classVariableNames:'MaxNumberOfLines MaxNumberOfColumns'
@@ -258,7 +260,10 @@
         ] do:[
             text := self helpTextFor:aView at:aPointOrNil.
         ].
-    ] valueWithWatchDog:[ ^ self ] afterMilliseconds:(self flyByHelpTimeoutMillis).
+    ] valueWithWatchDog:[ 
+        'FlyByhelp [info]: flyBy text generation took too long' infoPrintCR.
+        ^ self 
+    ] afterMilliseconds:(self flyByHelpTimeoutMillis).
 
     lastHelpText = text ifTrue:[
         lastHelpWidget == aView ifTrue:[ 
@@ -310,6 +315,10 @@
         ^ applicationOrNil activeHelpViewFor:helpText onDevice:aDevice
     ].
     ^ ActiveHelpView for:helpText onDevice:aDevice.
+
+    "
+     (ActiveHelpView for:'Hello' onDevice:Display) open
+    "
 !
 
 hideHelp
@@ -462,10 +471,10 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.69 2014-12-03 23:07:59 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.69 2014-12-03 23:07:59 cg Exp $'
+    ^ '$Header$'
 ! !