blob: b7e06cce35c0950af9c18189b1a099a9a45aef30 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# ----------------------------------------------------------------------
# DEMO: scrolledhtml in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0
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]
|
