*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 11 Nov 2004 10:12:57 +0100
changeset 1895 b7d6683ebaca
parent 1894 ce8fcfb4389a
child 1896 ab2b45d8ccc8
*** empty log message ***
MenuEditor.st
UIGalleryView.st
UIObjectView.st
--- a/MenuEditor.st	Wed Nov 10 13:19:40 2004 +0100
+++ b/MenuEditor.st	Thu Nov 11 10:12:57 2004 +0100
@@ -2072,11 +2072,12 @@
 !MenuEditor methodsFor:'event processing'!
 
 processEvent:anEvent
-    "filter keyboard edit-events typed into the listOfItemsView
-    "
+    "filter keyboard edit-events typed into the listOfItemsView.
+     Return true, if I have eaten the event"
+
     |evView inView rawKey key|
 
-    anEvent isKeyPressEvent ifFalse:[^ false].
+    anEvent isKeyPressEvent ifFalse:[ ^ false].
 
     evView := anEvent targetView.
     evView ifNil:[ ^ false ].
@@ -2092,13 +2093,13 @@
      or:[key == #Cut]]
     ) ifTrue:[
         self doCut.
-      ^ true.  
+        ^ true.  
     ].
 
     key == #Copy  ifTrue:[ self doCopy.  ^ true ].
     key == #Paste ifTrue:[ self doPaste. ^ true ].
 
-  ^ false
+    ^ false
 ! !
 
 !MenuEditor methodsFor:'initialization & release'!
--- a/UIGalleryView.st	Wed Nov 10 13:19:40 2004 +0100
+++ b/UIGalleryView.st	Thu Nov 11 10:12:57 2004 +0100
@@ -432,6 +432,9 @@
 !UIGalleryView::Canvas methodsFor:'event handling'!
 
 processEvent:anEvent
+    "filter keyboard events.
+     Return true, if I have eaten the event"
+
     |evView p|
 
     evView := anEvent view.
--- a/UIObjectView.st	Wed Nov 10 13:19:40 2004 +0100
+++ b/UIObjectView.st	Thu Nov 11 10:12:57 2004 +0100
@@ -556,8 +556,9 @@
 
 processEvent:anEvent
     "catch expose events for components, and redraw its handles after
-     the redraw when this happens
-    "
+     the redraw when this happens.
+     Return true, if I have eaten the event"
+
     |evView x y p|
 
     self testMode ifTrue:[^ false].