(? #[() "ÀÁÂ\042ˆˆÅÅÆÇ!!ÅÆÈ!!\042ˆÉ`ˆÊ`)ˆ‡\000" [defvar msg-last-pos 1 () btn-list list backquote (m-access-1 fs-del-1 :title (backquote-unquote (gettext "Yes")) :title-pos center :enter-action (function (lambda (key) (unmap-frame (quote fs-del-confirm-panel)) (file-sharing-dev-set-terminate) (write-back-bytes 6 8 18 4)))) (m-access-1 fs-del-2 :title (backquote-unquote (gettext "No")) :title-pos center :enter-action (function (lambda (key) (unmap-frame (quote fs-del-confirm-panel))))) (m-frame-1 fs-del-confirm-panel :title (gettext "Network Device Settings") :button btn-list :multi-cols t :with-cursor-help t :cursor-help-args (list :enter-text-lst (list (gettext "OK")) :cur-right-text-lst (list (gettext "Select")) :return-text-lst (list (gettext "Return"))) :info2 (backquote (m-gtext-box () :v (backquote-unquote (gettext "Are you sure you want to delete this Device ?")) :pos (backquote-unquote (if (string= *m-area* "arabic") (quote right) (quote left))))) :last-pos (quote msg-last-pos)) (set-my-dwin-nwset-child fs-del-confirm-panel)] 15])
