228 |
228 |
229 flyByHelpTextAt:srcPoint |
229 flyByHelpTextAt:srcPoint |
230 "return the helpText for aPoint (i.e. when mouse-pointer is moved over an item)." |
230 "return the helpText for aPoint (i.e. when mouse-pointer is moved over an item)." |
231 |
231 |
232 (acceptButton bounds containsPoint:srcPoint) ifTrue:[ |
232 (acceptButton bounds containsPoint:srcPoint) ifTrue:[ |
233 ^ 'Accept' |
233 ^ resources string:'Accept' |
234 ]. |
234 ]. |
235 (cancelButton bounds containsPoint:srcPoint) ifTrue:[ |
235 (cancelButton bounds containsPoint:srcPoint) ifTrue:[ |
236 ^ 'Cancel' |
236 ^ resources string:'Cancel' |
237 ]. |
237 ]. |
238 (compareButton bounds containsPoint:srcPoint) ifTrue:[ |
238 (compareButton bounds containsPoint:srcPoint) ifTrue:[ |
239 ^ 'Compare against Original' |
239 ^ resources string:'Compare against Original' |
240 ]. |
240 ]. |
241 ^ nil |
241 ^ nil |
|
242 |
|
243 "Modified: / 26-09-2012 / 14:26:14 / cg" |
242 ! ! |
244 ! ! |
243 |
245 |
244 !ViewWithAcceptAndCancelBar::AcceptAndCancelBar methodsFor:'initialization'! |
246 !ViewWithAcceptAndCancelBar::AcceptAndCancelBar methodsFor:'initialization'! |
245 |
247 |
246 initialize |
248 initialize |
247 super initialize. |
249 super initialize. |
248 |
250 |
249 acceptButton := ButtonWithHelpText new. |
251 acceptButton := ButtonWithHelpText new. |
250 acceptButton origin:0.0 @ 0.0 corner:1.0@0.7. |
252 acceptButton origin:0.0 @ 0.0 corner:1.0@0.7. |
251 acceptButton backgroundColor:Color green. |
253 acceptButton backgroundColor:Color green. |
252 acceptButton flyByHelpText:'Accept'. |
254 acceptButton flyByHelpText:(resources string:'Accept'). |
253 self add:acceptButton. |
255 self add:acceptButton. |
254 |
256 |
255 cancelButton := ButtonWithHelpText new. |
257 cancelButton := ButtonWithHelpText new. |
256 cancelButton origin:0.0 @ 0.7 corner:1.0@0.9. |
258 cancelButton origin:0.0 @ 0.7 corner:1.0@0.9. |
257 cancelButton backgroundColor:Color red. |
259 cancelButton backgroundColor:Color red. |
258 cancelButton flyByHelpText:'Cancel'. |
260 cancelButton flyByHelpText:(resources string:'Cancel'). |
259 self add:cancelButton. |
261 self add:cancelButton. |
260 |
262 |
261 compareButton := ButtonWithHelpText new. |
263 compareButton := ButtonWithHelpText new. |
262 compareButton origin:0.0 @ 0.9 corner:1.0@1.0. |
264 compareButton origin:0.0 @ 0.9 corner:1.0@1.0. |
263 compareButton backgroundColor:Color yellow. |
265 compareButton backgroundColor:Color yellow. |
264 compareButton flyByHelpText:'Compare against Original'. |
266 compareButton flyByHelpText:(resources string:'Compare against Original'). |
265 compareButton label:'?'. |
267 compareButton label:'?'. |
266 self add:compareButton. |
268 self add:compareButton. |
267 |
269 |
268 " |
270 " |
269 AcceptAndCancelBar new open |
271 AcceptAndCancelBar new open |
270 " |
272 " |
|
273 |
|
274 "Modified: / 26-09-2012 / 14:44:18 / cg" |
271 ! ! |
275 ! ! |
272 |
276 |
273 !ViewWithAcceptAndCancelBar::AcceptAndCancelBar::ButtonWithHelpText methodsFor:'accessing'! |
277 !ViewWithAcceptAndCancelBar::AcceptAndCancelBar::ButtonWithHelpText methodsFor:'accessing'! |
274 |
278 |
275 flyByHelpText |
279 flyByHelpText |