blob: 5945d7896dcf385cd9add187e0962aa785ffb41c (
plain)
1
2
3
4
5
6
7
8
9
|
# ----------------------------------------------------------------------
# DEMO: fileselectionbox in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0
option add *textBackground seashell
iwidgets::fileselectionbox .fsb -width 4i -height 4i
pack .fsb
|
