diff -r ae9ed5b0b548 -r 08d41de35293 ViewWithAcceptAndCancelBar.st
--- a/ViewWithAcceptAndCancelBar.st	Mon Apr 24 13:43:54 2006 +0200
+++ b/ViewWithAcceptAndCancelBar.st	Mon Apr 24 13:44:46 2006 +0200
@@ -26,6 +26,13 @@
 	privateIn:ViewWithAcceptAndCancelBar
 !
 
+Button subclass:#ButtonWithHelpText
+	instanceVariableNames:'helpText'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:ViewWithAcceptAndCancelBar::AcceptAndCancelBar
+!
+
 !ViewWithAcceptAndCancelBar class methodsFor:'documentation'!
 
 copyright
@@ -79,11 +86,11 @@
 hideBar
     bar unmap.
     bar hiddenOnRealize:true.
-    slaveView origin:(0.0 @ 0.0).
+    slaveView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
 !
 
 showBar
-    slaveView origin:(20 @ 0.0).
+    slaveView origin:(20 @ 0.0) corner:(1.0 @ 1.0).
     bar hiddenOnRealize:false.
     bar realize.
 !
@@ -162,6 +169,18 @@
 
 cancelButton
     ^ cancelButton
+!
+
+flyByHelpTextAt:srcPoint
+    "return the helpText for aPoint (i.e. when mouse-pointer is moved over an item)."
+
+    (acceptButton bounds containsPoint:srcPoint) ifTrue:[
+        ^ 'Accept'
+    ].
+    (acceptButton bounds containsPoint:srcPoint) ifTrue:[
+        ^ 'Cancel'
+    ].
+    ^ nil
 ! !
 
 !ViewWithAcceptAndCancelBar::AcceptAndCancelBar methodsFor:'initialization'!
@@ -169,14 +188,16 @@
 initialize
     super initialize.
 
-    acceptButton := Button new.
-    acceptButton origin:0.0 @ 0.0 corner:1.0@0.75.
+    acceptButton := ButtonWithHelpText new.
+    acceptButton origin:0.0 @ 0.0 corner:1.0@0.80.
     acceptButton backgroundColor:Color green.
+    acceptButton flyByHelpText:'Accept'.
     self add:acceptButton.
 
-    cancelButton := Button new.
-    cancelButton origin:0.0 @ 0.75 corner:1.0@1.0.
+    cancelButton := ButtonWithHelpText new.
+    cancelButton origin:0.0 @ 0.80 corner:1.0@1.0.
     cancelButton backgroundColor:Color red.
+    cancelButton flyByHelpText:'Cancel'.
     self add:cancelButton.
 
     "
@@ -184,8 +205,18 @@
     "
 ! !
 
+!ViewWithAcceptAndCancelBar::AcceptAndCancelBar::ButtonWithHelpText methodsFor:'accessing'!
+
+flyByHelpText
+    ^ helpText
+!
+
+flyByHelpText:something
+    helpText := something.
+! !
+
 !ViewWithAcceptAndCancelBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.1 2006-04-21 15:38:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.2 2006-04-24 11:44:46 cg Exp $'
 ! !