--- a/CodeCompletionHelpView.st Sat Aug 04 13:38:21 2018 +0200
+++ b/CodeCompletionHelpView.st Sat Aug 04 17:03:05 2018 +0200
@@ -16,7 +16,7 @@
"{ NameSpace: Smalltalk }"
View subclass:#CodeCompletionHelpView
- instanceVariableNames:'myView editView'
+ instanceVariableNames:'myView editView delayedDestroyAction'
classVariableNames:''
poolDictionaries:''
category:'Interface-Help'
@@ -100,10 +100,81 @@
"Created: / 04-08-2018 / 10:41:59 / Claus Gittinger"
!
+handlesButtonMotion:state inView:aView
+ ^ false
+
+ "Created: / 04-08-2018 / 16:55:09 / Claus Gittinger"
+!
+
+handlesButtonPress:state inView:aView
+ ^ false
+
+ "Created: / 04-08-2018 / 16:55:20 / Claus Gittinger"
+!
+
+handlesButtonRelease:state inView:aView
+ ^ false
+
+ "Created: / 04-08-2018 / 16:55:24 / Claus Gittinger"
+!
+
+handlesKeyPress:key inView:aView
+ ^ true
+
+ "Created: / 04-08-2018 / 16:54:44 / Claus Gittinger"
+!
+
+handlesKeyRelease:key inView:aView
+ ^ false
+
+ "Created: / 04-08-2018 / 16:54:54 / Claus Gittinger"
+!
+
+handlesPointerEnter:state inView:aView
+ ^ true
+
+ "Created: / 04-08-2018 / 16:55:49 / Claus Gittinger"
+!
+
+handlesPointerLeave:state inView:aView
+ ^ true
+
+ "Created: / 04-08-2018 / 16:55:53 / Claus Gittinger"
+!
+
keyPress:key x:x y:y
self topView destroy
"Created: / 04-08-2018 / 10:40:43 / Claus Gittinger"
+!
+
+keyPress:key x:x y:y view:aView
+ aView == (subViews firstIfEmpty:nil) ifTrue:[
+ self topView destroy
+ ].
+ ^ true
+
+ "Created: / 04-08-2018 / 17:00:33 / Claus Gittinger"
+!
+
+pointerEnter:state x:x y:y view:view
+ delayedDestroyAction notNil ifTrue:[
+ Processor removeTimedBlock:delayedDestroyAction.
+ ].
+ ^ false
+
+ "Created: / 04-08-2018 / 17:01:39 / Claus Gittinger"
+!
+
+pointerLeave:state view:view
+ delayedDestroyAction notNil ifTrue:[
+ Processor removeTimedBlock:delayedDestroyAction.
+ ].
+ delayedDestroyAction := [ self topView destroy ].
+ Processor addTimedBlock:delayedDestroyAction after:0.5.
+ ^ false
+
+ "Created: / 04-08-2018 / 16:57:18 / Claus Gittinger"
! !
!CodeCompletionHelpView methodsFor:'initialization'!
@@ -137,9 +208,12 @@
self enableMotionEvents.
self enableButtonMotionEvents.
self enableFocusEvents.
+ self subViews do:[:eachView |
+ eachView delegate:self.
+ ].
super realize
- "Modified: / 04-08-2018 / 10:42:23 / Claus Gittinger"
+ "Modified: / 04-08-2018 / 16:53:13 / Claus Gittinger"
! !
!CodeCompletionHelpView methodsFor:'private'!