(? #[() "ÀÁÂ\042ˆÀÃÂ\042ˆÄ`ˆÅÆ`Ç`È`É`Ê`Ë`Ì`Í`&ˆ‡\000" [defvar othersat-setup-menu-last-pos 0 menu-othersat-setup-menu-last-id (menu-global-search-cursor-pos menu-othersat-setup-item-list menu-othersat-setup-menu-last-id) list (make-menu-items (quote othersat-setup-menu-fav) 2 (backquote (m-access-3 other-setup-menu-fav :title (backquote-unquote (gettext "Favourites Edit")) :help-text (backquote-unquote (gettext "Creates list of favourite channels")) :enter-action (function (lambda (key) (lock-top-keys 500) (write-back-bytes 1010 4 8888)))))) (make-menu-items (quote othersat-setup-menu-ch-list) 2 (backquote (m-access-3 other-setup-menu-ch-list :title "Channel List" :help-text (backquote-unquote (gettext "Skips the unwanted channels or edits channels")) :enter-action (function (lambda (key) (lock-top-keys 500) (write-back-bytes 1011 4 8888)))))) (make-menu-items (quote othersat-setup-dual-tuner-switch) 2 (backquote (m-choice-2 othersat-setup-dual-tuner-switch :title "Dual tuner mode" :item ("On" "Off") :left-right-action (function (lambda (key) (write-back-bytes 11021 4 (m-choice-2-selected othersat-setup-dual-tuner-switch))))))) (make-menu-items (quote othersat-setup-menu-atp) 2 (backquote (m-access-3 othersat-setup-menu-atp :title "Auto Setup" :help-text (backquote-unquote (gettext "Automatically sets the channels received in the area")) :enter-action (function (lambda (key) (lock-top-keys 500) (write-back-bytes 1055 4 0)))))) (make-menu-items (quote othersat-setup-menu-manual-tune) 2 (backquote (m-access-3 othersat-setup-menu-manual-tune :title "Manual Tuning" :help-text (backquote-unquote (gettext "Sets the channels manually")) :enter-action (function (lambda (key) (write-back-bytes 1056 4 8888)))))) (make-menu-items (quote othersat-setup-menu-update-ch) 2 (backquote (m-access-3 othersat-setup-menu-update-ch :title "Add New Channels" :help-text (backquote-unquote (gettext "Adds new channels to Channel List")) :enter-action (function (lambda (key) (write-back-bytes 1075 4 8888)))))) (make-menu-items (quote othersat-setup-menu-signal-cond) 2 (backquote (m-access-3 othersat-setup-menu-signal-cond :title "Signal Condition" :help-text (backquote-unquote (gettext "Checks the signal condition")) :enter-action (function (lambda (key) (write-back-bytes 1020 4 8888)))))) (make-menu-items (quote othersat-add-tv-signal) 2 (backquote (m-access-3 othersat-add-tv-signal :title (backquote-unquote (gettext "Add TV Signal")) :help-text (backquote-unquote (gettext "Adds the TV mode")) :enter-action (function (lambda (key) (write-back-bytes 1083 4 8888)))))) othersat-setup-menu-list] 18])
(! 'make-othersat-setup-menu-button-list #[() "ˆ	@«„Â`ªƒˆ‡\000" [() menu-othersat-setup-item-list (menu-global-make-button-list (reverse menu-othersat-setup-item-list) () othersat-setup-menu-list)] 11])
(? #[() "À`ˆÁ`ˆ‡\000" [(m-frame-1 othersat-setup-menu :width (m-scale-h *menu-width* h-unit) :title (if (= *WITH-IRE-SAT* t) "Satellite Tuning Menu" "Other Satellite Tuning Menu") :button (make-othersat-setup-menu-button-list) :last-pos (quote othersat-setup-menu-last-pos) :common-help-frame (quote menu-common-help)) (set-my-dwin-child othersat-setup-menu)] 9])
