parent
e999544a81
commit
7e48030cba
@ -1,66 +0,0 @@
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
%
|
||||
% Driver update dialog.
|
||||
%
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
|
||||
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
% Show driver update.
|
||||
%
|
||||
% ( ) => ( )
|
||||
%
|
||||
/dud.redraw {
|
||||
update.pos exch pop 0 exch moveto currentpoint
|
||||
txt_dud_ready strsize 7 add exch pop clip.size pop exch
|
||||
image
|
||||
|
||||
do_driverupdate {
|
||||
currentfont
|
||||
font.normal setfont
|
||||
update.pos moveto 8 3 rmoveto txt_dud_ready
|
||||
lightblue setcolor show
|
||||
setfont
|
||||
} if
|
||||
} def
|
||||
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
% Toggle driver update.
|
||||
%
|
||||
% ( ) => ( )
|
||||
%
|
||||
/panel.dud {
|
||||
do_driverupdate .undef eq {
|
||||
/do_driverupdate 1 def
|
||||
} {
|
||||
/do_driverupdate .undef def
|
||||
} ifelse
|
||||
|
||||
dud.redraw
|
||||
|
||||
"driverupdate" help.setcontext
|
||||
} def
|
||||
|
||||
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
% Return width of driver update entry.
|
||||
%
|
||||
% ( ) => ( width )
|
||||
%
|
||||
/panel.dud.width {
|
||||
txt_driver_update strsize pop
|
||||
} def
|
||||
|
||||
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
% Redraw panel entry.
|
||||
%
|
||||
% ( panel ) => ( )
|
||||
%
|
||||
/panel.dud.update {
|
||||
panel.text.moveto
|
||||
|
||||
txt_driver_update show
|
||||
} def
|
||||
|
||||
|
Loading…
Reference in new issue