(? #[() "ÀÁÂ\042ˆÃ`ˆÄ`ˆÅ`ˆÆÇ!®…
ˆÈÉ!ˆÊ`ˆ‡\000" [defvar child-lock-cursor-pos () (m-frame-1 child-lock :title (gettext "Child Lock List - TV and AV") :sub-title (if (= *sorting-mode* 0) (gettext "Sorting 123...") (if (= *sorting-mode* 1) (gettext "Sorting ABC...") "") "") :fullscreen-mode t :with-title-underline t :data *svl-data* :form *svl-form* :info2 (backquote (m-row-1 () :fg (backquote-unquote *WHITE-TEXT-COLOR*) :bg (backquote-unquote (list *BG-HEADLINE-COLOR*)) :h-unit (backquote-unquote h-unit) :v-unit (backquote-unquote v-unit) :form (backquote-unquote *head-form*) :data (backquote-unquote (backquote (("" (backquote-unquote (gettext "Name")) (backquote-unquote (gettext "Input")) (backquote-unquote (gettext "Type")) (backquote-unquote (gettext "Lock")))))))) :button (mapcar (function (lambda (data) (list (quote m-row-1) () :form *svl-form* :enter-action (function child-lock-enter-action) :data data :focus (if data t)))) (m-subseq (append *svl-data* (make-list2 *constant-win-size* ())) 0 *constant-win-size*)) :with-color-help t :cursor-help-args (list :cur-up-text-lst (list (if (> *cl-data-num* 0) (gettext "Select") "")) :enter-text-lst (list "" (gettext "Lock") (gettext "Unlock")) :return-text-lst (list (gettext "Return")) :exit-text-lst (list (gettext "Exit"))) :with-up-down-help (> *cl-data-num* *constant-win-size*) :color-help-args (list :r-text (gettext "Next input") :g-text (gettext "Lock all") :y-text (gettext "Unlock all") :b-text (if (/= *sorting-mode* 2) (gettext "Sorting mode") "") :arabic-layout (string= *m-area* "arabic")) :last-pos (quote child-lock-cursor-pos)) (m-frame-enter-cursor child-lock (car (m-frame-button-list child-lock))) (child-lock-focus-action) boundp m-panel-lsp load "/usr/local/glisp/server/m-panel.lsp" (m-panel-2 child-lock-please-wait :message (gettext "Please wait while storing data."))] 11])
