diff options
Diffstat (limited to 'main.inc')
| -rw-r--r-- | main.inc | 217 |
1 files changed, 0 insertions, 217 deletions
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 - - |