(? #[() "ÀÁÂ\042ˆÃ`ˆÄ`ˆÅ`ˆÆ`ˆ‡\000" [defvar usb-remove-safely-last-pos () (m-frame-1 usb-remove-safely :menu-bg-color *menu-background-color* :form *remove-safely-form* :data *remove-safe-data* :title (gettext "USB Device Setup") :info2 (backquote (m-row-1 () :fg (backquote-unquote FDP_COLOR_TEXT_ONBASE) :bg (backquote-unquote (list FDP_COLOR_BORDER_ONBASE)) :h-unit (backquote-unquote h-unit) :v-unit (backquote-unquote v-unit) :form (backquote-unquote remove-safe-header-form) :data (backquote-unquote (backquote (((backquote-unquote (gettext "Product")))))))) :button (mapcar (function (lambda (data) (list (quote m-row-1) () :form *remove-safely-form* :enter-action () :data (if data data (list (list ""))) :focus (if data t)))) (m-subseq (append *remove-safe-data* (make-list2 *remove-safely-constant-win-size* ())) 0 *remove-safely-constant-win-size*)) :with-color-help () :width USB-REMOVE-SAFELY-W :cursor-help-args (list :bg *menu-background-color* :cur-up-text-lst (list "" (gettext "Select")) :return-text-lst (list (gettext "Return")) :enter-text-lst (list "" (gettext "Safely remove USB"))) :with-up-down-help () :last-pos (quote usb-remove-safely-last-pos) :with-title-underline t :force-button-top-y (m-scale-v 50 v-unit)) (set-my-dwin-child usb-remove-safely) (set-my-dwin-child-option-menu usb-remove-safely) (m-frame-enter-cursor usb-remove-safely (car (m-frame-button-list usb-remove-safely)))] 11])
