summaryrefslogtreecommitdiffstats
path: root/library/spinbox.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/spinbox.tcl')
-rw-r--r--library/spinbox.tcl14
1 files changed, 10 insertions, 4 deletions
diff --git a/library/spinbox.tcl b/library/spinbox.tcl
index 933c25c..c05ccec 100644
--- a/library/spinbox.tcl
+++ b/library/spinbox.tcl
@@ -73,6 +73,11 @@ bind Spinbox <<PasteSelection>> {
}
}
+bind Spinbox <<TraverseIn>> {
+ %W selection range 0 end
+ %W icursor end
+}
+
# Standard Motif bindings:
bind Spinbox <1> {
@@ -210,9 +215,8 @@ bind Spinbox <Escape> {# nothing}
bind Spinbox <Return> {# nothing}
bind Spinbox <KP_Enter> {# nothing}
bind Spinbox <Tab> {# nothing}
-
-if {[tk windowingsystem] eq "classic" || [tk windowingsystem] eq "aqua"} {
- bind Spinbox <Command-KeyPress> {# nothing}
+if {[tk windowingsystem] eq "aqua"} {
+ bind Spinbox <Command-KeyPress> {# nothing}
}
# On Windows, paste is done using Shift-Insert. Shift-Insert already
@@ -494,7 +498,9 @@ proc ::tk::spinbox::MouseSelect {w x {cursor {}}} {
proc ::tk::spinbox::Paste {w x} {
$w icursor [::tk::spinbox::ClosestGap $w $x]
catch {$w insert insert [::tk::GetSelection $w PRIMARY]}
- if {"disabled" eq [$w cget -state]} {focus $w}
+ if {"disabled" eq [$w cget -state]} {
+ focus $w
+ }
}
# ::tk::spinbox::Motion --