15 lines
466 B
Text
15 lines
466 B
Text
|
# ----------------------------------------------------------------------
|
||
|
|
# 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]
|