summaryrefslogtreecommitdiffstats
path: root/main.inc
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2009-01-27 17:30:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2009-01-27 17:30:08 +0000
commit5ce8d30439463838f845c78bc926cc9b310a8743 (patch)
treebb1852dc58711c7baee31216a765067dfa49b65b /main.inc
parent10658e71475bd964263d09f1a661f24fadfaf496 (diff)
downloadbootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar.gz
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar.bz2
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar.xz
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.zip
imported openSUSE.tar.bz2 (from gfxboot-4.1.19-2.1.src.rpm)4.1.19.1
Diffstat (limited to 'main.inc')
-rw-r--r--main.inc217
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
-
-