--- a/HierarchicalItem.st	Tue May 27 08:14:26 2003 +0200
+++ b/HierarchicalItem.st	Tue May 27 08:15:34 2003 +0200
@@ -1465,8 +1465,24 @@
 
 processButtonPress:button x:x y:y
     "a mouse button was pressed in my label.
-     Return true, if I have eaten the event.
-     On default false is returned (unhandled).
+     Return true, if the event is eaten (ignored by the gc).
+     On default false is returned (should be handled by the gc).
+    "
+    ^ false
+!
+
+processButtonPress:button x:x y:y on:aGC
+    "a mouse button was pressed in my label.
+     Return true, if the event is eaten (ignored by the gc).
+     On default false is returned (should be handled by the gc).
+    "
+    ^ self processButtonPress:button x:x y:y
+!
+
+processButtonPressOnIcon:button on:aGC
+    "a mouse button was pressed in my icon.
+     Return true, if the event is eaten (ignored by the gc).
+     On default false is returned (should be handled by the gc).
     "
     ^ false
 ! !
@@ -1882,5 +1898,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.58 2003-05-07 14:06:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.59 2003-05-27 06:15:34 james Exp $'
 ! !