Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Consistancy in Key/Button bindings: Use "<Button-1>" in stead of "<1>", "Key" in stead of "KeyPress" and "Button" in stead of "ButtonPress". Also eliminate unnessary "Any" and "Key" modifiers. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
b11394e646232820b28542cfa77c446f |
User & Date: | jan.nijtmans 2020-01-14 15:57:59.320 |
Context
2020-01-16
| ||
08:30 | Documentation update: Use Button in stead of ButtonPress and Key in stead of KeyPress events (except once, where we indicate that those are synonymes). check-in: d7dda9717d user: jan.nijtmans tags: trunk | |
2020-01-14
| ||
15:57 | Consistancy in Key/Button bindings: Use "<Button-1>" in stead of "<1>", "Key" in stead of "KeyPress" and "Button" in stead of "ButtonPress". Also eliminate unnessary "Any" and "Key" modifiers. check-in: b11394e646 user: jan.nijtmans tags: trunk | |
2020-01-11
| ||
17:23 | Add scrollwheel bindings to ttk::scrollbar by redirection of the bindings to tk::scrollbar. Ticket [2b8fa6fd] check-in: 5cc8fffe49 user: oehhar tags: trunk | |
Changes
Changes to library/bgerror.tcl.
︙ | ︙ | |||
178 179 180 181 182 183 184 | } ttk::scrollbar $W.scroll -command [list $W.text yview] pack $W.scroll -side right -fill y pack $W.text -side left -expand yes -fill both $W.text insert 0.0 "$err\n$info" $W.text mark set insert 0.0 | | | 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 | } ttk::scrollbar $W.scroll -command [list $W.text yview] pack $W.scroll -side right -fill y pack $W.text -side left -expand yes -fill both $W.text insert 0.0 "$err\n$info" $W.text mark set insert 0.0 bind $W.text <Button-1> { focus %W } $W.text configure -state disabled # 2. Fill the top part with bitmap and message # Max-width of message is the width of the screen... set wrapwidth [winfo screenwidth $dlg] # ...minus the width of the icon, padding and a fudge factor for |
︙ | ︙ |
Changes to library/button.tcl.
︙ | ︙ | |||
17 18 19 20 21 22 23 | #------------------------------------------------------------------------- if {[tk windowingsystem] eq "aqua"} { bind Radiobutton <Enter> { tk::ButtonEnter %W } | | | | | | | | 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | #------------------------------------------------------------------------- if {[tk windowingsystem] eq "aqua"} { bind Radiobutton <Enter> { tk::ButtonEnter %W } bind Radiobutton <Button-1> { tk::ButtonDown %W } bind Radiobutton <ButtonRelease-1> { tk::ButtonUp %W } bind Checkbutton <Enter> { tk::ButtonEnter %W } bind Checkbutton <Button-1> { tk::ButtonDown %W } bind Checkbutton <ButtonRelease-1> { tk::ButtonUp %W } bind Checkbutton <Leave> { tk::ButtonLeave %W } } if {"win32" eq [tk windowingsystem]} { bind Checkbutton <equal> { tk::CheckRadioInvoke %W select } bind Checkbutton <plus> { tk::CheckRadioInvoke %W select } bind Checkbutton <minus> { tk::CheckRadioInvoke %W deselect } bind Checkbutton <Button-1> { tk::CheckRadioDown %W } bind Checkbutton <ButtonRelease-1> { tk::ButtonUp %W } bind Checkbutton <Enter> { tk::CheckRadioEnter %W } bind Checkbutton <Leave> { tk::ButtonLeave %W } bind Radiobutton <Button-1> { tk::CheckRadioDown %W } bind Radiobutton <ButtonRelease-1> { tk::ButtonUp %W } bind Radiobutton <Enter> { tk::CheckRadioEnter %W } } if {"x11" eq [tk windowingsystem]} { bind Checkbutton <Return> { if {!$tk_strictMotif} { tk::CheckInvoke %W } } bind Radiobutton <Return> { if {!$tk_strictMotif} { tk::CheckRadioInvoke %W } } bind Checkbutton <Button-1> { tk::CheckInvoke %W } bind Radiobutton <Button-1> { tk::CheckRadioInvoke %W } bind Checkbutton <Enter> { tk::CheckEnter %W } bind Radiobutton <Enter> { tk::ButtonEnter %W |
︙ | ︙ | |||
123 124 125 126 127 128 129 | bind Button <FocusIn> {} bind Button <Enter> { tk::ButtonEnter %W } bind Button <Leave> { tk::ButtonLeave %W } | | | 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 | bind Button <FocusIn> {} bind Button <Enter> { tk::ButtonEnter %W } bind Button <Leave> { tk::ButtonLeave %W } bind Button <Button-1> { tk::ButtonDown %W } bind Button <ButtonRelease-1> { tk::ButtonUp %W } bind Checkbutton <FocusIn> {} |
︙ | ︙ |
Changes to library/clrpick.tcl.
︙ | ︙ | |||
312 313 314 315 316 317 318 | grid columnconfigure $botFrame {0 4} -weight 1 -uniform space grid columnconfigure $botFrame {1 3} -weight 1 -uniform button grid columnconfigure $botFrame 2 -weight 2 -uniform space pack $botFrame -side bottom -fill x # Accelerator bindings bind $lab <<AltUnderlined>> [list focus $ent] | | | 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 | grid columnconfigure $botFrame {0 4} -weight 1 -uniform space grid columnconfigure $botFrame {1 3} -weight 1 -uniform button grid columnconfigure $botFrame 2 -weight 2 -uniform space pack $botFrame -side bottom -fill x # Accelerator bindings bind $lab <<AltUnderlined>> [list focus $ent] bind $w <Escape> [list tk::ButtonInvoke $data(cancelBtn)] bind $w <Alt-Key> [list tk::AltKeyInDialog $w %A] wm protocol $w WM_DELETE_WINDOW [list tk::dialog::color::CancelCmd $w] bind $lab <Destroy> [list tk::dialog::color::CancelCmd $w] } # ::tk::dialog::color::SetRGBValue -- |
︙ | ︙ | |||
392 393 394 395 396 397 398 | # Delete the selector if it exists if {[info exists data($c,index)]} { $sel delete $data($c,index) } # Draw the selection polygons CreateSelector $w $sel $c | | | | | 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 | # Delete the selector if it exists if {[info exists data($c,index)]} { $sel delete $data($c,index) } # Draw the selection polygons CreateSelector $w $sel $c $sel bind $data($c,index) <Button-1> \ [list tk::dialog::color::StartMove $w $sel $c %x $data(selPad) 1] $sel bind $data($c,index) <B1-Motion> \ [list tk::dialog::color::MoveSelector $w $sel $c %x $data(selPad)] $sel bind $data($c,index) <ButtonRelease-1> \ [list tk::dialog::color::ReleaseMouse $w $sel $c %x $data(selPad)] set height [winfo height $col] # Create an invisible region under the colorstrip to catch mouse clicks # that aren't on the selector. set data($c,clickRegion) [$sel create rectangle 0 0 \ $data(canvasWidth) $height -fill {} -outline {}] bind $col <Button-1> \ [list tk::dialog::color::StartMove $w $sel $c %x $data(colorPad)] bind $col <B1-Motion> \ [list tk::dialog::color::MoveSelector $w $sel $c %x $data(colorPad)] bind $col <ButtonRelease-1> \ [list tk::dialog::color::ReleaseMouse $w $sel $c %x $data(colorPad)] $sel bind $data($c,clickRegion) <Button-1> \ [list tk::dialog::color::StartMove $w $sel $c %x $data(selPad)] $sel bind $data($c,clickRegion) <B1-Motion> \ [list tk::dialog::color::MoveSelector $w $sel $c %x $data(selPad)] $sel bind $data($c,clickRegion) <ButtonRelease-1> \ [list tk::dialog::color::ReleaseMouse $w $sel $c %x $data(selPad)] } else { # l is the canvas index of the first colorbar. |
︙ | ︙ |
Changes to library/console.tcl.
︙ | ︙ | |||
412 413 414 415 416 417 418 | bindtags $w [list $w Console PostConsole [winfo toplevel $w] all] ## Get all Text bindings into Console foreach ev [bind Text] { bind Console $ev [bind Text $ev] } ## We really didn't want the newline insertion... | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 | bindtags $w [list $w Console PostConsole [winfo toplevel $w] all] ## Get all Text bindings into Console foreach ev [bind Text] { bind Console $ev [bind Text $ev] } ## We really didn't want the newline insertion... bind Console <Control-o> {} ## ...or any Control-v binding (would block <<Paste>>) bind Console <Control-v> {} # For the moment, transpose isn't enabled until the console # gets and overhaul of how it handles input -- hobbs bind Console <Control-t> {} # Ignore all Alt, Meta, and Control keypresses unless explicitly bound. # Otherwise, if a widget binding for one of these is defined, the # <Keypress> class binding will also fire and insert the character # which is wrong. bind Console <Alt-Key> {# nothing } bind Console <Meta-Key> {# nothing} bind Console <Control-Key> {# nothing} foreach {ev key} { <<Console_NextImmediate>> <Control-n> <<Console_PrevImmediate>> <Control-p> <<Console_PrevSearch>> <Control-r> <<Console_NextSearch>> <Control-s> <<Console_Expand>> <Tab> <<Console_Expand>> <Escape> <<Console_ExpandFile>> <Control-Shift-F> <<Console_ExpandProc>> <Control-Shift-P> <<Console_ExpandVar>> <Control-Shift-V> <<Console_Tab>> <Control-i> <<Console_Tab>> <Meta-i> <<Console_Eval>> <Return> <<Console_Eval>> <KP_Enter> <<Console_Clear>> <Control-l> <<Console_KillLine>> <Control-k> <<Console_Transpose>> <Control-t> <<Console_ClearLine>> <Control-u> <<Console_SaveCommand>> <Control-z> <<Console_FontSizeIncr>> <Control-plus> <<Console_FontSizeDecr>> <Control-minus> } { event add $ev $key bind Console $key {} } if {[tk windowingsystem] eq "aqua"} { foreach {ev key} { <<Console_FontSizeIncr>> <Command-plus> <<Console_FontSizeDecr>> <Command-minus> } { event add $ev $key bind Console $key {} } if {$::tk::console::useFontchooser} { bind Console <Command-t> [list ::tk::console::FontchooserToggle] } } bind Console <<Console_Expand>> { if {[%W compare insert > promptEnd]} { ::tk::console::Expand %W } } |
︙ | ︙ | |||
583 584 585 586 587 588 589 | } bind Console <<NextLine>> { tk::ConsoleHistory next } bind Console <Insert> { catch {tk::ConsoleInsert %W [::tk::GetSelection %W PRIMARY]} } | | | 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 | } bind Console <<NextLine>> { tk::ConsoleHistory next } bind Console <Insert> { catch {tk::ConsoleInsert %W [::tk::GetSelection %W PRIMARY]} } bind Console <Key> { tk::ConsoleInsert %W %A } bind Console <F9> { eval destroy [winfo child .] source [file join $tk_library console.tcl] } if {[tk windowingsystem] eq "aqua"} { |
︙ | ︙ | |||
625 626 627 628 629 630 631 | bind Console <<Console_FitScreenWidth>> { ::tk::console::FitScreenWidth %W } ## ## Bindings for doing special things based on certain keys ## | | | | | | | 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 | bind Console <<Console_FitScreenWidth>> { ::tk::console::FitScreenWidth %W } ## ## Bindings for doing special things based on certain keys ## bind PostConsole <parenright> { if {"\\" ne [%W get insert-2c]} { ::tk::console::MatchPair %W \( \) promptEnd } } bind PostConsole <bracketright> { if {"\\" ne [%W get insert-2c]} { ::tk::console::MatchPair %W \[ \] promptEnd } } bind PostConsole <braceright> { if {"\\" ne [%W get insert-2c]} { ::tk::console::MatchPair %W \{ \} promptEnd } } bind PostConsole <quotedbl> { if {"\\" ne [%W get insert-2c]} { ::tk::console::MatchQuote %W promptEnd } } bind PostConsole <Key> { if {"%A" ne ""} { ::tk::console::TagProc %W } } } # ::tk::ConsoleInsert -- |
︙ | ︙ |
Changes to library/entry.tcl.
︙ | ︙ | |||
70 71 72 73 74 75 76 | bind Entry <<TraverseIn>> { %W selection range 0 end %W icursor end } # Standard Motif bindings: | | | | | | | | | 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 | bind Entry <<TraverseIn>> { %W selection range 0 end %W icursor end } # Standard Motif bindings: bind Entry <Button-1> { tk::EntryButton1 %W %x %W selection clear } bind Entry <B1-Motion> { set tk::Priv(x) %x tk::EntryMouseSelect %W %x } bind Entry <Double-Button-1> { set tk::Priv(selectMode) word tk::EntryMouseSelect %W %x catch {%W icursor sel.last} } bind Entry <Triple-Button-1> { set tk::Priv(selectMode) line tk::EntryMouseSelect %W %x catch {%W icursor sel.last} } bind Entry <Shift-Button-1> { set tk::Priv(selectMode) char %W selection adjust @%x } bind Entry <Double-Shift-Button-1> { set tk::Priv(selectMode) word tk::EntryMouseSelect %W %x } bind Entry <Triple-Shift-Button-1> { set tk::Priv(selectMode) line tk::EntryMouseSelect %W %x } bind Entry <B1-Leave> { set tk::Priv(x) %x tk::EntryAutoScan %W } bind Entry <B1-Enter> { tk::CancelRepeat } bind Entry <ButtonRelease-1> { tk::CancelRepeat } bind Entry <Control-Button-1> { %W icursor @%x } bind Entry <<PrevChar>> { tk::EntrySetCursor %W [expr {[%W index insert] - 1}] } bind Entry <<NextChar>> { |
︙ | ︙ | |||
186 187 188 189 190 191 192 | } bind Entry <<SelectAll>> { %W selection range 0 end } bind Entry <<SelectNone>> { %W selection clear } | | | | | | | | 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 | } bind Entry <<SelectAll>> { %W selection range 0 end } bind Entry <<SelectNone>> { %W selection clear } bind Entry <Key> { tk::CancelRepeat tk::EntryInsert %W %A } # Ignore all Alt, Meta, and Control keypresses unless explicitly bound. # Otherwise, if a widget binding for one of these is defined, the # <Key> class binding will also fire and insert the character, # which is wrong. Ditto for Escape, Return, and Tab. bind Entry <Alt-Key> {# nothing} bind Entry <Meta-Key> {# nothing} bind Entry <Control-Key> {# nothing} bind Entry <Escape> {# nothing} bind Entry <Return> {# nothing} bind Entry <KP_Enter> {# nothing} bind Entry <Tab> {# nothing} bind Entry <Prior> {# nothing} bind Entry <Next> {# nothing} if {[tk windowingsystem] eq "aqua"} { bind Entry <Command-Key> {# nothing} } # Tk-on-Cocoa generates characters for these two keys. [Bug 2971663] bind Entry <<NextLine>> {# nothing} bind Entry <<PrevLine>> {# nothing} # On Windows, paste is done using Shift-Insert. Shift-Insert already # generates the <<Paste>> event, so we don't need to do anything here. |
︙ | ︙ | |||
289 290 291 292 293 294 295 | } bind Entry <<TkAccentBackspace>> { tk::EntryBackspace %W } # A few additional bindings of my own. | | | 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 | } bind Entry <<TkAccentBackspace>> { tk::EntryBackspace %W } # A few additional bindings of my own. bind Entry <Button-2> { if {!$tk_strictMotif} { ::tk::EntryScanMark %W %x } } bind Entry <B2-Motion> { if {!$tk_strictMotif} { ::tk::EntryScanDrag %W %x |
︙ | ︙ |
Changes to library/iconlist.tcl.
︙ | ︙ | |||
429 430 431 432 433 434 435 | set fill $fg } # Creates the event bindings. # bind $canvas <Configure> [namespace code {my WhenIdle Arrange}] | | | | | | | | | | | | 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 | set fill $fg } # Creates the event bindings. # bind $canvas <Configure> [namespace code {my WhenIdle Arrange}] bind $canvas <Button-1> [namespace code {my Btn1 %x %y}] bind $canvas <B1-Motion> [namespace code {my Motion1 %x %y}] bind $canvas <B1-Leave> [namespace code {my Leave1 %x %y}] bind $canvas <Control-Button-1> [namespace code {my CtrlBtn1 %x %y}] bind $canvas <Shift-Button-1> [namespace code {my ShiftBtn1 %x %y}] bind $canvas <B1-Enter> [list tk::CancelRepeat] bind $canvas <ButtonRelease-1> [list tk::CancelRepeat] bind $canvas <Double-ButtonRelease-1> \ [namespace code {my Double1 %x %y}] bind $canvas <Control-B1-Motion> {;} bind $canvas <Shift-B1-Motion> [namespace code {my ShiftMotion1 %x %y}] if {[tk windowingsystem] eq "aqua"} { bind $canvas <Shift-MouseWheel> [namespace code {my MouseWheel [expr {40 * (%D)}]}] bind $canvas <Option-Shift-MouseWheel> [namespace code {my MouseWheel [expr {400 * (%D)}]}] } else { bind $canvas <Shift-MouseWheel> [namespace code {my MouseWheel %D}] } if {[tk windowingsystem] eq "x11"} { bind $canvas <Shift-Button-4> [namespace code {my MouseWheel 120}] bind $canvas <Shift-Button-5> [namespace code {my MouseWheel -120}] bind $canvas <Button-6> [namespace code {my MouseWheel 120}] bind $canvas <Button-7> [namespace code {my MouseWheel -120}] } bind $canvas <<PrevLine>> [namespace code {my UpDown -1}] bind $canvas <<NextLine>> [namespace code {my UpDown 1}] bind $canvas <<PrevChar>> [namespace code {my LeftRight -1}] bind $canvas <<NextChar>> [namespace code {my LeftRight 1}] bind $canvas <Return> [namespace code {my ReturnKey}] bind $canvas <Key> [namespace code {my KeyPress %A}] bind $canvas <Control-Key> ";" bind $canvas <Alt-Key> ";" bind $canvas <FocusIn> [namespace code {my FocusIn}] bind $canvas <FocusOut> [namespace code {my FocusOut}] return $w } |
︙ | ︙ |
Changes to library/listbox.tcl.
︙ | ︙ | |||
27 28 29 30 31 32 33 | # Note: the check for existence of %W below is because this binding # is sometimes invoked after a window has been deleted (e.g. because # there is a double-click binding on the widget that deletes it). Users # can put "break"s in their bindings to avoid the error, but this check # makes that unnecessary. | | | | | | 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | # Note: the check for existence of %W below is because this binding # is sometimes invoked after a window has been deleted (e.g. because # there is a double-click binding on the widget that deletes it). Users # can put "break"s in their bindings to avoid the error, but this check # makes that unnecessary. bind Listbox <Button-1> { if {[winfo exists %W]} { tk::ListboxBeginSelect %W [%W index @%x,%y] 1 } } # Ignore double clicks so that users can define their own behaviors. # Among other things, this prevents errors if the user deletes the # listbox on a double click. bind Listbox <Double-Button-1> { # Empty script } bind Listbox <B1-Motion> { set tk::Priv(x) %x set tk::Priv(y) %y tk::ListboxMotion %W [%W index @%x,%y] } bind Listbox <ButtonRelease-1> { tk::CancelRepeat %W activate @%x,%y } bind Listbox <Shift-Button-1> { tk::ListboxBeginExtend %W [%W index @%x,%y] } bind Listbox <Control-Button-1> { tk::ListboxBeginToggle %W [%W index @%x,%y] } bind Listbox <B1-Leave> { set tk::Priv(x) %x set tk::Priv(y) %y tk::ListboxAutoScan %W } |
︙ | ︙ | |||
165 166 167 168 169 170 171 | %W selection clear 0 end tk::FireListboxSelectEvent %W } } # Additional Tk bindings that aren't part of the Motif look and feel: | | | 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 | %W selection clear 0 end tk::FireListboxSelectEvent %W } } # Additional Tk bindings that aren't part of the Motif look and feel: bind Listbox <Button-2> { %W scan mark %x %y } bind Listbox <B2-Motion> { %W scan dragto %x %y } # The MouseWheel will typically only fire on Windows and Mac OS X. |
︙ | ︙ | |||
217 218 219 220 221 222 223 | } if {[tk windowingsystem] eq "x11"} { # Support for mousewheels on Linux/Unix commonly comes through mapping # the wheel to the extended buttons. If you have a mousewheel, find # Linux configuration info at: # http://linuxreviews.org/howtos/xfree/mouse/ | | | | | | | | 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 | } if {[tk windowingsystem] eq "x11"} { # Support for mousewheels on Linux/Unix commonly comes through mapping # the wheel to the extended buttons. If you have a mousewheel, find # Linux configuration info at: # http://linuxreviews.org/howtos/xfree/mouse/ bind Listbox <Button-4> { if {!$tk_strictMotif} { %W yview scroll -5 units } } bind Listbox <Shift-Button-4> { if {!$tk_strictMotif} { %W xview scroll -5 units } } bind Listbox <Button-5> { if {!$tk_strictMotif} { %W yview scroll 5 units } } bind Listbox <Shift-Button-5> { if {!$tk_strictMotif} { %W xview scroll 5 units } } bind Listbox <Button-6> { if {!$tk_strictMotif} { %W xview scroll -5 units } } bind Listbox <Button-7> { if {!$tk_strictMotif} { %W xview scroll 5 units } } } # ::tk::ListboxBeginSelect -- |
︙ | ︙ |
Changes to library/menu.tcl.
︙ | ︙ | |||
84 85 86 87 88 89 90 | bind Menubutton <FocusIn> {} bind Menubutton <Enter> { tk::MbEnter %W } bind Menubutton <Leave> { tk::MbLeave %W } | | | 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 | bind Menubutton <FocusIn> {} bind Menubutton <Enter> { tk::MbEnter %W } bind Menubutton <Leave> { tk::MbLeave %W } bind Menubutton <Button-1> { if {$tk::Priv(inMenubutton) ne ""} { tk::MbPost $tk::Priv(inMenubutton) %X %Y } } bind Menubutton <Motion> { tk::MbMotion %W up %X %Y } |
︙ | ︙ | |||
134 135 136 137 138 139 140 | bind Menu <Leave> { tk::MenuLeave %W %X %Y %s } bind Menu <Motion> { tk::MenuMotion %W %x %y %s } | | | 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 | bind Menu <Leave> { tk::MenuLeave %W %X %Y %s } bind Menu <Motion> { tk::MenuMotion %W %x %y %s } bind Menu <Button> { tk::MenuButtonDown %W } bind Menu <ButtonRelease> { tk::MenuInvoke %W 1 } bind Menu <space> { tk::MenuInvoke %W 0 |
︙ | ︙ | |||
164 165 166 167 168 169 170 | } bind Menu <<PrevLine>> { tk::MenuUpArrow %W } bind Menu <<NextLine>> { tk::MenuDownArrow %W } | | | | | 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 | } bind Menu <<PrevLine>> { tk::MenuUpArrow %W } bind Menu <<NextLine>> { tk::MenuDownArrow %W } bind Menu <Key> { tk::TraverseWithinMenu %W %A break } # The following bindings apply to all windows, and are used to # implement keyboard menu traversal. if {[tk windowingsystem] eq "x11"} { bind all <Alt-Key> { tk::TraverseToMenu %W %A } bind all <F10> { tk::FirstMenu %W } } else { bind Menubutton <Alt-Key> { tk::TraverseToMenu %W %A } bind Menubutton <F10> { tk::FirstMenu %W } } |
︙ | ︙ |
Changes to library/obsolete.tcl.
︙ | ︙ | |||
99 100 101 102 103 104 105 | if {[tk windowingsystem] ne "aqua"} { option add *Listbox.borderWidth 2 $prio; # 1 } if {[tk windowingsystem] eq "x11"} { option add *Listbox.selectBorderWidth 1 $prio; # 0 } # Remove focus into Listbox added for 8.5 | | | 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 | if {[tk windowingsystem] ne "aqua"} { option add *Listbox.borderWidth 2 $prio; # 1 } if {[tk windowingsystem] eq "x11"} { option add *Listbox.selectBorderWidth 1 $prio; # 0 } # Remove focus into Listbox added for 8.5 bind Listbox <Button-1> { if {[winfo exists %W]} { tk::ListboxBeginSelect %W [%W index @%x,%y] } } } proc ::tk::classic::restore_menu {args} { |
︙ | ︙ |
Changes to library/scale.tcl.
︙ | ︙ | |||
30 31 32 33 34 35 36 | if {$tk_strictMotif} { %W configure -activebackground $tk::Priv(activeBg) } if {[%W cget -state] eq "active"} { %W configure -state normal } } | | | | | | 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | if {$tk_strictMotif} { %W configure -activebackground $tk::Priv(activeBg) } if {[%W cget -state] eq "active"} { %W configure -state normal } } bind Scale <Button-1> { tk::ScaleButtonDown %W %x %y } bind Scale <B1-Motion> { tk::ScaleDrag %W %x %y } bind Scale <B1-Leave> { } bind Scale <B1-Enter> { } bind Scale <ButtonRelease-1> { tk::CancelRepeat tk::ScaleEndDrag %W tk::ScaleActivate %W %x %y } bind Scale <Button-2> { tk::ScaleButton2Down %W %x %y } bind Scale <B2-Motion> { tk::ScaleDrag %W %x %y } bind Scale <B2-Leave> { } bind Scale <B2-Enter> { } bind Scale <ButtonRelease-2> { tk::CancelRepeat tk::ScaleEndDrag %W tk::ScaleActivate %W %x %y } if {[tk windowingsystem] eq "win32"} { # On Windows do the same with button 3, as that is the right mouse button bind Scale <Button-3> [bind Scale <Button-2>] bind Scale <B3-Motion> [bind Scale <B2-Motion>] bind Scale <B3-Leave> [bind Scale <B2-Leave>] bind Scale <B3-Enter> [bind Scale <B2-Enter>] bind Scale <ButtonRelease-3> [bind Scale <ButtonRelease-2>] } bind Scale <Control-Button-1> { tk::ScaleControlPress %W %x %y } bind Scale <<PrevLine>> { tk::ScaleIncrement %W up little noRepeat } bind Scale <<NextLine>> { tk::ScaleIncrement %W down little noRepeat |
︙ | ︙ |
Changes to library/scrlbar.tcl.
︙ | ︙ | |||
35 36 37 38 39 40 41 | bind Scrollbar <Leave> { if {$tk_strictMotif && [info exists tk::Priv(activeBg)]} { %W configure -activebackground $tk::Priv(activeBg) } %W activate {} } | | | | | | | | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | bind Scrollbar <Leave> { if {$tk_strictMotif && [info exists tk::Priv(activeBg)]} { %W configure -activebackground $tk::Priv(activeBg) } %W activate {} } bind Scrollbar <Button-1> { tk::ScrollButtonDown %W %x %y } bind Scrollbar <B1-Motion> { tk::ScrollDrag %W %x %y } bind Scrollbar <B1-B2-Motion> { tk::ScrollDrag %W %x %y } bind Scrollbar <ButtonRelease-1> { tk::ScrollButtonUp %W %x %y } bind Scrollbar <B1-Leave> { # Prevents <Leave> binding from being invoked. } bind Scrollbar <B1-Enter> { # Prevents <Enter> binding from being invoked. } bind Scrollbar <Button-2> { tk::ScrollButton2Down %W %x %y } bind Scrollbar <B1-Button-2> { # Do nothing, since button 1 is already down. } bind Scrollbar <B2-Button-1> { # Do nothing, since button 2 is already down. } bind Scrollbar <B2-Motion> { tk::ScrollDrag %W %x %y } bind Scrollbar <ButtonRelease-2> { tk::ScrollButtonUp %W %x %y } bind Scrollbar <B1-ButtonRelease-2> { # Do nothing: B1 release will handle it. } bind Scrollbar <B2-ButtonRelease-1> { # Do nothing: B2 release will handle it. } bind Scrollbar <B2-Leave> { # Prevents <Leave> binding from being invoked. } bind Scrollbar <B2-Enter> { # Prevents <Enter> binding from being invoked. } bind Scrollbar <Control-Button-1> { tk::ScrollTopBottom %W %x %y } bind Scrollbar <Control-Button-2> { tk::ScrollTopBottom %W %x %y } bind Scrollbar <<PrevLine>> { tk::ScrollByUnits %W v -1 } bind Scrollbar <<NextLine>> { |
︙ | ︙ | |||
162 163 164 165 166 167 168 | } else { tk::ScrollByUnits %W h [expr {(29-%D)/30}] } } } if {[tk windowingsystem] eq "x11"} { | | | | | | | | 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 | } else { tk::ScrollByUnits %W h [expr {(29-%D)/30}] } } } if {[tk windowingsystem] eq "x11"} { bind Scrollbar <Button-4> {tk::ScrollByUnits %W v -5} bind Scrollbar <Button-5> {tk::ScrollByUnits %W v 5} bind Scrollbar <Shift-Button-4> {tk::ScrollByUnits %W h -5} bind Scrollbar <Shift-Button-5> {tk::ScrollByUnits %W h 5} bind Scrollbar <Button-6> {tk::ScrollByUnits %W h -5} bind Scrollbar <Button-7> {tk::ScrollByUnits %W h 5} } # tk::ScrollButtonDown -- # This procedure is invoked when a button is pressed in a scrollbar. # It changes the way the scrollbar is displayed and takes actions # depending on where the mouse is. # |
︙ | ︙ |
Changes to library/spinbox.tcl.
︙ | ︙ | |||
75 76 77 78 79 80 81 | bind Spinbox <<TraverseIn>> { %W selection range 0 end %W icursor end } # Standard Motif bindings: | | | | | | | | | 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 | bind Spinbox <<TraverseIn>> { %W selection range 0 end %W icursor end } # Standard Motif bindings: bind Spinbox <Button-1> { ::tk::spinbox::ButtonDown %W %x %y } bind Spinbox <B1-Motion> { ::tk::spinbox::Motion %W %x %y } bind Spinbox <Double-Button-1> { ::tk::spinbox::ArrowPress %W %x %y set tk::Priv(selectMode) word ::tk::spinbox::MouseSelect %W %x sel.first } bind Spinbox <Triple-Button-1> { ::tk::spinbox::ArrowPress %W %x %y set tk::Priv(selectMode) line ::tk::spinbox::MouseSelect %W %x 0 } bind Spinbox <Shift-Button-1> { set tk::Priv(selectMode) char %W selection adjust @%x } bind Spinbox <Double-Shift-Button-1> { set tk::Priv(selectMode) word ::tk::spinbox::MouseSelect %W %x } bind Spinbox <Triple-Shift-Button-1> { set tk::Priv(selectMode) line ::tk::spinbox::MouseSelect %W %x } bind Spinbox <B1-Leave> { set tk::Priv(x) %x ::tk::spinbox::AutoScan %W } bind Spinbox <B1-Enter> { tk::CancelRepeat } bind Spinbox <ButtonRelease-1> { ::tk::spinbox::ButtonUp %W %x %y } bind Spinbox <Control-Button-1> { %W icursor @%x } bind Spinbox <<PrevLine>> { %W invoke buttonup } bind Spinbox <<NextLine>> { |
︙ | ︙ | |||
196 197 198 199 200 201 202 | } bind Spinbox <<SelectAll>> { %W selection range 0 end } bind Spinbox <<SelectNone>> { %W selection clear } | | | | | | | | 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 | } bind Spinbox <<SelectAll>> { %W selection range 0 end } bind Spinbox <<SelectNone>> { %W selection clear } bind Spinbox <Key> { ::tk::EntryInsert %W %A } # Ignore all Alt, Meta, and Control keypresses unless explicitly bound. # Otherwise, if a widget binding for one of these is defined, the # <Key> class binding will also fire and insert the character, # which is wrong. Ditto for Escape, Return, and Tab. bind Spinbox <Alt-Key> {# nothing} bind Spinbox <Meta-Key> {# nothing} bind Spinbox <Control-Key> {# nothing} bind Spinbox <Escape> {# nothing} bind Spinbox <Return> {# nothing} bind Spinbox <KP_Enter> {# nothing} bind Spinbox <Tab> {# nothing} bind Spinbox <Prior> {# nothing} bind Spinbox <Next> {# nothing} if {[tk windowingsystem] eq "aqua"} { bind Spinbox <Command-Key> {# nothing} } # On Windows, paste is done using Shift-Insert. Shift-Insert already # generates the <<Paste>> event, so we don't need to do anything here. if {[tk windowingsystem] ne "win32"} { bind Spinbox <Insert> { catch {::tk::EntryInsert %W [::tk::GetSelection %W PRIMARY]} |
︙ | ︙ | |||
276 277 278 279 280 281 282 | if {!$tk_strictMotif} { %W delete [::tk::EntryPreviousWord %W insert] insert } } # A few additional bindings of my own. | | | 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 | if {!$tk_strictMotif} { %W delete [::tk::EntryPreviousWord %W insert] insert } } # A few additional bindings of my own. bind Spinbox <Button-2> { if {!$tk_strictMotif} { ::tk::EntryScanMark %W %x } } bind Spinbox <B2-Motion> { if {!$tk_strictMotif} { ::tk::EntryScanDrag %W %x |
︙ | ︙ |
Changes to library/text.tcl.
︙ | ︙ | |||
38 39 40 41 42 43 44 | # The code below creates the default class bindings for text widgets. #------------------------------------------------------------------------- # Standard Motif bindings: | | | | | | | | | | 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 | # The code below creates the default class bindings for text widgets. #------------------------------------------------------------------------- # Standard Motif bindings: bind Text <Button-1> { tk::TextButton1 %W %x %y %W tag remove sel 0.0 end } bind Text <B1-Motion> { set tk::Priv(x) %x set tk::Priv(y) %y tk::TextSelectTo %W %x %y } bind Text <Double-Button-1> { set tk::Priv(selectMode) word tk::TextSelectTo %W %x %y catch {%W mark set insert sel.first} } bind Text <Triple-Button-1> { set tk::Priv(selectMode) line tk::TextSelectTo %W %x %y catch {%W mark set insert sel.first} } bind Text <Shift-Button-1> { tk::TextResetAnchor %W @%x,%y set tk::Priv(selectMode) char tk::TextSelectTo %W %x %y } bind Text <Double-Shift-Button-1> { set tk::Priv(selectMode) word tk::TextSelectTo %W %x %y 1 } bind Text <Triple-Shift-Button-1> { set tk::Priv(selectMode) line tk::TextSelectTo %W %x %y } bind Text <B1-Leave> { set tk::Priv(x) %x set tk::Priv(y) %y tk::TextAutoScan %W } bind Text <B1-Enter> { tk::CancelRepeat } bind Text <ButtonRelease-1> { tk::CancelRepeat } bind Text <Control-Button-1> { %W mark set insert @%x,%y # An operation that moves the insert mark without making it # one end of the selection must insert an autoseparator if {[%W cget -autoseparators]} { %W edit separator } } # stop an accidental double click triggering <Double-Button-1> bind Text <Double-Control-Button-1> { # nothing } # stop an accidental movement triggering <B1-Motion> bind Text <Control-B1-Motion> { # nothing } bind Text <<PrevChar>> { tk::TextSetCursor %W insert-1displayindices } bind Text <<NextChar>> { tk::TextSetCursor %W insert+1displayindices |
︙ | ︙ | |||
288 289 290 291 292 293 294 | || !$tk::Priv(mouseMoved)} { tk::TextPasteSelection %W %x %y } } bind Text <Insert> { catch {tk::TextInsert %W [::tk::GetSelection %W PRIMARY]} } | | | | | | | | 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 | || !$tk::Priv(mouseMoved)} { tk::TextPasteSelection %W %x %y } } bind Text <Insert> { catch {tk::TextInsert %W [::tk::GetSelection %W PRIMARY]} } bind Text <Key> { tk::TextInsert %W %A } # Ignore all Alt, Meta, and Control keypresses unless explicitly bound. # Otherwise, if a widget binding for one of these is defined, the # <Key> class binding will also fire and insert the character, # which is wrong. Ditto for <Escape>. bind Text <Alt-Key> {# nothing } bind Text <Meta-Key> {# nothing} bind Text <Control-Key> {# nothing} bind Text <Escape> {# nothing} bind Text <KP_Enter> {# nothing} if {[tk windowingsystem] eq "aqua"} { bind Text <Command-Key> {# nothing} } # Additional emacs-like bindings: bind Text <Control-d> { if {!$tk_strictMotif && [%W compare end != insert+1c]} { %W delete insert |
︙ | ︙ | |||
425 426 427 428 429 430 431 | bind Text <Control-h> { if {!$tk_strictMotif && [%W compare insert != 1.0]} { %W delete insert-1c %W see insert } } | | | 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 | bind Text <Control-h> { if {!$tk_strictMotif && [%W compare insert != 1.0]} { %W delete insert-1c %W see insert } } bind Text <Button-2> { if {!$tk_strictMotif} { tk::TextScanMark %W %x %y } } bind Text <B2-Motion> { if {!$tk_strictMotif} { tk::TextScanDrag %W %x %y |
︙ | ︙ | |||
483 484 485 486 487 488 489 | } if {[tk windowingsystem] eq "x11"} { # Support for mousewheels on Linux/Unix commonly comes through mapping # the wheel to the extended buttons. If you have a mousewheel, find # Linux configuration info at: # http://linuxreviews.org/howtos/xfree/mouse/ | | | | | | | | 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 | } if {[tk windowingsystem] eq "x11"} { # Support for mousewheels on Linux/Unix commonly comes through mapping # the wheel to the extended buttons. If you have a mousewheel, find # Linux configuration info at: # http://linuxreviews.org/howtos/xfree/mouse/ bind Text <Button-4> { if {!$tk_strictMotif} { %W yview scroll -50 pixels } } bind Text <Button-5> { if {!$tk_strictMotif} { %W yview scroll 50 pixels } } bind Text <Shift-Button-4> { if {!$tk_strictMotif} { %W xview scroll -50 pixels } } bind Text <Shift-Button-5> { if {!$tk_strictMotif} { %W xview scroll 50 pixels } } bind Text <Button-6> { if {!$tk_strictMotif} { %W xview scroll -50 pixels } } bind Text <Button-7> { if {!$tk_strictMotif} { %W xview scroll 50 pixels } } } # ::tk::TextClosestGap -- |
︙ | ︙ |
Changes to library/tk.tcl.
︙ | ︙ | |||
302 303 304 305 306 307 308 | if {$name} { set op delete } else { set op add } | | | | | | | | | | | | | | | | | 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 | if {$name} { set op delete } else { set op add } event $op <<Cut>> <Control-w> <Control-Lock-W> <Shift-Delete> event $op <<Copy>> <Meta-w> <Meta-Lock-W> <Control-Insert> event $op <<Paste>> <Control-y> <Control-Lock-Y> <Shift-Insert> event $op <<PrevChar>> <Control-b> <Control-Lock-B> event $op <<NextChar>> <Control-f> <Control-Lock-F> event $op <<PrevLine>> <Control-p> <Control-Lock-P> event $op <<NextLine>> <Control-n> <Control-Lock-N> event $op <<LineStart>> <Control-a> <Control-Lock-A> event $op <<LineEnd>> <Control-e> <Control-Lock-E> event $op <<SelectPrevChar>> <Control-B> <Control-Lock-b> event $op <<SelectNextChar>> <Control-F> <Control-Lock-f> event $op <<SelectPrevLine>> <Control-P> <Control-Lock-p> event $op <<SelectNextLine>> <Control-N> <Control-Lock-n> event $op <<SelectLineStart>> <Control-A> <Control-Lock-a> event $op <<SelectLineEnd>> <Control-E> <Control-Lock-e> } #---------------------------------------------------------------------- # Define common dialogs on platforms where they are not implemented # using compiled code. #---------------------------------------------------------------------- |
︙ | ︙ | |||
364 365 366 367 368 369 370 | #---------------------------------------------------------------------- # Define the set of common virtual events. #---------------------------------------------------------------------- switch -exact -- [tk windowingsystem] { "x11" { | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 | #---------------------------------------------------------------------- # Define the set of common virtual events. #---------------------------------------------------------------------- switch -exact -- [tk windowingsystem] { "x11" { event add <<Cut>> <Control-x> <F20> <Control-Lock-X> event add <<Copy>> <Control-c> <F16> <Control-Lock-C> event add <<Paste>> <Control-v> <F18> <Control-Lock-V> event add <<PasteSelection>> <ButtonRelease-2> event add <<Undo>> <Control-z> <Control-Lock-Z> event add <<Redo>> <Control-Z> <Control-Lock-z> event add <<ContextMenu>> <Button-3> # On Darwin/Aqua, buttons from left to right are 1,3,2. On Darwin/X11 with recent # XQuartz as the X server, they are 1,2,3; other X servers may differ. event add <<SelectAll>> <Control-slash> event add <<SelectNone>> <Control-backslash> event add <<NextChar>> <Right> event add <<SelectNextChar>> <Shift-Right> event add <<PrevChar>> <Left> event add <<SelectPrevChar>> <Shift-Left> event add <<NextWord>> <Control-Right> event add <<SelectNextWord>> <Control-Shift-Right> event add <<PrevWord>> <Control-Left> event add <<SelectPrevWord>> <Control-Shift-Left> event add <<LineStart>> <Home> event add <<SelectLineStart>> <Shift-Home> event add <<LineEnd>> <End> event add <<SelectLineEnd>> <Shift-End> event add <<PrevLine>> <Up> event add <<NextLine>> <Down> event add <<SelectPrevLine>> <Shift-Up> event add <<SelectNextLine>> <Shift-Down> event add <<PrevPara>> <Control-Up> event add <<NextPara>> <Control-Down> event add <<SelectPrevPara>> <Control-Shift-Up> event add <<SelectNextPara>> <Control-Shift-Down> event add <<ToggleSelection>> <Control-Button-1> # Some OS's define a goofy (as in, not <Shift-Tab>) keysym that is # returned when the user presses <Shift-Tab>. In order for tab # traversal to work, we have to add these keysyms to the PrevWindow # event. We use catch just in case the keysym isn't recognized. # This is needed for XFree86 systems catch { event add <<PrevWindow>> <ISO_Left_Tab> } # This seems to be correct on *some* HP systems. catch { event add <<PrevWindow>> <hpBackTab> } trace add variable ::tk_strictMotif write ::tk::EventMotifBindings set ::tk_strictMotif $::tk_strictMotif # On unix, we want to always display entry/text selection, # regardless of which window has focus set ::tk::AlwaysShowSelection 1 } "win32" { event add <<Cut>> <Control-x> <Shift-Delete> <Control-Lock-X> event add <<Copy>> <Control-c> <Control-Insert> <Control-Lock-C> event add <<Paste>> <Control-v> <Shift-Insert> <Control-Lock-V> event add <<PasteSelection>> <ButtonRelease-2> event add <<Undo>> <Control-z> <Control-Lock-Z> event add <<Redo>> <Control-y> <Control-Lock-Y> event add <<ContextMenu>> <Button-3> event add <<SelectAll>> <Control-slash> <Control-a> <Control-Lock-A> event add <<SelectNone>> <Control-backslash> event add <<NextChar>> <Right> event add <<SelectNextChar>> <Shift-Right> event add <<PrevChar>> <Left> event add <<SelectPrevChar>> <Shift-Left> event add <<NextWord>> <Control-Right> event add <<SelectNextWord>> <Control-Shift-Right> event add <<PrevWord>> <Control-Left> event add <<SelectPrevWord>> <Control-Shift-Left> event add <<LineStart>> <Home> event add <<SelectLineStart>> <Shift-Home> event add <<LineEnd>> <End> event add <<SelectLineEnd>> <Shift-End> event add <<PrevLine>> <Up> event add <<NextLine>> <Down> event add <<SelectPrevLine>> <Shift-Up> event add <<SelectNextLine>> <Shift-Down> event add <<PrevPara>> <Control-Up> event add <<NextPara>> <Control-Down> event add <<SelectPrevPara>> <Control-Shift-Up> event add <<SelectNextPara>> <Control-Shift-Down> event add <<ToggleSelection>> <Control-Button-1> } "aqua" { event add <<Cut>> <Command-x> <F2> <Command-Lock-X> event add <<Copy>> <Command-c> <F3> <Command-Lock-C> event add <<Paste>> <Command-v> <F4> <Command-Lock-V> event add <<PasteSelection>> <ButtonRelease-3> event add <<Clear>> <Clear> event add <<ContextMenu>> <Button-2> # Official bindings # See http://support.apple.com/kb/HT1343 event add <<SelectAll>> <Command-a> #Attach function keys not otherwise assigned to this event so they no-op - workaround for bug 0e6930dfe7 event add <<SelectNone>> <Option-Command-a> <F5> <F1> <F5> <F6> <F7> <F8> <F9> <F10> <F11> <F12> event add <<Undo>> <Command-z> <Command-Lock-Z> event add <<Redo>> <Shift-Command-z> <Shift-Command-Lock-z> event add <<NextChar>> <Right> <Control-f> <Control-Lock-F> event add <<SelectNextChar>> <Shift-Right> <Shift-Control-F> <Shift-Control-Lock-F> event add <<PrevChar>> <Left> <Control-b> <Control-Lock-B> event add <<SelectPrevChar>> <Shift-Left> <Shift-Control-B> <Shift-Control-Lock-B> event add <<NextWord>> <Option-Right> event add <<SelectNextWord>> <Shift-Option-Right> event add <<PrevWord>> <Option-Left> event add <<SelectPrevWord>> <Shift-Option-Left> event add <<LineStart>> <Home> <Command-Left> <Control-a> <Control-Lock-A> event add <<SelectLineStart>> <Shift-Home> <Shift-Command-Left> <Shift-Control-A> <Shift-Control-Lock-A> event add <<LineEnd>> <End> <Command-Right> <Control-e> <Control-Lock-E> event add <<SelectLineEnd>> <Shift-End> <Shift-Command-Right> <Shift-Control-E> <Shift-Control-Lock-E> event add <<PrevLine>> <Up> <Control-p> <Control-Lock-P> event add <<SelectPrevLine>> <Shift-Up> <Shift-Control-P> <Shift-Control-Lock-P> event add <<NextLine>> <Down> <Control-n> <Control-Lock-N> event add <<SelectNextLine>> <Shift-Down> <Shift-Control-N> <Shift-Control-Lock-N> # Not official, but logical extensions of above. Also derived from # bindings present in MS Word on OSX. event add <<PrevPara>> <Option-Up> event add <<NextPara>> <Option-Down> event add <<SelectPrevPara>> <Shift-Option-Up> event add <<SelectNextPara>> <Shift-Option-Down> event add <<ToggleSelection>> <Command-Button-1> } } # ---------------------------------------------------------------------- # Read in files that define all of the class bindings. # ---------------------------------------------------------------------- |
︙ | ︙ |
Changes to library/tkfbox.tcl.
︙ | ︙ | |||
459 460 461 462 463 464 465 | # Set up the event handlers that are common to Directory and File Dialogs # wm protocol $w WM_DELETE_WINDOW [list ::tk::dialog::file::CancelCmd $w] $data(upBtn) configure -command [list ::tk::dialog::file::UpDirCmd $w] $data(cancelBtn) configure -command [list ::tk::dialog::file::CancelCmd $w] | | | 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 | # Set up the event handlers that are common to Directory and File Dialogs # wm protocol $w WM_DELETE_WINDOW [list ::tk::dialog::file::CancelCmd $w] $data(upBtn) configure -command [list ::tk::dialog::file::UpDirCmd $w] $data(cancelBtn) configure -command [list ::tk::dialog::file::CancelCmd $w] bind $w <Escape> [list $data(cancelBtn) invoke] bind $w <Alt-Key> [list tk::AltKeyInDialog $w %A] # Set up event handlers specific to File or Directory Dialogs # if {$class eq "TkFDialog"} { bind $data(ent) <Return> [list ::tk::dialog::file::ActivateEnt $w] $data(okBtn) configure -command [list ::tk::dialog::file::OkCmd $w] |
︙ | ︙ |
Changes to library/ttk/button.tcl.
1 2 3 4 5 6 7 8 9 10 11 | # # Bindings for Buttons, Checkbuttons, and Radiobuttons. # # Notes: <Button1-Leave>, <Button1-Enter> only control the "pressed" # state; widgets remain "active" if the pointer is dragged out. # This doesn't seem to be conventional, but it's a nice way # to provide extra feedback while the grab is active. # (If the button is released off the widget, the grab deactivates and # we get a <Leave> event then, which turns off the "active" state) # # Normally, <ButtonRelease> and <ButtonN-Enter/Leave> events are | | | | | | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | # # Bindings for Buttons, Checkbuttons, and Radiobuttons. # # Notes: <Button1-Leave>, <Button1-Enter> only control the "pressed" # state; widgets remain "active" if the pointer is dragged out. # This doesn't seem to be conventional, but it's a nice way # to provide extra feedback while the grab is active. # (If the button is released off the widget, the grab deactivates and # we get a <Leave> event then, which turns off the "active" state) # # Normally, <ButtonRelease> and <ButtonN-Enter/Leave> events are # delivered to the widget which received the initial <Button> # event. However, Tk [grab]s (#1223103) and menu interactions # (#1222605) can interfere with this. To guard against spurious # <Button1-Enter> events, the <Button1-Enter> binding only sets # the pressed state if the button is currently active. # namespace eval ttk::button {} bind TButton <Enter> { %W instate !disabled {%W state active} } bind TButton <Leave> { %W state !active } bind TButton <space> { ttk::button::activate %W } bind TButton <<Invoke>> { ttk::button::activate %W } bind TButton <Button-1> \ { %W instate !disabled { ttk::clickToFocus %W; %W state pressed } } bind TButton <ButtonRelease-1> \ { %W instate pressed { %W state !pressed; %W instate !disabled { %W invoke } } } bind TButton <Button1-Leave> \ { %W state !pressed } bind TButton <Button1-Enter> \ { %W instate {active !disabled} { %W state pressed } } # Checkbuttons and Radiobuttons have the same bindings as Buttons: # ttk::copyBindings TButton TCheckbutton ttk::copyBindings TButton TRadiobutton # ...plus a few more: bind TRadiobutton <Up> { ttk::button::RadioTraverse %W -1 } bind TRadiobutton <Down> { ttk::button::RadioTraverse %W +1 } # bind TCheckbutton <plus> { %W select } # bind TCheckbutton <minus> { %W deselect } # activate -- # Simulate a button press: temporarily set the state to 'pressed', # then invoke the button. # proc ttk::button::activate {w} { $w instate disabled { return } |
︙ | ︙ |
Changes to library/ttk/combobox.tcl.
︙ | ︙ | |||
41 42 43 44 45 46 47 | ### Combobox bindings. # # Duplicate the Entry bindings, override if needed: # ttk::copyBindings TEntry TCombobox | | | | | | | | | | | | 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | ### Combobox bindings. # # Duplicate the Entry bindings, override if needed: # ttk::copyBindings TEntry TCombobox bind TCombobox <Down> { ttk::combobox::Post %W } bind TCombobox <Escape> { ttk::combobox::Unpost %W } bind TCombobox <Button-1> { ttk::combobox::Press "" %W %x %y } bind TCombobox <Shift-Button-1> { ttk::combobox::Press "s" %W %x %y } bind TCombobox <Double-Button-1> { ttk::combobox::Press "2" %W %x %y } bind TCombobox <Triple-Button-1> { ttk::combobox::Press "3" %W %x %y } bind TCombobox <B1-Motion> { ttk::combobox::Drag %W %x } bind TCombobox <Motion> { ttk::combobox::Motion %W %x %y } ttk::bindMouseWheel TCombobox [list ttk::combobox::Scroll %W] bind TCombobox <<TraverseIn>> { ttk::combobox::TraverseIn %W } ### Combobox listbox bindings. # bind ComboboxListbox <ButtonRelease-1> { ttk::combobox::LBSelected %W } bind ComboboxListbox <Return> { ttk::combobox::LBSelected %W } bind ComboboxListbox <Escape> { ttk::combobox::LBCancel %W } bind ComboboxListbox <Tab> { ttk::combobox::LBTab %W next } bind ComboboxListbox <<PrevWindow>> { ttk::combobox::LBTab %W prev } bind ComboboxListbox <Destroy> { ttk::combobox::LBCleanup %W } bind ComboboxListbox <Motion> { ttk::combobox::LBHover %W %x %y } bind ComboboxListbox <Map> { focus -force %W } switch -- [tk windowingsystem] { win32 { # Dismiss listbox when user switches to a different application. # NB: *only* do this on Windows (see #1814778) bind ComboboxListbox <FocusOut> { ttk::combobox::LBCancel %W } } } ### Combobox popdown window bindings. # bind ComboboxPopdown <Map> { ttk::combobox::MapPopdown %W } bind ComboboxPopdown <Unmap> { ttk::combobox::UnmapPopdown %W } bind ComboboxPopdown <Button> \ { ttk::combobox::Unpost [winfo parent %W] } ### Option database settings. # option add *TCombobox*Listbox.font TkTextFont widgetDefault option add *TCombobox*Listbox.relief flat widgetDefault |
︙ | ︙ | |||
102 103 104 105 106 107 108 | option add *TCombobox*Listbox.borderWidth 0 widgetDefault } } ### Binding procedures. # | | | 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 | option add *TCombobox*Listbox.borderWidth 0 widgetDefault } } ### Binding procedures. # ## Press $mode $x $y -- Button binding for comboboxes. # Either post/unpost the listbox, or perform Entry widget binding, # depending on widget state and location of button press. # proc ttk::combobox::Press {mode w x y} { variable State $w instate disabled { return } |
︙ | ︙ | |||
131 132 133 134 135 136 137 | } } else { Post $w } } ## Drag -- B1-Motion binding for comboboxes. | | | 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 | } } else { Post $w } } ## Drag -- B1-Motion binding for comboboxes. # If the initial Button event was handled by Entry binding, # perform Entry widget drag binding; otherwise nothing. # proc ttk::combobox::Drag {w x} { variable State if {$State(entryPress)} { ttk::entry::Drag $w $x } |
︙ | ︙ |
Changes to library/ttk/cursors.tcl.
︙ | ︙ | |||
194 195 196 197 198 199 200 | return $f } if {[info exists argv0] && $argv0 eq [info script]} { wm title . "[array size ::ttk::Cursors] cursors" pack [ttk::CursorSampler .f] -expand true -fill both | | | 194 195 196 197 198 199 200 201 202 203 204 205 | return $f } if {[info exists argv0] && $argv0 eq [info script]} { wm title . "[array size ::ttk::Cursors] cursors" pack [ttk::CursorSampler .f] -expand true -fill both bind . <Escape> [list destroy .] focus .f } #*EOF* |
Changes to library/ttk/entry.tcl.
︙ | ︙ | |||
36 37 38 39 40 41 42 | # option add *TEntry.cursor [ttk::cursor text] widgetDefault ### Bindings. # # Removed the following standard Tk bindings: # | | | | | | | | | | | | | | | | | 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 | # option add *TEntry.cursor [ttk::cursor text] widgetDefault ### Bindings. # # Removed the following standard Tk bindings: # # <Control-space>, <Control-Shift-space>, # <Select>, <Shift-Select>: # Ttk entry widget doesn't use selection anchor. # <Insert>: # Inserts PRIMARY selection (on non-Windows platforms). # This is inconsistent with typical platform bindings. # <Double-Shift-Button-1>, <Triple-Shift-Button-1>: # These don't do the right thing to start with. # <Meta-b>, <Meta-d>, <Meta-f>, # <Meta-BackSpace>, <Meta-Delete>: # Judgment call. If <Meta> happens to be assigned to the Alt key, # these could conflict with application accelerators. # (Plus, who has a Meta key these days?) # <Control-t>: # Another judgment call. If anyone misses this, let me know # and I'll put it back. # ## Clipboard events: # bind TEntry <<Cut>> { ttk::entry::Cut %W } bind TEntry <<Copy>> { ttk::entry::Copy %W } bind TEntry <<Paste>> { ttk::entry::Paste %W } bind TEntry <<Clear>> { ttk::entry::Clear %W } ## Button1 bindings: # Used for selection and navigation. # bind TEntry <Button-1> { ttk::entry::Press %W %x } bind TEntry <Shift-Button-1> { ttk::entry::Shift-Press %W %x } bind TEntry <Double-Button-1> { ttk::entry::Select %W %x word } bind TEntry <Triple-Button-1> { ttk::entry::Select %W %x line } bind TEntry <B1-Motion> { ttk::entry::Drag %W %x } bind TEntry <B1-Leave> { ttk::entry::DragOut %W %m } bind TEntry <B1-Enter> { ttk::entry::DragIn %W } bind TEntry <ButtonRelease-1> { ttk::entry::Release %W } bind TEntry <<ToggleSelection>> { %W instate {!readonly !disabled} { %W icursor @%x ; focus %W } } ## Button2 bindings: # Used for scanning and primary transfer. # Note: ButtonRelease-2 is mapped to <<PasteSelection>> in tk.tcl. # bind TEntry <Button-2> { ttk::entry::ScanMark %W %x } bind TEntry <B2-Motion> { ttk::entry::ScanDrag %W %x } bind TEntry <ButtonRelease-2> { ttk::entry::ScanRelease %W %x } bind TEntry <<PasteSelection>> { ttk::entry::ScanRelease %W %x } ## Keyboard navigation bindings: # bind TEntry <<PrevChar>> { ttk::entry::Move %W prevchar } |
︙ | ︙ | |||
110 111 112 113 114 115 116 | bind TEntry <<SelectAll>> { %W selection range 0 end } bind TEntry <<SelectNone>> { %W selection clear } bind TEntry <<TraverseIn>> { %W selection range 0 end; %W icursor end } ## Edit bindings: # | | | | | | | | | | | | | | | | | 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 | bind TEntry <<SelectAll>> { %W selection range 0 end } bind TEntry <<SelectNone>> { %W selection clear } bind TEntry <<TraverseIn>> { %W selection range 0 end; %W icursor end } ## Edit bindings: # bind TEntry <Key> { ttk::entry::Insert %W %A } bind TEntry <Delete> { ttk::entry::Delete %W } bind TEntry <BackSpace> { ttk::entry::Backspace %W } # Ignore all Alt, Meta, and Control keypresses unless explicitly bound. # Otherwise, the <Key> class binding will fire and insert the character. # Ditto for Escape, Return, and Tab. # bind TEntry <Alt-Key> {# nothing} bind TEntry <Meta-Key> {# nothing} bind TEntry <Control-Key> {# nothing} bind TEntry <Escape> {# nothing} bind TEntry <Return> {# nothing} bind TEntry <KP_Enter> {# nothing} bind TEntry <Tab> {# nothing} # Argh. Apparently on Windows, the NumLock modifier is interpreted # as a Command modifier. if {[tk windowingsystem] eq "aqua"} { bind TEntry <Command-Key> {# nothing} } # Tk-on-Cocoa generates characters for these two keys. [Bug 2971663] bind TEntry <<PrevLine>> {# nothing} bind TEntry <<NextLine>> {# nothing} ## Additional emacs-like bindings: # bind TEntry <Control-d> { ttk::entry::Delete %W } bind TEntry <Control-h> { ttk::entry::Backspace %W } bind TEntry <Control-k> { %W delete insert end } # Bindings for IME text input. bind TEntry <<TkStartIMEMarkedText>> { dict set ::tk::Priv(IMETextMark) "%W" [%W index insert] } bind TEntry <<TkEndIMEMarkedText>> { |
︙ | ︙ | |||
347 348 349 350 351 352 353 | ### Button 1 binding procedures. # # Double-clicking followed by a drag enters "word-select" mode. # Triple-clicking enters "line-select" mode. # | | | | 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 | ### Button 1 binding procedures. # # Double-clicking followed by a drag enters "word-select" mode. # Triple-clicking enters "line-select" mode. # ## Press -- Button-1 binding. # Set the insertion cursor, claim the input focus, set up for # future drag operations. # proc ttk::entry::Press {w x} { variable State $w icursor [ClosestGap $w $x] $w selection clear $w instate !disabled { focus $w } # Set up for future drag, double-click, or triple-click. set State(x) $x set State(selectMode) char set State(anchor) [$w index insert] } ## Shift-Press -- Shift-Button-1 binding. # Extends the selection, sets anchor for future drag operations. # proc ttk::entry::Shift-Press {w x} { variable State focus $w set anchor [ExtendTo $w @$x] |
︙ | ︙ | |||
513 514 515 516 517 518 519 | $w selection range 0 end $w icursor end } ### Button 2 binding procedures. # | | | 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 | $w selection range 0 end $w icursor end } ### Button 2 binding procedures. # ## ScanMark -- Button-2 binding. # Marks the start of a scan or primary transfer operation. # proc ttk::entry::ScanMark {w x} { variable State set State(scanX) $x set State(scanIndex) [$w index @0] set State(scanMoved) 0 |
︙ | ︙ |
Changes to library/ttk/menubutton.tcl.
1 2 3 4 5 6 7 | # # Bindings for Menubuttons. # # Menubuttons have three interaction modes: # # Pulldown: Press menubutton, drag over menu, release to activate menu entry # Popdown: Click menubutton to post menu | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | # # Bindings for Menubuttons. # # Menubuttons have three interaction modes: # # Pulldown: Press menubutton, drag over menu, release to activate menu entry # Popdown: Click menubutton to post menu # Keyboard: <space> or accelerator key to post menu # # (In addition, when menu system is active, "dropdown" -- menu posts # on mouse-over. Ttk menubuttons don't implement this). # # For keyboard and popdown mode, we hand off to tk_popup and let # the built-in Tk bindings handle the rest of the interaction. # # ON X11: # # Standard Tk menubuttons use a global grab on the menubutton. # This won't work for Ttk menubuttons in pulldown mode, # since we need to process the final <ButtonRelease> event, # and this might be delivered to the menu. So instead we # rely on the passive grab that occurs on <Button> events, # and transition to popdown mode when the mouse is released # or dragged outside the menubutton. # # ON WINDOWS: # # I'm not sure what the hell is going on here. [$menu post] apparently # sets up some kind of internal grab for native menus. |
︙ | ︙ | |||
42 43 44 45 46 47 48 | oldcursor {} } } } bind TMenubutton <Enter> { %W instate !disabled {%W state active } } bind TMenubutton <Leave> { %W state !active } | | | | | 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 | oldcursor {} } } } bind TMenubutton <Enter> { %W instate !disabled {%W state active } } bind TMenubutton <Leave> { %W state !active } bind TMenubutton <space> { ttk::menubutton::Popdown %W } bind TMenubutton <<Invoke>> { ttk::menubutton::Popdown %W } if {[tk windowingsystem] eq "x11"} { bind TMenubutton <Button-1> { ttk::menubutton::Pulldown %W } bind TMenubutton <ButtonRelease-1> { ttk::menubutton::TransferGrab %W } bind TMenubutton <B1-Leave> { ttk::menubutton::TransferGrab %W } } else { bind TMenubutton <Button-1> \ { %W state pressed ; ttk::menubutton::Popdown %W } bind TMenubutton <ButtonRelease-1> \ { if {[winfo exists %W]} { %W state !pressed } } } # PostPosition -- # Returns x and y coordinates and a menu item index. |
︙ | ︙ |
Changes to library/ttk/notebook.tcl.
1 2 3 4 5 6 7 8 | # # Bindings for TNotebook widget # namespace eval ttk::notebook { variable TLNotebooks ;# See enableTraversal } | | | | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | # # Bindings for TNotebook widget # namespace eval ttk::notebook { variable TLNotebooks ;# See enableTraversal } bind TNotebook <Button-1> { ttk::notebook::Press %W %x %y } bind TNotebook <Right> { ttk::notebook::CycleTab %W 1; break } bind TNotebook <Left> { ttk::notebook::CycleTab %W -1; break } bind TNotebook <Control-Tab> { ttk::notebook::CycleTab %W 1; break } bind TNotebook <Control-Shift-Tab> { ttk::notebook::CycleTab %W -1; break } catch { bind TNotebook <Control-ISO_Left_Tab> { ttk::notebook::CycleTab %W -1; break } } bind TNotebook <Destroy> { ttk::notebook::Cleanup %W } # ActivateTab $nb $tab -- # Select the specified tab and set focus. |
︙ | ︙ | |||
39 40 41 42 43 44 45 | ttk::traverseTo $f } else { focus $w } } # Press $nb $x $y -- | | | 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | ttk::traverseTo $f } else { focus $w } } # Press $nb $x $y -- # Button-1 binding for notebook widgets. # Activate the tab under the mouse cursor, if any. # proc ttk::notebook::Press {w x y} { set index [$w index @$x,$y] if {$index ne ""} { ActivateTab $w $index } |
︙ | ︙ | |||
101 102 103 104 105 106 107 | variable TLNotebooks set top [winfo toplevel $nb] if {![info exists TLNotebooks($top)]} { # Augment $top bindings: # | | | | | | | | | 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 | variable TLNotebooks set top [winfo toplevel $nb] if {![info exists TLNotebooks($top)]} { # Augment $top bindings: # bind $top <Control-Next> {+ttk::notebook::TLCycleTab %W 1} bind $top <Control-Prior> {+ttk::notebook::TLCycleTab %W -1} bind $top <Control-Tab> {+ttk::notebook::TLCycleTab %W 1} bind $top <Control-Shift-Tab> {+ttk::notebook::TLCycleTab %W -1} catch { bind $top <Control-ISO_Left_Tab> {+ttk::notebook::TLCycleTab %W -1} } if {[tk windowingsystem] eq "aqua"} { bind $top <Option-Key> \ +[list ttk::notebook::MnemonicActivation $top %K] } else { bind $top <Alt-Key> \ +[list ttk::notebook::MnemonicActivation $top %K] } bind $top <Destroy> {+ttk::notebook::TLCleanup %W} } lappend TLNotebooks($top) $nb } |
︙ | ︙ | |||
178 179 180 181 182 183 184 | if {$nb ne ""} { CycleTab $nb $dir return -code break } } # MnemonicActivation $nb $key -- | | | 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 | if {$nb ne ""} { CycleTab $nb $dir return -code break } } # MnemonicActivation $nb $key -- # Alt-Key binding procedure for mnemonic activation. # Scan all notebooks in specified toplevel for a tab with the # the specified mnemonic. If found, activate it and return TCL_BREAK. # proc ttk::notebook::MnemonicActivation {top key} { variable TLNotebooks foreach nb $TLNotebooks($top) { if {[set tab [MnemonicTab $nb $key]] ne ""} { ActivateTab $nb [$nb index $tab] return -code break } } } |
Changes to library/ttk/panedwindow.tcl.
︙ | ︙ | |||
11 12 13 14 15 16 17 | sash - sashPos - } } ## Bindings: # | | | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | sash - sashPos - } } ## Bindings: # bind TPanedwindow <Button-1> { ttk::panedwindow::Press %W %x %y } bind TPanedwindow <B1-Motion> { ttk::panedwindow::Drag %W %x %y } bind TPanedwindow <ButtonRelease-1> { ttk::panedwindow::Release %W %x %y } bind TPanedwindow <Motion> { ttk::panedwindow::SetCursor %W %x %y } bind TPanedwindow <Enter> { ttk::panedwindow::SetCursor %W %x %y } bind TPanedwindow <Leave> { ttk::panedwindow::ResetCursor %W } # See <<NOTE-PW-LEAVE-NOTIFYINFERIOR>> |
︙ | ︙ |
Changes to library/ttk/scale.tcl.
1 2 3 4 5 6 7 8 9 10 11 | # scale.tcl - Copyright (C) 2004 Pat Thoyts <patthoyts@users.sourceforge.net> # # Bindings for the TScale widget namespace eval ttk::scale { variable State array set State { dragging 0 } } | | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | # scale.tcl - Copyright (C) 2004 Pat Thoyts <patthoyts@users.sourceforge.net> # # Bindings for the TScale widget namespace eval ttk::scale { variable State array set State { dragging 0 } } bind TScale <Button-1> { ttk::scale::Press %W %x %y } bind TScale <B1-Motion> { ttk::scale::Drag %W %x %y } bind TScale <ButtonRelease-1> { ttk::scale::Release %W %x %y } bind TScale <Button-2> { ttk::scale::Jump %W %x %y } bind TScale <B2-Motion> { ttk::scale::Drag %W %x %y } bind TScale <ButtonRelease-2> { ttk::scale::Release %W %x %y } bind TScale <Button-3> { ttk::scale::Jump %W %x %y } bind TScale <B3-Motion> { ttk::scale::Drag %W %x %y } bind TScale <ButtonRelease-3> { ttk::scale::Release %W %x %y } ## Keyboard navigation bindings: # bind TScale <<LineStart>> { %W set [%W cget -from] } bind TScale <<LineEnd>> { %W set [%W cget -to] } |
︙ | ︙ | |||
48 49 50 51 52 53 54 | *slider { set State(dragging) 1 set State(initial) [$w get] } } } | | | 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | *slider { set State(dragging) 1 set State(initial) [$w get] } } } # scale::Jump -- Button-2/3 binding for scale acts like # Press except that clicking in the trough jumps to the # clicked position. proc ttk::scale::Jump {w x y} { variable State set State(dragging) 0 switch -glob -- [$w identify $x $y] { |
︙ | ︙ |
Changes to library/ttk/scrollbar.tcl.
1 2 3 4 5 6 7 8 9 10 11 | # # Bindings for TScrollbar widget # namespace eval ttk::scrollbar { variable State # State(xPress) -- # State(yPress) -- initial position of mouse at start of drag. # State(first) -- value of -first at start of drag. } | | | < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | # # Bindings for TScrollbar widget # namespace eval ttk::scrollbar { variable State # State(xPress) -- # State(yPress) -- initial position of mouse at start of drag. # State(first) -- value of -first at start of drag. } bind TScrollbar <Button-1> { ttk::scrollbar::Press %W %x %y } bind TScrollbar <B1-Motion> { ttk::scrollbar::Drag %W %x %y } bind TScrollbar <ButtonRelease-1> { ttk::scrollbar::Release %W %x %y } bind TScrollbar <Button-2> { ttk::scrollbar::Jump %W %x %y } bind TScrollbar <B2-Motion> { ttk::scrollbar::Drag %W %x %y } bind TScrollbar <ButtonRelease-2> { ttk::scrollbar::Release %W %x %y } # Redirect scrollwheel bindings to the scrollbar widget # # The shift-bindings scroll left/right (not up/down) # if a widget has both possibilities set eventList [list <MouseWheel> <Shift-MouseWheel>] switch [tk windowingsystem] { aqua { lappend eventList <Option-MouseWheel> <Shift-Option-MouseWheel> } x11 { lappend eventList <Button-4> <Button-5> <Button-6> <Button-7>\ <Shift-Button-4> <Shift-Button-5> } } foreach event $eventList { bind TScrollbar $event [bind Scrollbar $event] } unset eventList event |
︙ | ︙ | |||
100 101 102 103 104 105 106 | proc ttk::scrollbar::Release {w x y} { variable State unset -nocomplain State(xPress) State(yPress) State(first) ttk::CancelRepeat } | | | 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 | proc ttk::scrollbar::Release {w x y} { variable State unset -nocomplain State(xPress) State(yPress) State(first) ttk::CancelRepeat } # scrollbar::Jump -- Button-2 binding for scrollbars. # Behaves exactly like scrollbar::Press, except that # clicking in the trough jumps to the the selected position. # proc ttk::scrollbar::Jump {w x y} { variable State switch -glob -- [$w identify $x $y] { |
︙ | ︙ |
Changes to library/ttk/sizegrip.tcl.
︙ | ︙ | |||
28 29 30 31 32 33 34 | heightInc 1 resizeX 1 resizeY 1 toplevel {} } } | | | 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | heightInc 1 resizeX 1 resizeY 1 toplevel {} } } bind TSizegrip <Button-1> { ttk::sizegrip::Press %W %X %Y } bind TSizegrip <B1-Motion> { ttk::sizegrip::Drag %W %X %Y } bind TSizegrip <ButtonRelease-1> { ttk::sizegrip::Release %W %X %Y } proc ttk::sizegrip::Press {W X Y} { variable State if {[$W instate disabled]} { return } |
︙ | ︙ |
Changes to library/ttk/spinbox.tcl.
︙ | ︙ | |||
8 9 10 11 12 13 14 | # # Duplicate the Entry bindings, override if needed: # ttk::copyBindings TEntry TSpinbox bind TSpinbox <Motion> { ttk::spinbox::Motion %W %x %y } | | | | | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | # # Duplicate the Entry bindings, override if needed: # ttk::copyBindings TEntry TSpinbox bind TSpinbox <Motion> { ttk::spinbox::Motion %W %x %y } bind TSpinbox <Button-1> { ttk::spinbox::Press %W %x %y } bind TSpinbox <ButtonRelease-1> { ttk::spinbox::Release %W } bind TSpinbox <Double-Button-1> { ttk::spinbox::DoubleClick %W %x %y } bind TSpinbox <Triple-Button-1> {} ;# disable TEntry triple-click bind TSpinbox <Up> { event generate %W <<Increment>> } bind TSpinbox <Down> { event generate %W <<Decrement>> } bind TSpinbox <<Increment>> { ttk::spinbox::Spin %W +1 } bind TSpinbox <<Decrement>> { ttk::spinbox::Spin %W -1 } ttk::bindMouseWheel TSpinbox [list ttk::spinbox::MouseWheel %W] ## Motion -- |
︙ | ︙ |
Changes to library/ttk/treeview.tcl.
︙ | ︙ | |||
24 25 26 27 28 29 30 | ### Widget bindings. # bind Treeview <Motion> { ttk::treeview::Motion %W %x %y } bind Treeview <B1-Leave> { #nothing } bind Treeview <Leave> { ttk::treeview::ActivateHeading {} {}} | | | | | | | | | | | | | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | ### Widget bindings. # bind Treeview <Motion> { ttk::treeview::Motion %W %x %y } bind Treeview <B1-Leave> { #nothing } bind Treeview <Leave> { ttk::treeview::ActivateHeading {} {}} bind Treeview <Button-1> { ttk::treeview::Press %W %x %y } bind Treeview <Double-Button-1> { ttk::treeview::DoubleClick %W %x %y } bind Treeview <ButtonRelease-1> { ttk::treeview::Release %W %x %y } bind Treeview <B1-Motion> { ttk::treeview::Drag %W %x %y } bind Treeview <Up> { ttk::treeview::Keynav %W up } bind Treeview <Down> { ttk::treeview::Keynav %W down } bind Treeview <Right> { ttk::treeview::Keynav %W right } bind Treeview <Left> { ttk::treeview::Keynav %W left } bind Treeview <Prior> { %W yview scroll -1 pages } bind Treeview <Next> { %W yview scroll 1 pages } bind Treeview <Return> { ttk::treeview::ToggleFocus %W } bind Treeview <space> { ttk::treeview::ToggleFocus %W } bind Treeview <Shift-Button-1> \ { ttk::treeview::Select %W %x %y extend } bind Treeview <<ToggleSelection>> \ { ttk::treeview::Select %W %x %y toggle } ttk::copyBindings TtkScrollable Treeview ### Binding procedures. |
︙ | ︙ | |||
151 152 153 154 155 156 157 | # proc ttk::treeview::Select {w x y op} { if {[set item [$w identify row $x $y]] ne "" } { SelectOp $w $item $op } } | | | | 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 | # proc ttk::treeview::Select {w x y op} { if {[set item [$w identify row $x $y]] ne "" } { SelectOp $w $item $op } } ## DoubleClick -- Double-Button-1 binding. # proc ttk::treeview::DoubleClick {w x y} { if {[set row [$w identify row $x $y]] ne ""} { Toggle $w $row } else { Press $w $x $y ;# perform single-click action } } ## Press -- Button binding. # proc ttk::treeview::Press {w x y} { focus $w switch -- [$w identify region $x $y] { nothing { } heading { heading.press $w $x $y } separator { resize.press $w $x $y } |
︙ | ︙ |
Changes to library/ttk/utils.tcl.
︙ | ︙ | |||
54 55 56 57 58 59 60 | event generate $focus <<TraverseOut>> } focus $w event generate $w <<TraverseIn>> } ## ttk::clickToFocus $w -- | | | 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | event generate $focus <<TraverseOut>> } focus $w event generate $w <<TraverseIn>> } ## ttk::clickToFocus $w -- # Utility routine, used in <Button-1> bindings -- # Assign keyboard focus to the specified widget if -takefocus is enabled. # proc ttk::clickToFocus {w} { if {[ttk::takesFocus $w]} { focus $w } } ## ttk::takesFocus w -- |
︙ | ︙ | |||
297 298 299 300 301 302 303 | # Adds basic mousewheel support to $bindtag. # $command will be passed one additional argument # specifying the mousewheel direction (-1: up, +1: down). # proc ttk::bindMouseWheel {bindtag callback} { if {[tk windowingsystem] eq "x11"} { | | | | 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 | # Adds basic mousewheel support to $bindtag. # $command will be passed one additional argument # specifying the mousewheel direction (-1: up, +1: down). # proc ttk::bindMouseWheel {bindtag callback} { if {[tk windowingsystem] eq "x11"} { bind $bindtag <Button-4> "$callback -1" bind $bindtag <Button-5> "$callback +1" } if {[tk windowingsystem] eq "aqua"} { bind $bindtag <MouseWheel> [append callback { [expr {-(%D)}]} ] bind $bindtag <Option-MouseWheel> [append callback { [expr {-10 *(%D)}]} ] } else { # We must make sure that positive and negative movements are rounded # equally to integers, avoiding the problem that |
︙ | ︙ | |||
325 326 327 328 329 330 331 | # Usage: [ttk::copyBindings TtkScrollable $bindtag] # # $bindtag should be for a widget that supports the # standard scrollbar protocol. # if {[tk windowingsystem] eq "x11"} { | | | | | | 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 | # Usage: [ttk::copyBindings TtkScrollable $bindtag] # # $bindtag should be for a widget that supports the # standard scrollbar protocol. # if {[tk windowingsystem] eq "x11"} { bind TtkScrollable <Button-4> { %W yview scroll -5 units } bind TtkScrollable <Button-5> { %W yview scroll 5 units } bind TtkScrollable <Shift-Button-4> { %W xview scroll -5 units } bind TtkScrollable <Shift-Button-5> { %W xview scroll 5 units } } if {[tk windowingsystem] eq "aqua"} { bind TtkScrollable <MouseWheel> { %W yview scroll [expr {-(%D)}] units } bind TtkScrollable <Shift-MouseWheel> { %W xview scroll [expr {-(%D)}] units |
︙ | ︙ |
Changes to library/xmfbox.tcl.
︙ | ︙ | |||
902 903 904 905 906 907 908 | set Priv(selectFilePath) "" set Priv(selectFile) "" set Priv(selectPath) "" } proc ::tk::ListBoxKeyAccel_Set {w} { | | | | 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 | set Priv(selectFilePath) "" set Priv(selectFile) "" set Priv(selectPath) "" } proc ::tk::ListBoxKeyAccel_Set {w} { bind Listbox <Key> "" bind $w <Destroy> [list tk::ListBoxKeyAccel_Unset $w] bind $w <Key> [list tk::ListBoxKeyAccel_Key $w %A] } proc ::tk::ListBoxKeyAccel_Unset {w} { variable ::tk::Priv catch {after cancel $Priv(lbAccel,$w,afterId)} unset -nocomplain Priv(lbAccel,$w) Priv(lbAccel,$w,afterId) |
︙ | ︙ |