diff options
author | csaba <csaba> | 2024-05-01 17:23:59 (GMT) |
---|---|---|
committer | csaba <csaba> | 2024-05-01 17:23:59 (GMT) |
commit | 1c045c9af99ef4e4a27f4391091dfde1b39d07b5 (patch) | |
tree | 0aa475a02223e025830b7a87837f094b3b9555d2 /library | |
parent | 6932490dd91ce76f8470a6ffccc99622250d264c (diff) | |
download | tk-1c045c9af99ef4e4a27f4391091dfde1b39d07b5.zip tk-1c045c9af99ef4e4a27f4391091dfde1b39d07b5.tar.gz tk-1c045c9af99ef4e4a27f4391091dfde1b39d07b5.tar.bz2 |
Widget Demo: added demo script for ttk::spinbox widgets.
Diffstat (limited to 'library')
-rw-r--r-- | library/demos/spin.tcl | 10 | ||||
-rw-r--r-- | library/demos/ttkspin.tcl | 49 | ||||
-rw-r--r-- | library/demos/widget | 1 |
3 files changed, 51 insertions, 9 deletions
diff --git a/library/demos/spin.tcl b/library/demos/spin.tcl index b08ed16..b9a7ac1 100644 --- a/library/demos/spin.tcl +++ b/library/demos/spin.tcl @@ -42,12 +42,4 @@ spinbox $w.s1 -from 1 -to 10 -width 10 -validate key \ spinbox $w.s2 -from 0 -to 3 -increment .5 -format %05.2f -width 10 spinbox $w.s3 -values $australianCities -width 10 -#entry $w.e1 -#entry $w.e2 -#entry $w.e3 -pack $w.s1 $w.s2 $w.s3 -side top -pady 3p -padx 7.5p ;#-fill x - -#$w.e1 insert 0 "Initial value" -#$w.e2 insert end "This entry contains a long value, much too long " -#$w.e2 insert end "to fit in the window at one time, so long in fact " -#$w.e2 insert end "that you'll have to scan or scroll to see the end." +pack $w.s1 $w.s2 $w.s3 -side top -pady 3p -padx 7.5p diff --git a/library/demos/ttkspin.tcl b/library/demos/ttkspin.tcl new file mode 100644 index 0000000..83e5449 --- /dev/null +++ b/library/demos/ttkspin.tcl @@ -0,0 +1,49 @@ +# ttkspin.tcl -- +# +# This demonstration script creates several Ttk spinbox widgets. + +if {![info exists widgetDemo]} { + error "This script should be run from the \"widget\" demo." +} + +package require Tk + +set w .ttkspin +catch {destroy $w} +toplevel $w +wm title $w "Themed Spinbox Demonstration" +wm iconname $w "ttkspin" +positionWindow $w + +label $w.msg -font $font -wraplength 5i -justify left -text "Three different\ + themed spin-boxes are displayed below. You can add characters by\ + pointing, clicking and typing. The normal Motif editing characters\ + are supported, along with many Emacs bindings. For example, Backspace\ + and Control-h delete the character to the left of the insertion\ + cursor and Delete and Control-d delete the chararacter to the right\ + of the insertion cursor. For values that are too large to fit in the\ + window all at once, you can scan through the value by dragging with\ + mouse button2 pressed. Note that the first spin-box will only permit\ + you to type in integers, and the third selects from a list of\ + Australian cities." +pack $w.msg -side top + +## See Code / Dismiss buttons +set btns [addSeeDismiss $w.buttons $w] +pack $btns -side bottom -fill x + +set australianCities { + Canberra Sydney Melbourne Perth Adelaide Brisbane + Hobart Darwin "Alice Springs" +} + +ttk::spinbox $w.s1 -from 1 -to 10 -width 10 -validate key \ + -validatecommand {string is integer %P} +ttk::spinbox $w.s2 -from 0 -to 3 -increment .5 -format %05.2f -width 10 +ttk::spinbox $w.s3 -values $australianCities -width 10 + +$w.s1 set 1 +$w.s2 set 00.00 +$w.s3 set Canberra + +pack $w.s1 $w.s2 $w.s3 -side top -pady 3p -padx 7.5p diff --git a/library/demos/widget b/library/demos/widget index 51ef220..9e7c234 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -386,6 +386,7 @@ addFormattedText { @@demo entry2 Entries with scrollbars @@demo entry3 Validated entries and password fields @@demo spin Spin-boxes + @@demo ttkspin Themed spin-boxes @@demo combo Combo-boxes @@demo form Simple Rolodex-like form |