dia_dud.inc

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

Line
1	% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2	%
3	% Driver update dialog.
4	%
5	% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
6
7
8	% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
9	% Show driver update.
10	%
11	% ( ) => ( )
12	%
13	/dud.redraw {
14	update.pos exch pop 0 exch moveto currentpoint
15	txt_dud_ready strsize 7 add exch pop clip.size pop exch
16	image
17
18	do_driverupdate {
19	black setcolor
20	currentfont font.normal setfont
21	update.pos moveto currentpoint
22	frame_color dark_frame_color
23	txt_dud_ready strsize 6 add exch 16 add exch
24	drawborder4
25	moveto 8 3 rmoveto txt_dud_ready white setcolor show
26	setfont
27	} if
28	} def
29
30	% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
31	% Toggle driver update.
32	%
33	% ( ) => ( )
34	%
35	/panel.dud {
36	do_driverupdate .undef eq {
37	/do_driverupdate 1 def
38	1 updatedisk
39	}
40	{
41	/do_driverupdate .undef def
42	0 updatedisk
43	} ifelse
44
45	dud.redraw
46
47	"driverupdate" help.setcontext
48	} def
49
50
51	% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
52	% Return width of driver update entry.
53	%
54	% ( ) => ( width )
55	%
56	/panel.dud.width {
57	txt_driver_update strsize pop
58	} def
59
60
61	% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
62	% Redraw panel entry.
63	%
64	% ( panel ) => ( )
65	%
66	/panel.dud.update {
67	panel.text.moveto
68
69	txt_driver_update show
70	} def
71
72

Note: See TracBrowser for help on using the browser.