(? #[() "ÀÁÂ\042ˆÀÃÂ\042ˆÄ`ˆÅÆ`Ç`È`É`Ê`Ë`Ì`&
ˆ‡\000" [defvar freesat-setup-menu-last-pos 0 menu-freesat-setup-menu-last-id (menu-global-search-cursor-pos menu-freesat-setup-item-list menu-freesat-setup-menu-last-id) list (make-menu-items (quote freesat-setup-menu-favourites) 2 (backquote (m-access-3 freesat-setup-menu-favourites :title "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 freesat-setup-menu-ch-list) 2 (backquote (m-access-3 freesat-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 freesat-setup-dual-tuner-switch) 2 (backquote (m-choice-2 freesat-setup-dual-tuner-switch :title "Dual tuner mode" :item ("On" "Off") :help-text (backquote-unquote (gettext "Set to [Off] if only Satellite Input 1 is connected to your dish.")) :left-right-action (function (lambda (key) (write-back-bytes 11021 4 (m-choice-2-selected freesat-setup-dual-tuner-switch))))))) (make-menu-items (quote freesat-setup-menu-frce) 2 (backquote (m-access-3 freesat-setup-menu-frce :title "Regional Channel Edit" :help-text (backquote-unquote (gettext "Automatically edits tuned channels according to the available region")) :enter-action (function (lambda (key) (lock-top-keys 500) (write-back-bytes 1112 4 8888)))))) (make-menu-items (quote freesat-setup-menu-atp) 2 (backquote (m-access-3 freesat-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 1051 4 8888)))))) (make-menu-items (quote freesat-setup-menu-signal-cond) 2 (backquote (m-access-3 freesat-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 freesat-add-tv-signal) 2 (backquote (m-access-3 freesat-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)))))) freesat-setup-menu-list] 17])
(! 'make-freesat-setup-menu-button-list #[() "ˆ	@«„Â`ªƒˆ‡\000" [() menu-freesat-setup-item-list (menu-global-make-button-list (reverse menu-freesat-setup-item-list) () freesat-setup-menu-list)] 11])
(? #[() "À`ˆÁ`ˆ‡\000" [(m-frame-1 freesat-setup-menu :width (m-scale-h *menu-width* h-unit) :title "Freesat Tuning Menu" :button (make-freesat-setup-menu-button-list) :last-pos (quote freesat-setup-menu-last-pos) :common-help-frame (quote menu-common-help)) (set-my-dwin-child freesat-setup-menu)] 9])
