You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
96 lines
1.6 KiB
96 lines
1.6 KiB
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
%
|
|
% audio selection dialog.
|
|
%
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Some global vars.
|
|
%
|
|
/audio.use false def
|
|
/audio.default 1 def
|
|
/audio.changed false def
|
|
|
|
/audio.values [
|
|
"alsa"
|
|
"pipewire"
|
|
] def
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Build menu list.
|
|
%
|
|
% ( ) ==> ( )
|
|
%
|
|
/audio.init {
|
|
/xmenu.audio .xm_size array def
|
|
|
|
/xmenu xmenu.audio def
|
|
|
|
xmenu .xm_list [
|
|
"ALSA"
|
|
"PipeWire"
|
|
] put
|
|
|
|
xmenu .xm_current 1 put
|
|
xmenu .xm_title /txt_audio put
|
|
|
|
pmenu.init
|
|
} def
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Update audio selection menu.
|
|
%
|
|
% ( ) ==> ( )
|
|
%
|
|
/audio.update {
|
|
/xmenu xmenu.audio def
|
|
|
|
/window.action actRedrawPanel def
|
|
|
|
pmenu.update
|
|
} def
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Show audio selection menu.
|
|
%
|
|
% ( ) => ( )
|
|
%
|
|
/panel.audio {
|
|
"audio" help.setcontext
|
|
|
|
window.xmenu
|
|
dup .xmenu xmenu.audio put
|
|
dup .xmenu.update /audio.update put
|
|
dup window.init
|
|
window.show
|
|
} def
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Return width of panel entry.
|
|
%
|
|
% ( ) => ( width )
|
|
%
|
|
/panel.audio.width {
|
|
/xmenu xmenu.audio def
|
|
|
|
pmenu.width
|
|
} def
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Redraw panel entry.
|
|
%
|
|
% ( panel ) => ( )
|
|
%
|
|
/panel.audio.update {
|
|
/xmenu xmenu.audio def
|
|
|
|
pmenu.panel.update
|
|
} def
|
|
|
|
|