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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [itcl/] [iwidgets3.0.0/] [demos/] [feedback] - Blame information for rev 1770

Line No.	Rev	Author	Line
1	578	markom	`#!/bin/sh`
2			`# ----------------------------------------------------------------------`
3			`# DEMO: feedback in [incr Widgets]`
4			`# ----------------------------------------------------------------------`
5			`#\`
6			`exec itkwish "$0" ${1+"$@"}`
7			`package require Iwidgets 3.0`
8
9			`# itkwish interprets the rest...`
10			`# ----------------------------------------------------------------------`
11
12			`frame .f -width 200 -height 100`
13			`pack propagate .f no`
14
15			`iwidgets::feedback .f.fb -labeltext "Status" -steps 22`
16			`pack .f.fb -padx 4 -pady 4 -fill both -expand yes`
17
18			`button .go -text "Go" -command {`
19			`.f.fb reset`
20			`for {set i 0} {$i < 22} {incr i} {`
21			`.f.fb step`
22			`after 100`
23			`}`
24			`}`
25			`pack .f`
26			`pack .go -padx 4 -pady 4`