equal
deleted
inserted
replaced
262 initialize |
262 initialize |
263 |acceptColor cancelColor compareColor order| |
263 |acceptColor cancelColor compareColor order| |
264 |
264 |
265 super initialize. |
265 super initialize. |
266 |
266 |
267 UserPreferences current useColorsForColorBlindness ifTrue:[ |
267 acceptColor := Color greenCaringForColorBlindness. |
268 acceptColor := Color blue. |
268 cancelColor := Color redCaringForColorBlindness. |
269 ] ifFalse:[ |
|
270 acceptColor := Color green. |
|
271 ]. |
|
272 cancelColor := Color red. |
|
273 compareColor := Color yellow. |
269 compareColor := Color yellow. |
274 |
270 |
275 order := UserPreferences current acceptCancelBarOrder. |
271 order := UserPreferences current acceptCancelBarOrder. |
276 |
272 |
277 acceptButton := ButtonWithHelpText new. |
273 acceptButton := ButtonWithHelpText new. |
309 |
305 |
310 " |
306 " |
311 AcceptAndCancelBar new open |
307 AcceptAndCancelBar new open |
312 " |
308 " |
313 |
309 |
314 "Modified: / 26-09-2012 / 14:44:18 / cg" |
310 "Modified: / 03-02-2017 / 14:04:32 / cg" |
315 ! ! |
311 ! ! |
316 |
312 |
317 !ViewWithAcceptAndCancelBar::AcceptAndCancelBar::ButtonWithHelpText methodsFor:'accessing'! |
313 !ViewWithAcceptAndCancelBar::AcceptAndCancelBar::ButtonWithHelpText methodsFor:'accessing'! |
318 |
314 |
319 flyByHelpText |
315 flyByHelpText |