(? #[() "ÀÁÂ\042ˆÀÃÄ\042ˆÀÅÆ\042ˆ‡\000" [defvar network-name-kbd-lsp t network-viera-name "VIERA" vieraname-length 15] 11])
(! 'network-show-m-keyboard-nw-name #[() "ˆÁÂ!®…ˆÃÄ!ˆÅÇ\042ˆÈ`‡\000" [() boundp m-keyboard-lsp load "/usr/local/glisp/server/m_widget3/m-keyboard.lsp" set-cond-val COND_INPUT_STRING_TYPE 2 (show-m-keyboard :frame-title (gettext "VIERA Name") :initial-text network-viera-name :language (quote netbios-name) :length-restriction vieraname-length :x (/ (- osd-w m-keyboard-frame-w) 2) :fixed-width () :parent-frame (if (and (boundp (quote main-menu-full-frame)) (find (quote main-menu-full-frame) (frame-stack-sym))) main-menu-full-frame ()) :pre-keyfunc-callback (function (lambda (key) (case key ((TXK_RETURN TXK_CANCEL TXK_MENU TXK_VTOOLS) (let ((new-str (get-m-keyboard-text))) (unless new-str (setf new-str "")) (when new-str (setf network-viera-name new-str) (write-back-viera-name new-str))) ()) ((TXK_UP TXK_DOWN TXK_LEFT TXK_RIGHT TXK_ENTER TXK_HOME TXK_APPS 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_VOLUP TXK_VOLDOWN FXK_VOLUP FXK_VOLDOWN TXK_MUTE TXK_DIRECT TXK_REC TXK_CANCEL TXK_RETURN TXK_OFFTIMER TXK_PLAY TXK_STOP TXK_PAUSE TXK_REW TXK_FF TXK_SKIP_PREV TXK_SKIP_NEXT) ()) (otherwise t)))) :post-keyfunc-callback (function (lambda (key) (case key ((TXK_RETURN) (set-cond-val COND_INPUT_STRING_TYPE 0) (m-keyboard-hide) (write-back-bytes 18032 4 8888) t) ((TXK_MENU TXK_VTOOLS TXK_CANCEL) (set-cond-val COND_INPUT_STRING_TYPE 0) (m-keyboard-hide) ()) (otherwise ())))) :unmask-keys (list TXK_RETURN TXK_CANCEL TXK_MENU TXK_VTOOLS TXK_HOME TXK_APPS) :offtop-callback (function (lambda ())))] 11])
(! 'write-back-viera-name #[(data) "ˆÁ
Ã\042ˆGˆÆ
Ã\042«‰ÇÈ
É\134#ª‡ˆÇÈÊË#)‡\000" [() set-cond-val COND_INPUT_STRING_TYPE 0 data slen /= write-back-bytes 18028 1 2 " "] 15])
