summaryrefslogtreecommitdiffstats
path: root/src/panel.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 /src/panel.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 'src/panel.inc')
-rw-r--r--src/panel.inc201
1 files changed, 201 insertions, 0 deletions
diff --git a/src/panel.inc b/src/panel.inc
new file mode 100644
index 0000000..1d3e89a
--- /dev/null
+++ b/src/panel.inc
@@ -0,0 +1,201 @@
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% Panel handling.
+%
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Some global vars.
+%
+/panel.size { clip.size pop 48 } def
+/panel.y { clip.size exch pop panel.size exch pop sub 5 sub } def
+/panel.text.y { panel.y 5 add } def
+/panel.text.Fy 0 def
+/panel.font font.normal def
+
+/panel.expert false def
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Init panel.
+%
+% ( ) ==> ( )
+%
+/panel.init {
+
+ /panel.back 0 panel.y moveto panel.size savescreen def
+
+ /panel.entry.help [ keyF1 0 "F1" /panel.help /panel.help.width /panel.help.update .undef ] def
+ /panel.entry.about [ keyF1 0 "F1" /panel.about /panel.about.width /panel.about.update .undef ] def
+
+ % define panel layout
+ /panel.full [
+
+ % [ key x label show_func width_func update_func init_func ]
+
+ about.msg {
+ panel.entry.about
+ } {
+ panel.entry.help
+ } ifelse
+
+ syslinux {
+
+ config.livecd {
+
+ [ keyF2 0 "F2" /panel.lang /panel.lang.width /panel.lang.update /lang.init ]
+ [ keyF3 0 "F3" /panel.video /panel.video.width /panel.video.update /video.init ]
+
+ } {
+
+ [ keyF2 0 "F2" /panel.lang /panel.lang.width /panel.lang.update /lang.init ]
+ [ keyF3 0 "F3" /panel.video /panel.video.width /panel.video.update /video.init ]
+ [ keyF4 0 "F4" /panel.install /panel.install.width /panel.install.update /install.init ]
+ [ keyF5 0 "F5" /panel.kernelopts /panel.kernelopts.width /panel.kernelopts.update /kernelopts.init ]
+ [ keyF6 0 "F6" /panel.dud /panel.dud.width /panel.dud.update /dud.init ]
+
+ 32+64bit_source {
+ 64bit {
+ 32bit_boot_dir .undef ne
+ 64bit_boot_dir .undef ne
+ 32bit_boot_dir 64bit_boot_dir ne
+ and and {
+ [ keyF7 0 "F7" /panel.bits /panel.bits.width /panel.bits.update /bits.init ]
+ } if
+ } if
+ } if
+
+ keymap.mainmenu {
+ [ keyF8 0 "F8" /panel.keymap /panel.keymap.width /panel.keymap.update /keymap.init ]
+ } if
+
+ } ifelse
+
+ xmenu.bits .undef eq { bits.init } if
+
+ } {
+
+ [ keyF2 0 "F2" /panel.lang /panel.lang.width /panel.lang.update /lang.init ]
+ "profiles" findfile dup {
+ /profile.data exch def
+ [ keyF3 0 "F3" /panel.profile /panel.profile.width /panel.profile.update /profile.init ]
+ } { pop } ifelse
+
+ keymap.mainmenu {
+ [ keyF4 0 "F4" /panel.keymap /panel.keymap.width /panel.keymap.update /keymap.init ]
+ } if
+
+ } ifelse
+
+ ] def
+
+ % initialize all
+ panel.full { 6 get dup .undef ne { exec } { pop } ifelse } forall
+
+ /panel panel.full def
+
+ panel.show
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Show panel.
+%
+% ( ) ==> ( )
+%
+/panel.show {
+ panel.font setfont
+
+% panel.bg setcolor
+ 0 panel.y moveto
+% currentpoint
+ panel.back restorescreen
+% currenttransparency
+% 50 settransparency
+% panel.size fillrect
+% settransparency
+% moveto
+
+% panel.border.color setcolor
+% 0 -1 rmoveto
+% 0 1 clip.size pop 3 div { pop putpixel 3 0 rmoveto } for
+
+ % don't change xmenu
+ /xmenu xmenu
+
+ /panel.x config.rtl { clip.size pop } { 0 } ifelse def
+ panel { dup {
+ dup 1 panel.x put
+ dup 4 get exec over 2 get strsize pop add 20 add panel.x exch
+ config.rtl { sub } { add } ifelse
+ /panel.x exch def
+ dup 5 get exec
+ } { pop } ifelse } forall
+
+ def
+
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Handle keyboard input.
+%
+% ( key_in ) ==> ( key_out )
+%
+/panel.input {
+ panel { dup {
+ dup 0 get 2 index eq { over panel.extra pop 3 get exec pop 0 exit } { pop } ifelse
+ } { pop } ifelse } forall
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Draw panel entry label and move to text field.
+%
+% ( panel ) => ( )
+%
+/panel.text.moveto {
+ /panel.tmp.x over 1 get 10 config.rtl { sub } { add } ifelse def
+ /panel.tmp.F exch 2 get def
+
+ panel.tmp.x panel.text.y panel.text.Fy add moveto
+ panel.f-key.fg setcolor panel.tmp.F show.rtl
+ panel.normal.fg setcolor
+
+ 6 config.rtl { neg } if panel.text.Fy neg rmoveto
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Do some extra things.
+%
+% ( key ) => ( key )
+%
+/panel.extra {
+ % move down one menu entry; but only once
+ % see keyDown in main::main.input
+
+ % only for install CDs
+ syslinux not { return } if
+
+ % not for live cd
+ config.livecd { return } if
+
+ % not for F1
+ dup keyF1 eq { return } if
+
+ panel.extra.fkey .undef eq
+ menu.entry 0 eq
+ menu.entry menu.texts length 1 sub lt
+ and and {
+ /panel.extra.fkey 1 def
+ menu.entry false MenuSelect
+ menu.visible.entries menu.entry menu.shift sub sub 1 eq {
+ /menu.shift menu.shift 1 add def main.drawmenu
+ } if
+ /menu.entry menu.entry 1 add def
+ menu.entry true MenuSelect
+ } if
+} def
+
+