(? #[() "ÀÁÂ\042ˆÃÄ`Å`Æ`Ç`$ˆ‡\000" [defvar viewing-setup-last-pos 0 list (make-menu-items (quote slide-bgm) 0 (backquote (m-choice-2 slide-bgm :title (backquote-unquote (gettext "Back Ground Music")) :item ((backquote-unquote (gettext "Off")) (backquote-unquote (gettext "Type1")) (backquote-unquote (gettext "Type2")) (backquote-unquote (gettext "Type3"))) :left-right-action (function (lambda (key) (write-back-bytes 12000 4 (m-choice-2-selected slide-bgm))))))) (make-menu-items (quote slide-effect) 0 (backquote (m-choice-2 slide-effect :title (backquote-unquote (gettext "Effect")) :item ((backquote-unquote (gettext "Off")) (backquote-unquote (gettext "Fade")) (backquote-unquote (gettext "Slide")) (backquote-unquote (gettext "Dissolve")) (backquote-unquote (gettext "Random"))) :left-right-action (function (lambda (key) (write-back-bytes 12001 4 (m-choice-2-selected slide-effect))))))) (make-menu-items (quote slide-interval) 0 (backquote (m-choice-2 slide-interval :title (backquote-unquote (gettext "Interval")) :item ((backquote-unquote (gettext "5 seconds")) (backquote-unquote (gettext "10 seconds")) (backquote-unquote (gettext "15 seconds")) (backquote-unquote (gettext "30 seconds")) (backquote-unquote (gettext "60 seconds")) (backquote-unquote (gettext "90 seconds")) (backquote-unquote (gettext "120 seconds"))) :left-right-action (function (lambda (key) (write-back-bytes 12002 4 (m-choice-2-selected slide-interval))))))) (make-menu-items (quote slide-repeat) 0 (backquote (m-choice-2 slide-repeat :title (backquote-unquote (gettext "Repeat")) :item ((backquote-unquote (gettext "Off")) (backquote-unquote (gettext "On"))) :left-right-action (function (lambda (key) (write-back-bytes 12003 4 (m-choice-2-selected slide-repeat))))))) viewing-setup-list] 14])
(! 'make-viewing-setup-button-list #[() "ˆ	@«„Â`ªƒˆ‡\000" [() menu-viewing-setup-item-list (menu-global-make-button-list (reverse menu-viewing-setup-item-list) () viewing-setup-list)] 11])
(? #[() "À`ˆ‡\000" [(m-frame-1 viewing-setup :last-pos (quote viewing-setup-last-pos) :width (m-scale-h *menu-width* h-unit) :title (gettext "Viewing Setup") :button (make-viewing-setup-button-list) :draw-srcover t)] 9])
