dia_help.inc

Revision 2, 0.8 kB (checked in by nextime, 2 years ago)
Initial import, branching from morphix svn

Line
1	% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2	%
3	% Panel help entry.
4	%
5	% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
6
7	% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
8	% Show help window.
9	%
10	% ( ) => ( )
11	%
12	/panel.help {
13	help.context "opt" eq {
14	findbootoption
15	help.mapcontext
16	dup help.findpage
17	"" eq { pop } { help.setcontext } ifelse
18	} if
19	show_help
20	} def
21
22
23	% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
24	% Return width of help entry.
25	%
26	% ( ) => ( width )
27	%
28	/panel.help.width {
29	txt_help strsize pop
30	} def
31
32
33	% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
34	% Redraw panel entry.
35	%
36	% ( panel ) => ( )
37	%
38	/panel.help.update {
39	panel.text.moveto
40
41	txt_help show
42	} def
43
44

Note: See TracBrowser for help on using the browser.