#DOCUMENTATION by cg
class: FlyByHelp
comment/format in: #activeHelpViewForApplication:text:onDevice:
--- 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$'
! !