ViewWithAcceptAndCancelBar.st
changeset 17323 024deb3f25fa
parent 16612 7ef54262119a
child 17897 d1a8350c8773
equal deleted inserted replaced
17322:52be40f937e7 17323:024deb3f25fa
   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