diff options
Diffstat (limited to 'iwidgets/demos/hyperhelp')
| -rw-r--r-- | iwidgets/demos/hyperhelp | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/iwidgets/demos/hyperhelp b/iwidgets/demos/hyperhelp new file mode 100644 index 00000000000..72c8dc6c9b0 --- /dev/null +++ b/iwidgets/demos/hyperhelp @@ -0,0 +1,14 @@ +# ---------------------------------------------------------------------- +# DEMO: hyperhelp in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +option add *textBackground seashell + +button .push -text "Help..." -command { + set win [iwidgets::hyperhelp .#auto -title "Hyperhelp demo" -modality none \ + -topics {demo} -helpdir [file join ${iwidgets::library} demos]] + $win showtopic demo + $win activate +} +pack .push |