(? #[() "ÀÁÂ\042ˆÃ`ˆÄ`ˆ‡\000" [defvar with-freetime () (m-frame-1 device-information :width (m-scale-h 860 h-unit) :title (gettext "Device Information") :button (let ((txt (gettext "Status"))) (setf device-information-number (list (quote m-access-5) (quote device-information-btn) :title (if *CHINA-CONTROL-PANEL* (gettext "TVID") (gettext "ESN")) :center-ratio 20 :is-forcus ())) (setf freetime-id-number (list (quote m-access-5) (quote freetime-id-btn) :title (gettext "FT DeviceID") :center-ratio 20 :is-forcus ())) (if with-freetime (list device-information-number freetime-id-number) (list device-information-number))) :cursor-help-args (list :cur-left-text-lst (list "" (gettext "Access")) :return-text-lst (list (gettext "Return"))) :list-border () :with-title-underline t :with-help-upperline t) (set-my-dwin-child device-information)] 11])
