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

Subversion Repositories or1k_old

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

Line No.	Rev	Author	Line
1	578	markom	`#!/bin/sh`
2			`# ----------------------------------------------------------------------`
3			`# DEMO: messagedialog 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			`button .b -text "Confirm..." -command {`
13			`if {[.md activate]} {`
14			`puts "selected: Yes"`
15			`} else {`
16			`puts "selected: No"`
17			`}`
18			`}`
19			`pack .b`
20
21			`iwidgets::messagedialog .md -title "Message Dialog" -modality application \`
22			`-bitmap questhead -text "Are you sure?"`
23
24			`.md hide Help`
25			`.md buttonconfigure OK -text "Yes"`
26			`.md buttonconfigure Cancel -text "No"`