URL https://opencores.org/ocsvn/or1k_old/or1k_old/trunk

Subversion Repositories or1k_old

[/] [or1k_old/] [tags/] [start/] [insight/] [itcl/] [iwidgets3.0.0/] [demos/] [hyperhelp] - Blame information for rev 578

Line No.	Rev	Author	Line
1	578	markom	`#!/bin/sh`
2			`# ----------------------------------------------------------------------`
3			`# DEMO: hyperhelp in [incr Widgets]`
4			`# ----------------------------------------------------------------------`
5			`#\`
6			`exec itkwish "$0" ${1+"$@"}`
7			`package require Iwidgets 3.0`
8
9			`# itkwish interprets the rest...`
10			`# ----------------------------------------------------------------------`
11			`option add *textBackground seashell`
12
13			`button .push -text "Help..." -command {`
14			`set win [iwidgets::hyperhelp .#auto -title "Hyperhelp demo" -modality none \`
15			`-topics {demo} -helpdir [file join ${iwidgets::library} demos]]`
16			`$win showtopic demo`
17			`$win activate`
18			`}`
19			`pack .push`