|
|
|
@ -1,6 +1,6 @@
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
%
|
|
|
|
|
% 32/64 bit install selection dialog.
|
|
|
|
|
% audio selection dialog.
|
|
|
|
|
%
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
|
|
|
|
@ -8,51 +8,44 @@
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
% Some global vars.
|
|
|
|
|
%
|
|
|
|
|
/bits.default 0 def
|
|
|
|
|
/audio.use false def
|
|
|
|
|
/audio.default 0 def
|
|
|
|
|
/audio.changed false def
|
|
|
|
|
|
|
|
|
|
/bits.suffix [
|
|
|
|
|
.undef
|
|
|
|
|
"64"
|
|
|
|
|
/audio.values [
|
|
|
|
|
"pulseaudio"
|
|
|
|
|
"alsa"
|
|
|
|
|
] def
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
% Build menu list.
|
|
|
|
|
%
|
|
|
|
|
% ( ) ==> ( )
|
|
|
|
|
%
|
|
|
|
|
/bits.init {
|
|
|
|
|
/xmenu.bits .xm_size array def
|
|
|
|
|
|
|
|
|
|
/xmenu xmenu.bits def
|
|
|
|
|
|
|
|
|
|
xmenu .xm_list [ "32bit" ] put
|
|
|
|
|
/audio.init {
|
|
|
|
|
/xmenu.audio .xm_size array def
|
|
|
|
|
|
|
|
|
|
32+64bit_source {
|
|
|
|
|
64bit {
|
|
|
|
|
/bits.default 1 def
|
|
|
|
|
xmenu .xm_list [ "32bit" "64bit" ] put
|
|
|
|
|
} if
|
|
|
|
|
} if
|
|
|
|
|
/xmenu xmenu.audio def
|
|
|
|
|
|
|
|
|
|
% no '64' suffix
|
|
|
|
|
32bit_boot_dir 64bit_boot_dir ne {
|
|
|
|
|
bits.suffix 1 .undef put
|
|
|
|
|
} if
|
|
|
|
|
xmenu .xm_list [
|
|
|
|
|
"PulseAudio"
|
|
|
|
|
"ALSA"
|
|
|
|
|
] put
|
|
|
|
|
|
|
|
|
|
xmenu .xm_current bits.default put
|
|
|
|
|
xmenu .xm_current 0 put
|
|
|
|
|
xmenu .xm_title "Audio" put
|
|
|
|
|
|
|
|
|
|
pmenu.init
|
|
|
|
|
} def
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
% Update bit selection menu.
|
|
|
|
|
% Update audio selection menu.
|
|
|
|
|
%
|
|
|
|
|
% ( ) ==> ( )
|
|
|
|
|
%
|
|
|
|
|
/bits.update {
|
|
|
|
|
/xmenu xmenu.bits def
|
|
|
|
|
/audio.update {
|
|
|
|
|
/xmenu xmenu.audio def
|
|
|
|
|
|
|
|
|
|
/window.action actRedrawPanel def
|
|
|
|
|
|
|
|
|
@ -61,16 +54,16 @@
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
% Show bit selection menu.
|
|
|
|
|
% Show audio selection menu.
|
|
|
|
|
%
|
|
|
|
|
% ( ) => ( )
|
|
|
|
|
%
|
|
|
|
|
/panel.bits {
|
|
|
|
|
"bits" help.setcontext
|
|
|
|
|
/panel.audio {
|
|
|
|
|
"audio" help.setcontext
|
|
|
|
|
|
|
|
|
|
window.xmenu
|
|
|
|
|
dup .xmenu xmenu.bits put
|
|
|
|
|
dup .xmenu.update /bits.update put
|
|
|
|
|
dup .xmenu xmenu.audio put
|
|
|
|
|
dup .xmenu.update /audio.update put
|
|
|
|
|
dup window.init
|
|
|
|
|
window.show
|
|
|
|
|
} def
|
|
|
|
@ -81,8 +74,8 @@
|
|
|
|
|
%
|
|
|
|
|
% ( ) => ( width )
|
|
|
|
|
%
|
|
|
|
|
/panel.bits.width {
|
|
|
|
|
/xmenu xmenu.bits def
|
|
|
|
|
/panel.audio.width {
|
|
|
|
|
/xmenu xmenu.audio def
|
|
|
|
|
|
|
|
|
|
pmenu.width
|
|
|
|
|
} def
|
|
|
|
@ -93,8 +86,8 @@
|
|
|
|
|
%
|
|
|
|
|
% ( panel ) => ( )
|
|
|
|
|
%
|
|
|
|
|
/panel.bits.update {
|
|
|
|
|
/xmenu xmenu.bits def
|
|
|
|
|
/panel.audio.update {
|
|
|
|
|
/xmenu xmenu.audio def
|
|
|
|
|
|
|
|
|
|
pmenu.panel.update
|
|
|
|
|
} def
|