--- a/ActiveHelp.st Fri Jun 07 10:00:35 1996 +0200
+++ b/ActiveHelp.st Fri Jun 07 10:02:31 1996 +0200
@@ -428,7 +428,7 @@
p terminate.
].
showProcess := [
- (Delay forSeconds:DelayTime) wait.
+ Delay waitForSeconds:DelayTime.
showProcess := nil.
self showHelp:text for:aView
] forkAt:(Processor userSchedulingPriority + 1).
@@ -437,7 +437,7 @@
]
].
- "Modified: 27.4.1996 / 15:12:03 / cg"
+ "Modified: 7.6.1996 / 10:02:19 / cg"
! !
!ActiveHelp methodsFor:'show / hide help'!
@@ -527,6 +527,6 @@
!ActiveHelp class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.14 1996-06-07 08:00:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.15 1996-06-07 08:02:31 cg Exp $'
! !
ActiveHelp initialize!