blob: 72c8dc6c9b0e60f126934e4e4ac138b07eef84bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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
|