ActiveHelp.st
changeset 3333 66ff26772ee3
parent 3323 a251378c32d8
child 3347 f314814a3105
equal deleted inserted replaced
3332:5ab088e3de36 3333:66ff26772ee3
   265     "Modified: 27.4.1996 / 15:07:57 / cg"
   265     "Modified: 27.4.1996 / 15:07:57 / cg"
   266 !
   266 !
   267 
   267 
   268 showTime
   268 showTime
   269     "set the number of seconds, a help messages is to be shown.
   269     "set the number of seconds, a help messages is to be shown.
   270      The default is 30 seconds."
   270      The default is 30 seconds.
       
   271      0 means: show forever (i.e. until mouse is moved)"
   271 
   272 
   272     ^ ShowTime ? 30
   273     ^ ShowTime ? 30
   273 
   274 
   274     "Modified: / 10-11-2010 / 12:29:44 / cg"
   275     "Modified: / 10-11-2010 / 12:29:44 / cg"
   275 ! !
   276 ! !
   351     "
   352     "
   352 !
   353 !
   353 
   354 
   354 showTime:numberOfSeconds
   355 showTime:numberOfSeconds
   355     "set the number of seconds, a help messages is to be shown.
   356     "set the number of seconds, a help messages is to be shown.
   356      The default is 30 seconds."
   357      The default is 30 seconds.
       
   358      0 means: show forever (i.e. until mouse is moved)"
   357 
   359 
   358     ShowTime := numberOfSeconds
   360     ShowTime := numberOfSeconds
   359 
   361 
   360     "
   362     "
   361      ActiveHelp showTime:10
   363      ActiveHelp showTime:10
   635 delayTime
   637 delayTime
   636     ^ self class delayTime
   638     ^ self class delayTime
   637 !
   639 !
   638 
   640 
   639 showTime
   641 showTime
       
   642     "how long shall the help be shown;
       
   643     0 means: forever (until user moves the mouse);
       
   644      >0 means that number of seconds"
       
   645 
   640     ^ self class showTime
   646     ^ self class showTime
   641 ! !
   647 ! !
   642 
   648 
   643 !ActiveHelp methodsFor:'show & hide help'!
   649 !ActiveHelp methodsFor:'show & hide help'!
   644 
   650 
   769 ! !
   775 ! !
   770 
   776 
   771 !ActiveHelp class methodsFor:'documentation'!
   777 !ActiveHelp class methodsFor:'documentation'!
   772 
   778 
   773 version_CVS
   779 version_CVS
   774     ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.77 2014-04-01 12:44:58 cg Exp $'
   780     ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.78 2014-05-16 07:49:59 cg Exp $'
   775 ! !
   781 ! !
   776 
   782 
   777 
   783 
   778 ActiveHelp initialize!
   784 ActiveHelp initialize!