diff options
Diffstat (limited to 'itcl/iwidgets3.0.0/demos/scrolledhtml')
| -rwxr-xr-x | itcl/iwidgets3.0.0/demos/scrolledhtml | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/itcl/iwidgets3.0.0/demos/scrolledhtml b/itcl/iwidgets3.0.0/demos/scrolledhtml new file mode 100755 index 00000000000..fd4c942988f --- /dev/null +++ b/itcl/iwidgets3.0.0/demos/scrolledhtml @@ -0,0 +1,19 @@ +#!/bin/sh +# ---------------------------------------------------------------------- +# DEMO: scrolledhtml in [incr Widgets] +# ---------------------------------------------------------------------- +#\ +exec itkwish "$0" ${1+"$@"} +package require Iwidgets 3.0 + +# itkwish interprets the rest... +# ---------------------------------------------------------------------- +option add *textBackground seashell + +iwidgets::scrolledhtml .sh -labeltext "Scrolledhtml" \ + -width 5i -height 3i \ + -wrap word -linkcommand ".sh import -link" -padx 10 + +pack .sh + +.sh import [file join ${iwidgets::library} demos demo.html] |