Please enter the commit message for your changes. Lines starting

[eos/base.git] / util / src / TclTk / tk8.6.4 / library / ttk / button.tcl

diff --git a/util/src/TclTk/tk8.6.4/library/ttk/button.tcl b/util/src/TclTk/tk8.6.4/library/ttk/button.tcl
deleted file mode 100644 (file)
index 9f2cec7..0000000
--- a/util/src/TclTk/tk8.6.4/library/ttk/button.tcl
+++ /dev/null
@@ -1,83 +0,0 @@
-#
-# 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 <ButtonPress>
-# 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 <Key-space>       { ttk::button::activate %W }
-bind TButton <<Invoke>>        { ttk::button::activate %W }
-
-bind TButton <ButtonPress-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 <KeyPress-Up>        { ttk::button::RadioTraverse %W -1 }
-bind TRadiobutton <KeyPress-Down>      { ttk::button::RadioTraverse %W +1 }
-
-# bind TCheckbutton <KeyPress-plus> { %W select }
-# bind TCheckbutton <KeyPress-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 }
-    set oldState [$w state pressed]
-    update idletasks; after 100        ;# block event loop to avoid reentrancy
-    $w state $oldState
-    $w invoke
-}
-
-# RadioTraverse -- up/down keyboard traversal for radiobutton groups.
-#      Set focus to previous/next radiobutton in a group.
-#      A radiobutton group consists of all the radiobuttons with
-#      the same parent and -variable; this is a pretty good heuristic
-#      that works most of the time.
-#
-proc ttk::button::RadioTraverse {w dir} {
-    set group [list]
-    foreach sibling [winfo children [winfo parent $w]] {
-       if {   [winfo class $sibling] eq "TRadiobutton"
-           && [$sibling cget -variable] eq [$w cget -variable]
-           && ![$sibling instate disabled]
-       } {
-          lappend group $sibling
-       }
-    }
-
-    if {![llength $group]} {    # Shouldn't happen, but can.
-       return
-    }
-
-    set pos [expr {([lsearch -exact $group $w] + $dir) % [llength $group]}]
-    tk::TabToWindow [lindex $group $pos]
-}