summaryrefslogtreecommitdiffstats
path: root/src/dia_bits.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/dia_bits.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/dia_bits.inc')
-rw-r--r--src/dia_bits.inc101
1 files changed, 101 insertions, 0 deletions
diff --git a/src/dia_bits.inc b/src/dia_bits.inc
new file mode 100644
index 0000000..01a4ea8
--- /dev/null
+++ b/src/dia_bits.inc
@@ -0,0 +1,101 @@
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% 32/64 bit install selection dialog.
+%
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Some global vars.
+%
+/bits.default 0 def
+
+/bits.suffix [
+ .undef
+ "64"
+] def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Build menu list.
+%
+% ( ) ==> ( )
+%
+/bits.init {
+ /xmenu.bits .xm_size array def
+
+ /xmenu xmenu.bits def
+
+ xmenu .xm_list [ "x86" ] put
+
+ 32+64bit_source {
+ 64bit {
+ /bits.default 1 def
+ xmenu .xm_list [ "x86" "x86-64" ] put
+ } if
+ } if
+
+ % no '64' suffix
+ 32bit_boot_dir 64bit_boot_dir ne {
+ bits.suffix 1 .undef put
+ } if
+
+ xmenu .xm_title /txt_arch put
+
+ xmenu .xm_current bits.default put
+
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Update bit selection menu.
+%
+% ( ) ==> ( )
+%
+/bits.update {
+ /xmenu xmenu.bits def
+
+ /window.action actRedrawPanel def
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Show bit selection menu.
+%
+% ( ) => ( )
+%
+/panel.bits {
+ "bits" help.setcontext
+
+ window.xmenu
+ dup .xmenu xmenu.bits put
+ dup .xmenu.update /bits.update put
+ dup window.init
+ window.show
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Return width of panel entry.
+%
+% ( ) => ( width )
+%
+/panel.bits.width {
+ /xmenu xmenu.bits def
+
+ pmenu.width
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Redraw panel entry.
+%
+% ( panel ) => ( )
+%
+/panel.bits.update {
+ /xmenu xmenu.bits def
+
+ pmenu.panel.update
+} def
+
+