--- 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 $'
! !