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

Subversion Repositories or1k

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

Line No.	Rev	Author	Line
1	578	markom	`#!/bin/sh`
2			`# ----------------------------------------------------------------------`
3			`# DEMO: promptdialog in [incr Widgets]`
4			`# ----------------------------------------------------------------------`
5			`#\`
6			`exec itkwish "$0" ${1+"$@"}`
7			`package require Iwidgets 3.0`
8
9			`# itkwish interprets the rest...`
10			`# ----------------------------------------------------------------------`
11			`option add *textBackground seashell`
12
13			`button .b -text "Get Password..." -command {`
14			`if {[.pd activate]} {`
15			`puts "password: [.pd get]"`
16			`} else {`
17			`puts "cancelled"`
18			`}`
19			`}`
20			`pack .b`
21
22			`iwidgets::promptdialog .pd -title "Prompt Dialog" -modality application \`
23			`-labeltext "Password:" -show "*"`
24
25			`.pd hide Apply`
26			`.pd hide Help`