diff options
Diffstat (limited to 'itcl/iwidgets3.0.0/demos/scrolledtext')
| -rwxr-xr-x | itcl/iwidgets3.0.0/demos/scrolledtext | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/itcl/iwidgets3.0.0/demos/scrolledtext b/itcl/iwidgets3.0.0/demos/scrolledtext new file mode 100755 index 00000000000..7c7a2fd0412 --- /dev/null +++ b/itcl/iwidgets3.0.0/demos/scrolledtext @@ -0,0 +1,18 @@ +#!/bin/sh +# ---------------------------------------------------------------------- +# DEMO: scrolledtext in [incr Widgets] +# ---------------------------------------------------------------------- +#\ +exec itkwish "$0" ${1+"$@"} +package require Iwidgets 3.0 + +# itkwish interprets the rest... +# ---------------------------------------------------------------------- +option add *textBackground seashell + +iwidgets::scrolledtext .st -labeltext "Scrolledtext" -wrap none \ + -vscrollmode static -hscrollmode dynamic \ + -width 5i -height 2i +pack .st + +.st import [file join ${iwidgets::library} demos scrolledtext] |