* If available, play startup.mod sound on startup and accessv1.mod (etc.)

when selecting accessibility menu items. However, this isn't working
  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.

common.inc

@@ -447,6 +447,13 @@
 
   } if
 
+  50 sound.setvolume
+  "startup.mod" findfile dup .undef ne {
+    /player.startup 0 def
+    player.startup over mod.load
+    player.startup 0 mod.play
+    free
+  } { pop } ifelse
 } def
 
 

debian/changelog

@@ -1,5 +1,11 @@
 gfxboot-theme-ubuntu (0.2.2) UNRELEASED; urgency=low
 
+  * If available, play startup.mod sound on startup and accessv1.mod (etc.)
+    when selecting accessibility menu items. However, this isn't working
+    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.
+
   * Add/update translations from Rosetta: Afrikaans, Arabic, Belarusian,
     Bengali, Catalan, Kashubian, Danish, Esperanto, Spanish, Estonian,
     Basque, Persian, Filipino, Galician, Hindi, Croatian, Hungarian,

dia_access.inc

@@ -38,6 +38,16 @@
 
   xmenu .xm_title /txt_access put
 
+  /access.soundfiles [
+    access.optionnames {
+      dup .undef ne {
+        /access.tmpfilename 32 string def
+        "access%s.mod" access.tmpfilename sprintf
+        access.tmpfilename findfile
+      } if
+    } forall
+  ] def
+
   pmenu.init
 } def
 
@@ -64,6 +74,22 @@
 } def
 
 
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Select an accessibility menu item.
+%
+% ( ) ==> ( )
+%
+/access.select {
+  /xmenu xmenu.access def
+
+  access.soundfiles xmenu .xm_current get get dup .undef ne {
+    /player.access 1 def
+    player.access exch mod.load
+    player.access 0 mod.play
+  } { pop } ifelse
+} def
+
+
 % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 % Show window.
 %
@@ -75,6 +101,7 @@
   window.xmenu
   dup .xmenu xmenu.access put
   dup .xmenu.update /access.update put
+  dup .xmenu.select /access.select put
   dup window.init
       window.show
 } def

window.inc

@@ -93,6 +93,7 @@
 /.ed.pw_field    newfield
 /.xmenu          newfield
 /.xmenu.update   newfield
+/.xmenu.select   newfield
 
 % window types
 /t_dialog 100 def

xmenu.inc

@@ -62,6 +62,7 @@ small_layout {
 /window.xmenu {
   widget.size array
   dup .type t_xmenu put
+  dup .xmenu.select .undef put
 } def
 
 
@@ -309,6 +310,7 @@ small_layout {
   xmenu .xm_current get over xmenu .xm_current rot put
   xmenu.viewentry
   xmenu.viewentry
+  window.current .xmenu.select get dup .undef ne { exec } { pop } ifelse
 } def