(? #[() "ÀÁ!ˆÀÂ!ˆÃÄÅ\042ˆÃÆÇ\042ˆÃÈÉ\042ˆÃÊË\042ˆÃÌÍ\042ˆÃÎÏ\042ˆÃÐÑ\042ˆÃÒÓ\042ˆÃÔÕ\042ˆÃÖ×\042ˆÃØÙ\042ˆÚ`ˆÛ`ˆ‡\000" [load "/usr/local/glisp/server/m-widget.lsp" "/usr/local/glisp/server/m-panel.lsp" defvar aci-h-unit (m-get-h-unit SCR_LOCAL) aci-v-unit (m-get-v-unit SCR_LOCAL) aci-last-pos 0 aci-row-max 7 aci-col-num (1+ (/ (1- aci-region-num) aci-row-max)) aci-col-width (if (< aci-col-num 3) 310 260) aci-col-margin 22 aci-x (m-scale-h (if (< aci-col-num 3) 160 60) aci-h-unit) aci-y (m-scale-v 140 aci-v-unit) aci-width (m-scale-h (+ (* aci-col-margin (1+ aci-col-num)) (* aci-col-width aci-col-num)) aci-h-unit) aci-yesno-w (m-scale-h 500 aci-h-unit) (m-panel-2 aci-yesno :text-w aci-yesno-w :message (concatenate (quote string) (gettext "ACI Data Found !") "
" (gettext "Press OK to start ACI Install.") "
" (gettext "Press RETURN to continue Normal Install.")) :txt-col COLOR16_234) (m-frame-1 aci-region :title (gettext "Select region") :x aci-x :y aci-y :width aci-width :button (setf aci-button (mapcar (function (lambda (y) (mapcar (function (lambda (x) (backquote (m-access-1 () :title (backquote-unquote x))))) y))) aci-region-names)) :multi-cols t :draw-srcover t :with-cursor-help (not $m-help-is-frontpanel) :cursor-help-args (list :cur-up-text-lst (list (gettext "Select")) :cur-right-text-lst (list (if (> aci-col-num 1) (gettext "Select") "")) :enter-text-lst (list (gettext "Access")) :return-text-lst (list (gettext "Return")) :exit-text-lst (list (gettext "Exit"))) :with-front-panel-help $m-help-is-frontpanel :front-panel-help-args (list :fntpnl-layout (if is-control-panel-with-side "vertical" "horizontal") :f-text (gettext "Exit") :tv-text (gettext "Start") :up-text (gettext "Select") :down-text (gettext "Select")) :last-pos (quote aci-last-pos))] 11])
