parent
1c3dcc5e58
commit
a8b3fbdbcb
@ -0,0 +1,109 @@
|
|||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
%
|
||||||
|
% Accessibility mode selector.
|
||||||
|
%
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
|
||||||
|
|
||||||
|
/access.option .undef def
|
||||||
|
|
||||||
|
/.access.none 0 def
|
||||||
|
/.access.v1 1 def
|
||||||
|
/.access.v2 2 def
|
||||||
|
/.access.v3 3 def
|
||||||
|
/.access.m1 4 def
|
||||||
|
/.access.m2 5 def
|
||||||
|
/.access.m3 6 def
|
||||||
|
/.access.all 7 def
|
||||||
|
|
||||||
|
/access.optionnames [
|
||||||
|
.undef
|
||||||
|
"v1" "v2" "v3"
|
||||||
|
"m1" "m2" "m3"
|
||||||
|
"all"
|
||||||
|
] def
|
||||||
|
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
% Initialise accessibility menu.
|
||||||
|
%
|
||||||
|
% ( ) ==> ( )
|
||||||
|
%
|
||||||
|
/access.init {
|
||||||
|
/xmenu.access .xm_size array def
|
||||||
|
/xmenu xmenu.access def
|
||||||
|
|
||||||
|
xmenu .xm_current .access.none put
|
||||||
|
|
||||||
|
xmenu .xm_list [
|
||||||
|
txt_access_none
|
||||||
|
txt_access_v1 txt_access_v2 txt_access_v3
|
||||||
|
txt_access_m1 txt_access_m2 txt_access_m3
|
||||||
|
txt_access_all
|
||||||
|
] put
|
||||||
|
|
||||||
|
xmenu .xm_title /txt_access put
|
||||||
|
|
||||||
|
pmenu.init
|
||||||
|
} def
|
||||||
|
|
||||||
|
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
% Update accessibility status.
|
||||||
|
%
|
||||||
|
% ( ) ==> ( )
|
||||||
|
%
|
||||||
|
/access.update {
|
||||||
|
/xmenu xmenu.access def
|
||||||
|
|
||||||
|
access.optionnames xmenu .xm_current get get dup .undef eq {
|
||||||
|
pop
|
||||||
|
/access.option .undef def
|
||||||
|
} {
|
||||||
|
dup length 7 add string /access.option exch def
|
||||||
|
"access=%s" access.option sprintf
|
||||||
|
} ifelse
|
||||||
|
|
||||||
|
/window.action actRedrawPanel def
|
||||||
|
|
||||||
|
pmenu.update
|
||||||
|
} def
|
||||||
|
|
||||||
|
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
% Show window.
|
||||||
|
%
|
||||||
|
% ( ) => ( )
|
||||||
|
%
|
||||||
|
/panel.access {
|
||||||
|
"access" help.setcontext
|
||||||
|
|
||||||
|
window.xmenu
|
||||||
|
dup .xmenu xmenu.access put
|
||||||
|
dup .xmenu.update /access.update put
|
||||||
|
dup window.init
|
||||||
|
window.show
|
||||||
|
} def
|
||||||
|
|
||||||
|
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
% Return width of panel entry.
|
||||||
|
%
|
||||||
|
% ( ) => ( width )
|
||||||
|
%
|
||||||
|
/panel.access.width {
|
||||||
|
/xmenu xmenu.access def
|
||||||
|
|
||||||
|
pmenu.width
|
||||||
|
} def
|
||||||
|
|
||||||
|
|
||||||
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
% Redraw panel entry.
|
||||||
|
%
|
||||||
|
% ( panel ) => ( )
|
||||||
|
%
|
||||||
|
/panel.access.update {
|
||||||
|
/xmenu xmenu.access def
|
||||||
|
|
||||||
|
pmenu.panel.update
|
||||||
|
} def
|
Loading…
Reference in new issue