(? #[() "ÀÁ!ˆÂ`ˆ‡\000" [load "/usr/local/glisp/server/m-keyboard.lsp" (show-m-keyboard :frame-title tvguide_frame_title :initial-text tvguide_postcode :button-title (gettext "Postcode") :length-restriction 11 :charset key_style :help-green-text (gettext "Confirm") :help-return-text-lst (if (= no-return-key 1) () (list (gettext "OK"))) :pre-keyfunc-callback (function (lambda (key) (case key ((TXK_GREEN) (write-back-bytes 1 (+ 1 (length (get-m-keyboard-text))) (get-m-keyboard-text)) t) ((TXK_RETURN) (write-back-bytes 2 (+ 1 (length (get-m-keyboard-text))) (get-m-keyboard-text)) t) ((TXK_MENU TXK_VTOOLS TXK_CANCEL) ()) ((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_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 ())))] 10])
