Lines Matching +defs:tk +defs:MbPost
19 # Elements of tk::Priv that are used in this file:
24 # grabGlobal - Used in conjunction with tk::Priv(oldGrab): if
25 # tk::Priv(oldGrab) is non-empty, then tk::Priv(grabGlobal)
66 # tk::Priv(postedMb) identifies the posted menubutton.
68 # tk::Priv(postedMb) is empty, and menu's type is "tearoff".
70 # style tk::Priv(postedMb) identifies the posted menubutton.
71 # 4. As a popup menu. In this style tk::Priv(postedMb) is empty and
73 # 5. As a pulldown from a menubar. The variable tk::Priv(menubar) has
88 tk::MbEnter %W
91 tk::MbLeave %W
94 if {$tk::Priv(inMenubutton) ne ""} {
95 tk::MbPost $tk::Priv(inMenubutton) %X %Y
99 tk::MbMotion %W up %X %Y
102 tk::MbMotion %W down %X %Y
105 tk::MbButtonUp %W
108 tk::MbPost %W
109 tk::MenuFirstEntry [%W cget -menu]
122 set tk::Priv(window) %W
125 if {[tk windowingsystem] eq "x11"} {
130 tk::MenuMotion %W %x %y %s
134 tk::MenuLeave %W %X %Y %s
137 tk::MenuMotion %W %x %y %s
140 tk::MenuButtonDown %W
143 tk::MenuInvoke %W 1
146 tk::MenuInvoke %W 0
149 tk::MenuInvoke %W 0
152 tk::MenuEscape %W
155 tk::MenuLeftArrow %W
158 tk::MenuRightArrow %W
161 tk::MenuUpArrow %W
164 tk::MenuDownArrow %W
167 tk::TraverseWithinMenu %W %A
173 if {[tk windowingsystem] eq "x11"} {
175 tk::TraverseToMenu %W %A
179 tk::FirstMenu %W
183 tk::TraverseToMenu %W %A
187 tk::FirstMenu %W
191 # ::tk::MbEnter --
195 # The procedure ::tk::MbB1Enter is invoked if the button is down.
200 proc ::tk::MbEnter w {
201 variable ::tk::Priv
207 if {[$w cget -state] ne "disabled" && [tk windowingsystem] ne "aqua"} {
212 # ::tk::MbLeave --
219 proc ::tk::MbLeave w {
220 variable ::tk::Priv
226 if {[$w cget -state] eq "active" && [tk windowingsystem] ne "aqua"} {
231 # ::tk::MbPost --
243 proc ::tk::MbPost {w {x {}} {y {}}} {
245 variable ::tk::Priv
255 set tearoff [expr {[tk windowingsystem] eq "x11" \
266 if {[tk windowingsystem] ne "aqua"} {
376 # ::tk::MenuUnpost --
392 proc ::tk::MenuUnpost menu {
394 variable ::tk::Priv
413 if {[tk windowingsystem] ne "aqua"} {
461 if {[tk windowingsystem] ne "x11"} {
467 # ::tk::MbMotion --
478 proc ::tk::MbMotion {w upDown rootx rooty} {
479 variable ::tk::Priv
495 MbPost $new $rootx $rooty
503 # ::tk::MbButtonUp --
511 proc ::tk::MbButtonUp w {
512 variable ::tk::Priv
516 set tearoff [expr {[tk windowingsystem] eq "x11" || \
526 # ::tk::MenuMotion --
539 proc ::tk::MenuMotion {menu x y state} {
540 variable ::tk::Priv
557 # ::tk::MenuButtonDown --
572 proc ::tk::MenuButtonDown menu {
573 variable ::tk::Priv
607 if {[tk windowingsystem] eq "x11"} {
613 # ::tk::MenuLeave --
623 proc ::tk::MenuLeave {menu rootx rooty state} {
624 variable ::tk::Priv
637 # ::tk::MenuInvoke --
647 proc ::tk::MenuInvoke {w buttonRelease} {
648 variable ::tk::Priv
666 ::tk::TearOffMenu $w
700 # ::tk::MenuEscape --
708 proc ::tk::MenuEscape menu {
723 proc ::tk::MenuUpArrow {menu} {
731 proc ::tk::MenuDownArrow {menu} {
739 proc ::tk::MenuLeftArrow {menu} {
747 proc ::tk::MenuRightArrow {menu} {
755 # ::tk::MenuNextMenu --
765 proc ::tk::MenuNextMenu {menu direction} {
766 variable ::tk::Priv
846 MbPost $mb
850 # ::tk::MenuNextEntry --
859 proc ::tk::MenuNextEntry {menu count} {
912 # ::tk::MenuFind --
928 proc ::tk::MenuFind {w char} {
984 # ::tk::TraverseToMenu --
996 proc ::tk::TraverseToMenu {w char} {
997 variable ::tk::Priv
1018 MbPost $w
1024 # ::tk::FirstMenu --
1032 proc ::tk::FirstMenu w {
1033 variable ::tk::Priv
1043 MbPost $w
1049 # ::tk::TraverseWithinMenu
1060 proc ::tk::TraverseWithinMenu {w char} {
1092 # ::tk::MenuFirstEntry --
1096 # because of a previous call to tk::PostOverPoint) then the active
1103 proc ::tk::MenuFirstEntry menu {
1137 # ::tk::MenuFindName --
1148 proc ::tk::MenuFindName {menu s} {
1168 # ::tk::PostOverPoint --
1180 proc ::tk::PostOverPoint {menu x y {entry {}}} {
1220 # ::tk::SaveGrabInfo --
1221 # Sets the variables tk::Priv(oldGrab) and tk::Priv(grabStatus) to record
1228 proc tk::SaveGrabInfo w {
1229 variable ::tk::Priv
1236 # ::tk::RestoreOldGrab --
1240 proc ::tk::RestoreOldGrab {} {
1241 variable ::tk::Priv
1259 variable ::tk::Priv
1266 proc ::tk::GenerateMenuSelect {menu} {
1267 variable ::tk::Priv
1291 variable ::tk::Priv
1294 tk::MenuUnpost {}
1296 tk::PostOverPoint $menu $x $y $entry
1297 if {[tk windowingsystem] eq "x11" && [winfo viewable $menu]} {
1298 tk::SaveGrabInfo $menu