import insight-2000-02-04 snapshot (2nd try)

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]