# ---------------------------------------------------------------------- | |
# 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 |