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

Subversion Repositories or1k_old

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

Details | Compare with Previous | View Log


#!/bin/sh
# ----------------------------------------------------------------------
#  DEMO: extfileselectiondialog in [incr Widgets]
# ----------------------------------------------------------------------
#\
exec itkwish "$0" ${1+"$@"}
package require Iwidgets 3.0
 
iwidgets::extfileselectiondialog .efsd -modality application
 
button .select -text "Files..." -command {
    if {[.efsd activate]} {
        puts "selected: [.efsd get]"
    } else {
        puts ""
    }
}
pack .select -side left

Line No.	Rev	Author	Line
1	578	markom	`#!/bin/sh`
2			`# ----------------------------------------------------------------------`
3			`# DEMO: extfileselectiondialog in [incr Widgets]`
4			`# ----------------------------------------------------------------------`
5			`#\`
6			`exec itkwish "$0" ${1+"$@"}`
7			`package require Iwidgets 3.0`
8
9			`iwidgets::extfileselectiondialog .efsd -modality application`
10
11			`button .select -text "Files..." -command {`
12			`if {[.efsd activate]} {`
13			`puts "selected: [.efsd get]"`
14			`} else {`
15			`puts ""`
16			`}`
17			`}`
18			`pack .select -side left`

Browse

Tools

Subversion Repositories or1k_old

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