equal
deleted
inserted
replaced
441 |
441 |
442 (button == 1) ifFalse:[ |
442 (button == 1) ifFalse:[ |
443 ^ super buttonPress:button x:x y:y |
443 ^ super buttonPress:button x:x y:y |
444 ]. |
444 ]. |
445 |
445 |
446 (view styleSheet at:#'focus.takeOnClick' default:false) ifTrue:[ |
446 (view styleSheet at:#'button.takeFocusOnClick' default:false) ifTrue:[ |
447 "/ mhmh - how can this ever be nil ? |
447 "/ mhmh - how can this ever be nil ? |
448 (wg := view windowGroup) notNil ifTrue:[ |
448 (wg := view windowGroup) notNil ifTrue:[ |
449 wg focusToView:view |
449 wg focusToView:view |
450 ] |
450 ] |
451 ]. |
451 ]. |
485 Processor addTimedBlock:repeatBlock afterSeconds:initialDelay |
485 Processor addTimedBlock:repeatBlock afterSeconds:initialDelay |
486 ] |
486 ] |
487 ] |
487 ] |
488 ] |
488 ] |
489 |
489 |
490 "Modified: / 26.10.1998 / 20:23:07 / cg" |
490 "Modified: / 28-03-2012 / 13:08:38 / cg" |
491 ! |
491 ! |
492 |
492 |
493 buttonRelease:button x:x y:y |
493 buttonRelease:button x:x y:y |
494 "button was released - if enabled, perform releaseaction" |
494 "button was released - if enabled, perform releaseaction" |
495 |
495 |
786 ! ! |
786 ! ! |
787 |
787 |
788 !ButtonController class methodsFor:'documentation'! |
788 !ButtonController class methodsFor:'documentation'! |
789 |
789 |
790 version |
790 version |
791 ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.75 2012-03-07 10:56:37 cg Exp $' |
791 ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.76 2012-03-28 11:14:44 cg Exp $' |
792 ! ! |
792 ! ! |