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

Subversion Repositories or1k_old

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

Line No.	Rev	Author	Line
1	578	markom	`#!/bin/sh`
2			`# ----------------------------------------------------------------------`
3			`# DEMO: watch in [incr Widgets]`
4			`# ----------------------------------------------------------------------`
5			`#\`
6			`exec itkwish "$0" ${1+"$@"}`
7			`package require Iwidgets 3.0`
8
9			`set tk_strictMotif 1`
10
11			`iwidgets::watch .w -state disabled -showampm no -width 155 -height 155`
12			`pack .w -padx 10 -pady 10 -fill both -expand yes`
13
14			`proc fix_time {} {`
15			`.w show`
16			`after 1000 {catch fix_time}`
17			`}`
18			`fix_time`