Index: openacs-4/packages/theme-zen/www/accessibility.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-zen/www/accessibility.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/theme-zen/www/accessibility.tcl	16 Apr 2009 11:14:07 -0000	1.3
+++ openacs-4/packages/theme-zen/www/accessibility.tcl	7 Aug 2017 23:48:29 -0000	1.4
@@ -25,10 +25,11 @@
 }
 
 # Now add the ones for the tabs (home should be 1)
-foreach {url name key} [parameter::get_from_package_key -package_key "theme-zen" -parameter "AdditionalNavbarTabs" -default ""] {
-
+foreach {url name key} [parameter::get_from_package_key \
+                            -package_key "theme-zen" \
+                            -parameter "AdditionalNavbarTabs" \
+                            -default ""] {
     template::multirow append accesskeys $name $url [lang::util::localize $key]
-
 }
 
 template::multirow sort accesskeys key
@@ -46,4 +47,13 @@
     }
 }
 
+template::add_event_listener -id "set-style-sheet-std" -script {setActiveStyleSheet('std');}
+template::add_event_listener -id "set-style-sheet-highContrast" -script {setActiveStyleSheet('highContrast');}
+
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: