diff options
Diffstat (limited to 'itcl/iwidgets/demos/tabset')
-rw-r--r-- | itcl/iwidgets/demos/tabset | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/itcl/iwidgets/demos/tabset b/itcl/iwidgets/demos/tabset new file mode 100644 index 00000000000..efc0f1580d4 --- /dev/null +++ b/itcl/iwidgets/demos/tabset @@ -0,0 +1,16 @@ +# ---------------------------------------------------------------------- +# DEMO: tabset in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +proc showTab {num} { + puts "selected: [.ts tabcget $num -label]" +} + +iwidgets::tabset .ts -command showTab +pack .ts + +for {set i 1} {$i <= 5} {incr i} { + .ts add -label "#$i" +} +.ts select 0 |