URL https://opencores.org/ocsvn/or1k_old/or1k_old/trunk

Subversion Repositories or1k_old

[/] [or1k_old/] [tags/] [start/] [insight/] [itcl/] [iwidgets3.0.0/] [demos/] [tabset] - Blame information for rev 1782

Line No.	Rev	Author	Line
1	578	markom	`#!/bin/sh`
2			`# ----------------------------------------------------------------------`
3			`# DEMO: tabset in [incr Widgets]`
4			`# ----------------------------------------------------------------------`
5			`#\`
6			`exec itkwish "$0" ${1+"$@"}`
7			`package require Iwidgets 3.0`
8
9			`# itkwish interprets the rest...`
10			`# ----------------------------------------------------------------------`
11			`proc showTab {num} {`
12			`puts "selected: [.ts tabcget $num -label]"`
13			`}`
14
15			`iwidgets::tabset .ts -command showTab`
16			`pack .ts`
17
18			`for {set i 1} {$i <= 5} {incr i} {`
19			`.ts add -label "#$i"`
20			`}`
21			`.ts select 0`