(? #[() "À	8Â˜ˆ«ƒÀªƒˆÆˆÈÉÊ!ÉË!ÉÌ!ÉÍ!ÉÎ!ÉÏ!&ˆÐ`ˆÑ`*ˆ‡\000" [0 fs-dev-set-param-list "" is-new () btn-lst 2 file-sharing-dev-set-last-pos list backquote (m-access-5 fs-dev-set-server :title (backquote-unquote (gettext "Server Name")) :is-forcus (backquote-unquote is-new) :ena-forcus (backquote-unquote is-new) :enter-action (function (lambda (key) (fs-show-m-keyboard fs-dev-set-server 0)))) (m-access-5 fs-dev-set-device :title (backquote-unquote (gettext "Shared Folder")) :is-forcus (backquote-unquote is-new) :ena-forcus (backquote-unquote is-new) :enter-action (function (lambda (key) (fs-show-m-keyboard fs-dev-set-device 1)))) (m-access-5 fs-dev-set-user :title (backquote-unquote (gettext "[SMB]User")) :enter-action (function (lambda (key) (fs-show-m-keyboard fs-dev-set-user 2)))) (m-access-5 fs-dev-set-password :title (backquote-unquote (gettext "Password")) :enter-action (function (lambda (key) (fs-show-m-keyboard fs-dev-set-password 3)))) (m-access-1 fs-dev-set-reg :title (backquote-unquote (gettext "[SMB]Register")) :title-pos center :enter-action (function (lambda (key) (unless (m-button-grayout fs-dev-set-reg) (write-back-bytes 6 8 18 3))))) (m-access-1 fs-dev-set-delete :title (backquote-unquote (gettext "Delete")) :title-pos center :enter-action (function (lambda (key) (f-load "fs-del-confirm-fun.lsp") (show-fs-del-confirm)))) (m-frame-1 file-sharing-dev-set-panel :last-pos (quote file-sharing-dev-set-last-pos) :title (gettext "Network Device Settings") :button btn-lst) (set-my-dwin-nwset-child file-sharing-dev-set-panel)] 18])
