840 ! ! |
840 ! ! |
841 |
841 |
842 |
842 |
843 !DisplaySurface methodsFor:'button menus'! |
843 !DisplaySurface methodsFor:'button menus'! |
844 |
844 |
|
845 getMiddleButtonMenu |
|
846 "return the menu associated with the middle mouse button. |
|
847 This is a possibly obsolete hook for views which do not define their own menu, |
|
848 but are configured from the outside. Nowadays, widgets provide their own menu |
|
849 or are configured using a menuHolder." |
|
850 |
|
851 ^ self getAttribute:#middleButtonMenu |
|
852 |
|
853 "Created: / 07-07-2011 / 18:16:21 / cg" |
|
854 ! |
|
855 |
845 middleButtonMenu |
856 middleButtonMenu |
846 "return the menu associated with the middle mouse button" |
857 "return the menu associated with the middle mouse button. |
847 |
858 Here, return a hooked on menu, but usually redefined to provide a widget-specific |
848 ^ self getAttribute:#middleButtonMenu |
859 menu." |
|
860 |
|
861 ^ self getMiddleButtonMenu |
|
862 |
|
863 "Modified (comment): / 07-07-2011 / 18:18:28 / cg" |
849 ! |
864 ! |
850 |
865 |
851 middleButtonMenu:aMenu |
866 middleButtonMenu:aMenu |
852 "associate aMenu with the middle mouse button" |
867 "associate aMenu with the middle mouse button. |
|
868 This is a possibly obsolete hook for views which do not define their own menu, |
|
869 but are configured from the outside. Nowadays, widgets provide their own menu |
|
870 or are configured using a menuHolder." |
853 |
871 |
854 |oldMenu| |
872 |oldMenu| |
855 |
873 |
856 (oldMenu := self middleButtonMenu) notNil ifTrue:[ |
874 (oldMenu := self getMiddleButtonMenu) notNil ifTrue:[ |
857 oldMenu isArray ifFalse:[ |
875 oldMenu isArray ifFalse:[ |
858 oldMenu destroy |
876 oldMenu destroy |
859 ] |
877 ] |
860 ]. |
878 ]. |
861 self setMiddleButtonMenu:aMenu |
879 self setMiddleButtonMenu:aMenu |
862 |
880 |
863 "Modified: / 07-04-2011 / 09:06:42 / cg" |
881 "Modified: / 07-07-2011 / 18:18:00 / cg" |
864 ! |
882 ! |
865 |
883 |
866 setMiddleButtonMenu:aMenu |
884 setMiddleButtonMenu:aMenu |
867 "associate aMenu with the middle mouse button. |
885 "associate aMenu with the middle mouse button. |
868 Do not destroy the old menu if any" |
886 Do not destroy the old menu if any" |
2538 "Modified: / 15.11.2001 / 14:17:12 / cg" |
2556 "Modified: / 15.11.2001 / 14:17:12 / cg" |
2539 ! ! |
2557 ! ! |
2540 |
2558 |
2541 !DisplaySurface class methodsFor:'documentation'! |
2559 !DisplaySurface class methodsFor:'documentation'! |
2542 |
2560 |
2543 version |
|
2544 ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.149 2011-04-07 07:35:18 cg Exp $' |
|
2545 ! |
|
2546 |
|
2547 version_CVS |
2561 version_CVS |
2548 ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.149 2011-04-07 07:35:18 cg Exp $' |
2562 ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.150 2011-07-07 16:18:38 cg Exp $' |
2549 ! ! |
2563 ! ! |
2550 |
2564 |
2551 DisplaySurface initialize! |
2565 DisplaySurface initialize! |