root/morphix/trunk/gfxboot-grub/dia_video.inc

% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
%
% Video mode selection dialog.
%
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Some global vars.
%
% We have kernel splash images for at least these sizes.
/video.splashsizes [
   640  480
   800  600
  1024  768
  1280 1024
  1600 1200
] def


% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Create sort key for video modes.
%
% ( vm_index )  ==> ( sort_index )
%
/vmsortindex {
  video.modes.list exch get
  dup
  1 get 16 shl
  exch 2 get add
} def


% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Swap video mode entries.
% (Helper for video mode sorting.)
%
% ( vm_index_1 vm_index_2 )  ==> ( )
%
/vmsortexch {
  over video.modes.list exch get
  over video.modes.list exch get
  video.modes.list
  5 -1 roll rot put
  video.modes.list 3 1 roll put
} def


% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Check if we have a splash in that resolution.
%
% ( video_mode_list_entry ) ==> ( true|false )
%
/video.havesplash {
  false exch

  0 2 video.splashsizes length 1 sub {
    over over over
    2 get rot 1 get rot video.splashsizes exch get eq
    rot 1 add video.splashsizes exch get rot eq and
    { exch pop true exch exit } if
  } for

  pop

} def


% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Build video mode list.
%
% ( ) ==> ( )
%
/video.init {
  /xmenu.video .xm_size array def

  /xmenu xmenu.video def

  videomodes 6 add dup array /video.modes.text exch def array /video.modes.list exch def
  xmenu .xm_list video.modes.text put

  % add text mode entry

  % [ mode width height supported ]
%  video.modes.list 0 [ 0 0 0 1 ] put
% video.modes.list 0 [ 788 800 600 1 ] put
%  video.modes.list [ 785 640 480 1 ] add
% video.modes.list 1 [ 788 800 600 1 ] put
% video.modes.list 2 [ 791 1024 786 1 ] put
% video.modes.list snprintf
  video.modes.list 0 [ 0 0 0 1 ] put
  video.modes.list 1 [ 785 640 480 0 ] put
  video.modes.list 2 [ 788 800 600 0 ] put
  video.modes.list 3 [ 791 1024 786 0 ] put
  video.modes.list 4 [ 794 1280 1024 0 ] put
  video.modes.list 5 [ 797 1600 1200 0 ] put
%  video.modes.list length 0 gt {
%       video.modes.list 0 [ 788 800 600 1 ] put
%  } if
% video.modes.list 0 [ 788 800 600 1 ] put
% video.modes.list 1 [ 791 1024 786 0 ] put

%       /videomodes 791 def
%  videomodes 0 gt {
 %   0 1 videomodes 1 sub {
 %     video.modes.list exch [ over getvideomode ] exch 1 add exch put
  %  } for
 % } if

  % sort video.modes.list

  video.modes.list length 1 gt {
    0 1 video.modes.list length 2 sub {
      dup 1 add 1 video.modes.list length 1 sub {
        over vmsortindex over vmsortindex gt {
          over over vmsortexch
        } if
        pop
      } for
      pop
    } for
  } if

  % create mode strings

  0 1 video.modes.list length 1 sub {
    video.modes.text exch
    dup video.modes.list exch get
    dup 1 get 0 eq {
      pop "Text Mode" put
    } {
      32 string dup rot
      dup 2 get exch 1 get
      "%d x %d" 32 5 -1 roll snprintf
      put
    } ifelse
  } for

  % select first mode
  xmenu .xm_current 0 put

  % select largest mode the monitor supports

%  0 1 video.modes.list length 1 sub {
%    video.modes.list over get
%    dup 3 get 0 gt exch video.havesplash and {
      xmenu .xm_current 3 put
%    } {
%      pop
%    } ifelse
%  } for

  pmenu.init
} def


% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Update video mode.
%
% ( ) ==> ( )
%
/video.update {
  /xmenu xmenu.video def

  /window.action actRedrawPanel def

  pmenu.update
} def


% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Show video menu.
%
% ( ) => ( )
%
/panel.video {
  "videomode" help.setcontext

  window.xmenu
  dup .xmenu xmenu.video put
  dup .xmenu.update /video.update put
  dup window.init
      window.show
} def


% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Return width of video entry.
%
% ( ) => ( width )
%
/panel.video.width {
  /xmenu xmenu.video def

  pmenu.width
} def


% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Redraw panel entry.
%
% ( panel ) => ( )
%
/panel.video.update {
  /xmenu xmenu.video def

  pmenu.panel.update
} def