--- a/ActiveHelp.st Fri Jan 07 13:33:01 2000 +0100
+++ b/ActiveHelp.st Wed Jan 12 19:14:50 2000 +0100
@@ -528,12 +528,14 @@
|whereOnScreen|
- whereOnScreen := aView graphicsDevice pointerPosition.
+ currentFrame notNil ifTrue:[
+ whereOnScreen := aView graphicsDevice pointerPosition.
- (currentFrame notNil
- and:[(currentFrame insetBy:1@1) containsPoint:whereOnScreen]) ifFalse:[
- self hideHelp.
- currentView := nil
+ (currentFrame notNil
+ and:[(currentFrame insetBy:1@1) containsPoint:whereOnScreen]) ifFalse:[
+ self hideHelp.
+ currentView := nil
+ ].
].
"Modified: 28.5.1996 / 20:18:28 / cg"
@@ -790,6 +792,6 @@
!ActiveHelp class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.40 1999-08-02 08:59:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.41 2000-01-12 18:14:50 cg Exp $'
! !
ActiveHelp initialize!