(? #[() "ÀÁÂ\042ˆÃ`ˆ‡\000" [defvar viera-link-set-menu-last-pos 0 (m-frame-1 viera-link-set-menu :width (m-scale-h *menu-width* h-unit) :height (m-scale-v 400 v-unit) :title (gettext "VIERA Link Settings") :button (backquote ((m-choice-2 vs-viera-link-btn :title (backquote-unquote (gettext "VIERA Link")) :item ((backquote-unquote (gettext "Off")) (backquote-unquote (gettext "On"))) :left-right-action (function (lambda (key) (write-back-bytes 6009 4 (m-choice-2-selected vs-viera-link-btn)) (update-vl-viera-link (m-choice-2-selected vs-viera-link-btn) 1)))) (m-choice-2 vs-poweron-link-btn :title (backquote-unquote (gettext "Power on Link")) :item ((backquote-unquote (gettext "Off")) (backquote-unquote (gettext "On"))) :left-right-action (function (lambda (key) (if (eq val-vl-viera-link 1) (progn (write-back-bytes 6011 4 (m-choice-2-selected vs-poweron-link-btn)) (set-vl-poweron-link (m-choice-2-selected vs-poweron-link-btn))) ())))) (m-choice-2 vs-poweroff-link-btn :title (backquote-unquote (gettext "Power off Link")) :item ((backquote-unquote (gettext "Off")) (backquote-unquote (gettext "On"))) :left-right-action (function (lambda (key) (if (eq val-vl-viera-link 1) (progn (write-back-bytes 6010 4 (m-choice-2-selected vs-poweroff-link-btn)) (update-vl-poweroff-link (m-choice-2-selected vs-poweroff-link-btn) 1)) ())))) (m-choice-2 vs-standby-power-save-btn :title (backquote-unquote (gettext "Standby Power Save")) :item ((backquote-unquote (gettext "Off")) (backquote-unquote (gettext "On"))) :left-right-action (function (lambda (key) (if (and (eq val-vl-viera-link 1) (eq val-vl-poweroff-link 1)) (progn (write-back-bytes 6017 4 (m-choice-2-selected vs-standby-power-save-btn)) (set-vl-standby-power-save (m-choice-2-selected vs-standby-power-save-btn))) ())))) (m-choice-2 vs-auto-standby-btn :title (backquote-unquote (gettext "Intelligent Auto Standby")) :item ((backquote-unquote (gettext "No")) (backquote-unquote (gettext "On (With reminder)")) (backquote-unquote (gettext "On (No reminder)"))) :left-right-action (function (lambda (key) (if (eq val-vl-viera-link 1) (progn (write-back-bytes 6018 4 (m-choice-2-selected vs-auto-standby-btn)) (set-vl-auto-standby (m-choice-2-selected vs-auto-standby-btn))) ())))))) :last-pos (quote viera-link-set-menu-last-pos))] 11])
