--- a/ActiveHelp.st	Mon Sep 15 22:16:05 1997 +0200
+++ b/ActiveHelp.st	Mon Sep 15 22:25:21 1997 +0200
@@ -292,8 +292,6 @@
 pointerEnter:state x:x y:y view:aView
     "handle pointer entering a view; setup timeOut to show help"
 
-    |p|
-
     self stopHelpDisplayProcess.
     self hideIfPointerLeft:aView.
     aView topView == currentHelpView ifTrue:[
@@ -421,12 +419,7 @@
 hideIfPointerLeft:aView
     "hide help, if the pointer is not in aView"
 
-    |whereOnScreen p|
-
-"/    showProcess notNil ifTrue:[
-"/        p := showProcess. showProcess := nil.
-"/        p terminate.
-"/    ].
+    |whereOnScreen|
 
     whereOnScreen := aView graphicsDevice pointerPosition.
 
@@ -495,7 +488,7 @@
      re-negotiation of the displayed helpText 
      (for example in a menu, when the selection changes)"
 
-    |text p top app|
+    |text top app|
 
     text := self helpTextFor:aView atX:x y:y.
     lastHelpText = text ifTrue:[
@@ -544,7 +537,7 @@
 showHelp:aHelpText for:view
     "show the help text for aView"
 
-    |org p v dev top app|
+    |org p v dev|
 
     view == currentView ifTrue:[
         lastHelpText = aHelpText ifTrue:[
@@ -618,6 +611,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.27 1997-06-28 13:07:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.28 1997-09-15 20:25:20 cg Exp $'
 ! !
 ActiveHelp initialize!