* Improve keyboard navigation in accessibility menu: 0 selects None, and

1, 2, etc. select other menu items in order (closes: Malone #39303).

debian/changelog

@@ -5,6 +5,8 @@ gfxboot-theme-ubuntu (0.2.2) UNRELEASED; urgency=low
     well in tests, so I've left it disabled by not shipping any .mod files.
     Anyone who would like to try to take this from here and figure out
     what's wrong would be welcome.
+  * Improve keyboard navigation in accessibility menu: 0 selects None, and
+    1, 2, etc. select other menu items in order (closes: Malone #39303).
 
   * Add/update translations from Rosetta: Afrikaans, Arabic, Belarusian,
     Bengali, Catalan, Kashubian, Danish, Esperanto, Spanish, Estonian,

dia_access.inc

@@ -90,6 +90,22 @@
 } def
 
 
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Handle keyboard input.
+%
+% ( key_in ) ==> ( key_out )
+%
+/access.input {
+  dup 0 eq { return } if
+
+  dup 0xff and '0' sub
+  dup 0 ge over xmenu .xm_list get length lt and {
+    xmenu.select
+    0
+  } if
+} def
+
+
 % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 % Show window.
 %
@@ -102,6 +118,7 @@
   dup .xmenu xmenu.access put
   dup .xmenu.update /access.update put
   dup .xmenu.select /access.select put
+  dup .xmenu.input /access.input put
   dup window.init
       window.show
 } def

window.inc

@@ -94,6 +94,7 @@
 /.xmenu          newfield
 /.xmenu.update   newfield
 /.xmenu.select   newfield
+/.xmenu.input    newfield
 
 % window types
 /t_dialog 100 def

xmenu.inc

@@ -63,6 +63,7 @@ small_layout {
   widget.size array
   dup .type t_xmenu put
   dup .xmenu.select .undef put
+  dup .xmenu.input .undef put
 } def
 
 
@@ -140,6 +141,7 @@ small_layout {
     pop 0
   } if 
 
+  window.current .xmenu.input get dup .undef ne { exec } { pop } ifelse
 } def