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

Subversion Repositories or1k

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

Line No.	Rev	Author	Line
1	578	markom	`#!/bin/sh`
2			`# ----------------------------------------------------------------------`
3			`# DEMO: combobox 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			`iwidgets::combobox .cb -labeltext "Font:" -labelpos w -selectioncommand {`
14			`puts "selected: [.cb getcurselection]"`
15			`}`
16			`pack .cb`
17
18			`.cb insert list end Ariel Courier Helvetica Knarly Lucida \`
19			`Rumpus Symbol Times "Zapf Dingbats"`