(? #[() "ÀÁ!ˆÀÂ!ˆÀÃ!ˆÄÅÆ\042ˆÄÇÈ\042ˆÉ`ˆ‡\000" [load "/usr/local/glisp/server/m_widget3/m-button-common.lsp" "/usr/local/glisp/server/m_widget3/m-keyboard.lsp" "/usr/local/glisp/server/m_widget3/m-widget.lsp" defvar freesat-init-atp () enable-apps-key t (show-m-keyboard :frame-title tvguide_frame_title :initial-text tvguide_postcode :button-title (gettext "Postcode") :length-restriction 11 :charset key_style :bg FDP_COLOR_POP_A :help-green-text (gettext "Confirm") :help-return-text-lst (if freesat-init-atp (list (gettext "Return")) (if (= no-return-key 1) () (list (gettext "OK")))) :help-exit-text-lst () :pre-keyfunc-callback (function (lambda (key) (case key ((TXK_GREEN) (if (= (length (get-m-keyboard-text)) 0) (write-back-bytes 1 4 0) (write-back-bytes 1 (+ 1 (length (get-m-keyboard-text))) (get-m-keyboard-text))) t) ((TXK_RETURN) (if freesat-init-atp (write-back-bytes 3 4 0) (if (= (length (get-m-keyboard-text)) 0) (write-back-bytes 2 4 0) (write-back-bytes 2 (+ 1 (length (get-m-keyboard-text))) (get-m-keyboard-text)))) t) ((TXK_MENU) (if (> freesat_mode 0) t ())) ((TXK_VTOOLS TXK_CANCEL TXK_HOME) ()) ((TXK_APPS) (if enable-apps-key () t)) ((TXK_UP TXK_DOWN TXK_LEFT TXK_RIGHT TXK_ENTER TXK_D1 TXK_D2 TXK_D3 TXK_D4 TXK_D5 TXK_D6 TXK_D7 TXK_D8 TXK_D9 TXK_D0 TXK_BLUE TXK_RED TXK_CANCEL TXK_DIRECT TXK_REC TXK_VOLDOWN TXK_VOLUP FXK_VOLDOWN FXK_VOLUP TXK_MUTE TXK_POWER TXK_POWON TXK_POWOFF TXK_OFFTIMER TXK_MENU) ()) (otherwise t)))) :post-keyfunc-callback (function (lambda (key) (case key ((TXK_RETURN TXK_ENTER TXK_RED TXK_BLUE TXK_GREEN) t) ((TXK_MENU TXK_VTOOLS TXK_CANCEL) (write-back-bytes 0 4 0) (if (= launch-source 101) (setf retval t) (setf retval ())) retval) (otherwise ())))) :unmask-keys (list TXK_MENU TXK_VTOOLS TXK_CANCEL TXK_ENTER TXK_RED TXK_BLUE TXK_GREEN) :offtop-callback (function (lambda ())))] 11])
