% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
%
% 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
    ptheme { white } { lightblue } ifelse 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