* Make numbers used for selecting accessibility menu items consistent even

if items are omitted from the menu due to GFXBOOT-ACCESS-OPTIONS; so for
  example with "GFXBOOT-ACCESS-OPTIONS v1 v3", pressing "1" would select
  v1, "2" would do nothing, and "3" would select v3. This allows for
  simpler cross-flavour documentation for visually-impaired users.

debian/changelog

@@ -1,3 +1,13 @@
+gfxboot-theme-ubuntu (0.3.1) UNRELEASED; urgency=low
+
+  * Make numbers used for selecting accessibility menu items consistent even
+    if items are omitted from the menu due to GFXBOOT-ACCESS-OPTIONS; so for
+    example with "GFXBOOT-ACCESS-OPTIONS v1 v3", pressing "1" would select
+    v1, "2" would do nothing, and "3" would select v3. This allows for
+    simpler cross-flavour documentation for visually-impaired users.
+
+ -- Colin Watson <cjwatson@ubuntu.com>  Wed,  7 Feb 2007 15:39:47 +0000
+
 gfxboot-theme-ubuntu (0.3.0) feisty; urgency=low
 
   * Add Swiss French keymap (closes: Malone #67355).

dia_access.inc

@@ -51,6 +51,20 @@
     } forall
   ] put
 
+  /access.optionmap [
+    0 1 access.optionnames length 1 sub {
+      0 1 access.alloptionnames length 1 sub {
+        access.optionnames 2 index get access.alloptionnames 2 index get eq {
+          [ 2 index rot ] exch exit
+          % leaves [ optionindex alloptionindex ] optionindex
+        } {
+          pop
+        } ifelse
+      } for
+      pop
+    } for
+  ] def
+
   xmenu .xm_title /txt_access put
 
   /access.soundfiles [
@@ -114,10 +128,21 @@
   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
+  dup 0 lt { return } if
+
+  dup access.optionmap {
+    dup 1 get 2 index eq {
+      0 get dup xmenu .xm_list get length lt {
+        xmenu.select
+        pop
+        0
+      } {
+        pop
+      } ifelse
+    } {
+      pop
+    } ifelse
+  } forall
 } def