summaryrefslogtreecommitdiff
path: root/itcl/iwidgets/demos/scrolledtext
diff options
context:
space:
mode:
Diffstat (limited to 'itcl/iwidgets/demos/scrolledtext')
-rw-r--r--itcl/iwidgets/demos/scrolledtext13
1 files changed, 13 insertions, 0 deletions
diff --git a/itcl/iwidgets/demos/scrolledtext b/itcl/iwidgets/demos/scrolledtext
new file mode 100644
index 00000000000..aa7205a8ece
--- /dev/null
+++ b/itcl/iwidgets/demos/scrolledtext
@@ -0,0 +1,13 @@
+# ----------------------------------------------------------------------
+# DEMO: scrolledtext in [incr Widgets]
+# ----------------------------------------------------------------------
+package require Iwidgets 4.0
+
+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]