(? #[() "ÀÁÂ\042ˆÀÃÄ\042ˆÅÅÆÇ!!ÅÆÈ!!\042	ˆÊ`ˆË`ˆÌ`ˆÍ`ˆ‡\000" [defvar mirroring-clear-conf-mes (gettext "Are you sure you want to delete all pairing information?") mirroring-clear-conf-last-pos 1 list backquote (m-access-1 mirroring-clear-conf-yes-btn :title (backquote-unquote (gettext "Yes")) :title-pos center :enter-action (function (lambda (key) (write-back-bytes 10 12 20 3 0)))) (m-access-1 mirroring-clear-conf-no-btn :title (backquote-unquote (gettext "No")) :title-pos center :enter-action (function (lambda (key) (mirroring-clear-conf-unmap)))) mirroring-clear-conf-btn-lst (m-frame-1 mirroring-clear-conf :title (gettext "Delete All Pairings") :info2 (if (string= *m-area* "arabic") (backquote (m-gtext-box () :v (backquote-unquote mirroring-clear-conf-mes) :pos right)) (backquote (m-gtext-box () :v (backquote-unquote mirroring-clear-conf-mes) :pos left))) :last-pos (quote mirroring-clear-conf-last-pos) :multi-cols t :button mirroring-clear-conf-btn-lst :cursor-help-args (backquote (:enter-text-lst ((backquote-unquote (gettext "Confirm"))) :cur-right-text-lst ((backquote-unquote (gettext "Select"))) :return-text-lst ((backquote-unquote (gettext "Return")))))) (set-my-dwin-nwset-child mirroring-clear-conf) (m-panel-frame-1 mirroring-clear-end :title (gettext "Delete All Pairings") :message (gettext "All pairing information was deleted.") :w (m-scale-h 550 h-unit) :text-w (m-scale-h 500 h-unit) :with-cursor-help t :cursor-help-args (backquote (:text-col (backquote-unquote FDP_COLOR_TEXT_ONBASE) :bg (backquote-unquote FDP_COLOR_POP_A) :enter-text-lst ((backquote-unquote (gettext "OK"))) :return-text-lst ((backquote-unquote (gettext "Return")))))) (set-my-dwin-nwset-child mirroring-clear-end)] 14])
