From 5ce8d30439463838f845c78bc926cc9b310a8743 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 27 Jan 2009 17:30:08 +0000
Subject: imported openSUSE.tar.bz2 (from gfxboot-4.1.19-2.1.src.rpm)

---
 main.inc | 217 ---------------------------------------------------------------
 1 file changed, 217 deletions(-)
 delete mode 100644 main.inc

(limited to 'main.inc')

diff --git a/main.inc b/main.inc
deleted file mode 100644
index 2a34bf3..0000000
--- a/main.inc
+++ /dev/null
@@ -1,217 +0,0 @@
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-%
-% Main menu (boot entry + boot options + panel).
-%
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Create new main window.
-%
-% ( ) ==> ( window )
-%
-/window.main {
-  widget.size array
-  dup .type t_main put
-  dup .font font.normal put
-  dup .ed.font font.normal put
-  dup .color.fg boot.text.normal put
-  
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Initialize main window.
-%
-% ( window ) ==> ( )
-%
-/main.init {
-  pop
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Redraw main window.
-% (E.g. after selecting a new language.)
-%
-% ( window ) ==> ( )
-%
-/main.redraw {
-
-  boot.show {
-    boot.text.options setcolor
-    window.current .font get setfont
-    boot.pos moveto boot.label.len neg 0 rmoveto
-    currentpoint boot.label.len fontheight image
-    boot.pos moveto txt_bootoptions showright
-  } if
-
-  redrawmenu
-  /keepbootoptions 1 def
-  menu.entry true MenuSelect
-  /keepbootoptions .undef def
-
-  panel.show
-
-%  dud.redraw
-} def
-
-
-/boot.setup {
-  boot.show not { return } if
-
-  boot.window .ed boot.ed put
-
-  boot.pos moveto
-  txt_bootoptions showright
-
-  currenttransparency
-  white setcolor
-  boot.pos moveto 10 boot.ed.height rmoveto
-  0xe0 settransparency
-  boot.ed.width 1 fillrect
-  settransparency
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Draw main window.
-%
-% ( window ) ==> ( )
-%
-/main.show {
-  window.push
-
-  /menu.shift 0 def
-  /menu.visible.entries menu.texts length menu.max.entries min def
-
-  % get index of default entry
-  /menu.entry 0 def
-  0 1 menu.texts length 1 sub {
-    dup menu.texts exch get menu.dentry eq { /menu.entry exch def exit } { pop } ifelse
-  } for
-
-  menu.entry menu.visible.entries sub 0 ge {
-    /menu.shift menu.entry menu.texts length menu.visible.entries sub min def
-  } if
-
-  boot.text.options setcolor
-
-  window.current .font get setfont
-
-  /boot.ed.width screen.size pop boot.pos pop sub 20 sub def
-  /boot.ed.height fontheight 2 add def
-
-  /boot.window window.current def
-
-  /boot.ed [
-    boot.pos exch 10 add exch 1 sub
-    over over moveto boot.ed.width boot.ed.height savescreen
-    boot.buf
-    boot.buf.size
-    0
-    0
-    0
-  ] def
-
-  boot.setup
-
-  redrawmenu
-  menu.entry true MenuSelect
-
-  % find default splash mode
-  0 1 splash.options length 1 sub {
-    splash.options over get menu.args menu.entry get exch strstr {
-      /splash.default exch def
-    } {
-      pop
-    } ifelse
-  } for
-
-  panel.init
-
-  "main" help.setcontext
-
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Handle keyboard input.
-%
-% ( key_in ) ==> ( key_out )
-%
-/main.input {
-  dup 0 eq { return } if 
-
-  % handle panel entries
-  panel.input
-
-  dup keyF10 eq {
-    power_off
-    pop 0
-  } if
-
-  dup keyEsc eq { exit_popup pop 0 } if
-
-  dup keyEnter eq {
-    /window.action actStart def
-    pop 0
-  } if
-
-  dup keyUp eq {
-    menu.entry 0 gt {
-      menu.entry false MenuSelect
-      menu.entry menu.shift eq {
-        /menu.shift menu.shift 1 sub def redrawmenu
-      } if
-      /menu.entry menu.entry 1 sub def
-      menu.entry true MenuSelect
-    } if
-    pop 0
-  } if
-
-  dup keyDown eq {
-    menu.entry menu.texts length 1 sub lt {
-      menu.entry false MenuSelect
-      menu.visible.entries menu.entry menu.shift sub sub 1 eq {
-        /menu.shift menu.shift 1 add def redrawmenu
-      } if
-      /menu.entry menu.entry 1 add def
-      menu.entry true MenuSelect
-    } if
-    pop 0
-  } if
-
-  dup keyPgUp eq {
-    menu.entry 0 gt {
-      menu.entry false MenuSelect
-      /menu.entry 0 def
-      menu.shift 0 ne {
-        /menu.shift 0 def redrawmenu
-      } if
-      menu.entry true MenuSelect
-    } if
-    pop 0
-  } if
-
-  dup keyPgDown eq {
-    menu.entry menu.texts length 1 sub lt {
-      menu.entry false MenuSelect
-      /menu.entry menu.texts length 1 sub def
-      menu.texts length menu.visible.entries sub dup menu.shift ne {
-        /menu.shift exch def redrawmenu
-      } {
-        pop
-      } ifelse
-      menu.entry true MenuSelect
-    } if
-    pop 0
-  } if
-
-  dup 0 ne {
-    "opt" help.setcontext
-  } if
-
-} def
-
-
-- 
cgit v1.2.1