(? #[() "À`ˆ‡\000" [(m-frame-1 version-info :width (m-scale-h 570 h-unit) :title (gettext "System Information") :button (let ((txt (gettext "Status"))) (setf version-info-number (list (quote m-access-5) (quote ver-number-btn) :title (gettext "Software Version"))) (setf version-info-status1 (list (quote m-access-5) (quote ver-status1-btn) :title (concatenate (quote string) txt "1"))) (setf version-info-status2 (list (quote m-access-5) (quote ver-status2-btn) :title (concatenate (quote string) txt "2"))) (setf version-info-status3 (list (quote m-access-5) (quote ver-status3-btn) :title (concatenate (quote string) txt "3"))) (setf version-info-hdavi (list (quote m-access-5) (quote ver-vl-version-btn) :title (gettext "HDAVI Control") :title2 "4")) (if (= *WITH-VIERACAST* t) (list version-info-number version-info-status1 version-info-status2 version-info-status3 version-info-hdavi) (list version-info-number version-info-status1 version-info-status2 version-info-hdavi))) :cursor-help-args (list :exit-text-lst (list (gettext "Exit")) :cur-left-text-lst (list "" (gettext "Access")) :return-text-lst (list (gettext "Return"))))] 9])
