--- a/ActiveHelpView.st	Mon Sep 16 12:56:18 2013 +0200
+++ b/ActiveHelpView.st	Thu Sep 19 18:29:21 2013 +0200
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libview2' }"
 
 View subclass:#ActiveHelpView
-	instanceVariableNames:'myView shapeStyle'
+	instanceVariableNames:'myView shapeStyle controllingHelpListener'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Help'
@@ -147,6 +147,10 @@
     "Modified: 27.4.1996 / 15:14:56 / cg"
 !
 
+controllingHelpListener:something
+    controllingHelpListener := something.
+!
+
 shapeStyle:aStyleSymbol
     "set the shapeStyle.
      Currently, only nil and #cartoon are supported"
@@ -181,6 +185,12 @@
     "Modified: 27.4.1996 / 15:16:46 / cg"
 ! !
 
+!ActiveHelpView methodsFor:'event handling'!
+
+keyPress:key x:x y:y
+    controllingHelpListener hideHelp
+! !
+
 !ActiveHelpView methodsFor:'initialization'!
 
 initStyle
@@ -367,15 +377,19 @@
     ^ true
 
     "Modified: 12.5.1996 / 21:58:12 / cg"
+!
+
+wantsFocusWithButtonPress
+    ^ false
 ! !
 
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.39 2013-09-16 10:56:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.40 2013-09-19 16:29:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.39 2013-09-16 10:56:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.40 2013-09-19 16:29:21 cg Exp $'
 ! !