| # ---------------------------------------------------------------------- | |
| # 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] |