(? #[() "ÀÁÂ\042ˆÀÃÄ\042ˆÀÅÆ\042ˆÀÇÈ\042ˆÉÉÊË!!ÉÊÌ!!\042
ˆÎ`ˆÏ`ˆÐ`ˆÑ`ˆ‡\000" [defvar change-band-width-last-pos 0 change-band-width-waring-mes () change-band-width-frame-w (m-scale-h 500 h-unit) change-band-width-frame-h (m-scale-v 250 v-unit) list backquote (m-access-1 change-band-width-7MHz :title (backquote-unquote (gettext "7MHz")) :title-pos center :enter-action (function (lambda (key) (write-back-bytes 30120 4 0)))) (m-access-1 change-band-width-8MHz :title (backquote-unquote (gettext "8MHz")) :title-pos center :enter-action (function (lambda (key) (write-back-bytes 30120 4 1)))) change-band-width-btn-list (m-frame-1 change-band-width-frame :title (gettext "Change Band Width") :button change-band-width-btn-list :width change-band-width-frame-w :force-height t :height change-band-width-frame-h :x (/ (- (get-osd-width SCR_LOCAL) change-band-width-frame-w) 2) :y (/ (- (get-osd-height SCR_LOCAL) change-band-width-frame-h) 2) :multi-cols t :with-cursor-help t :cursor-help-args (list :enter-text-lst (list (gettext "OK")) :cur-right-text-lst (list (gettext "Select")) :return-text-lst (list (gettext "Return"))) :info2 (backquote (m-gmbox-gtext2 () :h (backquote-unquote (m-scale-v 66 v-unit)) :txt-y (backquote-unquote (m-scale-v 40 v-unit)) :v (backquote-unquote (gettext "All DVB-T tuning data will be erased")) :pos center)) :last-pos (quote change-band-width-last-pos)) (set-my-dwin-child change-band-width-frame) (m-panel-frame-1 change-band-width-warning :title (gettext "Change Band Width") :message (format-str "Current Band Width is %s. 
Do you change Band Width?" (if (= change-band-width-last-pos 0) "7MHz" "8MHz")) :w change-band-width-frame-w :top-margin (m-scale-v 40 v-unit) :with-cursor-help t :cursor-help-args (backquote (:enter-text-lst ((backquote-unquote (gettext "Confirm"))) :return-text-lst ((backquote-unquote (gettext "Return")))))) (set-my-dwin-child change-band-width-warning)] 14])
