equal
deleted
inserted
replaced
864 ]. |
864 ]. |
865 ]. |
865 ]. |
866 ! |
866 ! |
867 |
867 |
868 buttonRelease:button x:x y:y |
868 buttonRelease:button x:x y:y |
|
869 realized ifFalse:[^ self]. |
869 hideOnRelease ifFalse:[ |
870 hideOnRelease ifFalse:[ |
870 ^ self |
871 ^ self |
871 ]. |
872 ]. |
872 |
873 |
873 self hide. |
874 self hide. |
874 " |
875 " |
875 menuView buttonRelease:button x:x y:y. |
876 menuView buttonRelease:button x:x y:y. |
876 " |
877 " |
877 menuView superMenu notNil ifTrue:[ |
878 menuView superMenu notNil ifTrue:[ |
878 menuView superMenu submenuTriggered |
879 menuView superMenu submenuTriggered |
879 ]. |
880 ]. |
880 menuView buttonRelease:button x:x y:y. |
881 menuView buttonRelease:button x:x y:y. |
|
882 |
|
883 "Modified: 28.2.1996 / 13:10:10 / cg" |
881 ! |
884 ! |
882 |
885 |
883 keyPress:key x:x y:y |
886 keyPress:key x:x y:y |
884 "/ hideOnRelease := true. |
887 "/ hideOnRelease := true. |
|
888 x <= 0 ifTrue:[ |
|
889 "/ already redelegated |
|
890 ^ self |
|
891 ]. |
|
892 |
885 key == #Tab ifTrue:[ |
893 key == #Tab ifTrue:[ |
886 self hide. |
894 self hide. |
887 super keyPress:key x:x y:y. |
895 super keyPress:key x:x y:y. |
888 ] ifFalse:[ |
896 ] ifFalse:[ |
889 menuView keyPress:key x:x y:y. |
897 menuView keyPress:key x:x y:y. |
890 ]. |
898 ]. |
891 |
899 |
892 "Modified: 9.2.1996 / 22:07:06 / cg" |
900 "Modified: 28.2.1996 / 15:22:32 / cg" |
893 ! |
901 ! |
894 |
902 |
895 mapped |
903 mapped |
896 super mapped. |
904 super mapped. |
897 device buttonStates == 0 ifTrue:[ |
905 device buttonStates == 0 ifTrue:[ |
994 ! ! |
1002 ! ! |
995 |
1003 |
996 !PopUpMenu class methodsFor:'documentation'! |
1004 !PopUpMenu class methodsFor:'documentation'! |
997 |
1005 |
998 version |
1006 version |
999 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.36 1996-02-26 22:41:25 cg Exp $' |
1007 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.37 1996-02-28 14:29:08 cg Exp $' |
1000 ! ! |
1008 ! ! |