diff --git a/tools/sys-browser.clog b/tools/sys-browser.clog index fde9cae..13303f4 100644 --- a/tools/sys-browser.clog +++ b/tools/sys-browser.clog @@ -1,4 +1,4 @@ -
 
 
status
" + "
 
status
" :hidden hidden :class class :html-id html-id :auto-place auto-place) 'sys-browser))) (setf (slot-value panel 'status-box) - (attach-as-child clog-obj "CLOGB3868704979" :clog-type + (attach-as-child clog-obj "CLOGB3869649927" :clog-type 'clog:clog-div :new-id t)) (setf (slot-value panel 'save-button) - (attach-as-child clog-obj "CLOGB3868704978" :clog-type + (attach-as-child clog-obj "CLOGB3869649926" :clog-type 'clog:clog-form-element :new-id t)) (setf (slot-value panel 'eval-button) - (attach-as-child clog-obj "CLOGB3868704977" :clog-type + (attach-as-child clog-obj "CLOGB3869649925" :clog-type 'clog:clog-form-element :new-id t)) (setf (slot-value panel 'eval-sel-button) - (attach-as-child clog-obj "CLOGB3868704976" :clog-type + (attach-as-child clog-obj "CLOGB3869649924" :clog-type 'clog:clog-form-element :new-id t)) (setf (slot-value panel 'eval-form-button) - (attach-as-child clog-obj "CLOGB3868704975" :clog-type + (attach-as-child clog-obj "CLOGB3869649923" :clog-type 'clog:clog-form-element :new-id t)) (setf (slot-value panel 'file-name) - (attach-as-child clog-obj "CLOGB3868704974" :clog-type + (attach-as-child clog-obj "CLOGB3869649922" :clog-type 'clog:clog-div :new-id t)) (setf (slot-value panel 'src-box) - (attach-as-child clog-obj "CLOGB3868704973" :clog-type + (attach-as-child clog-obj "CLOGB3869649921" :clog-type 'clog-ace:clog-ace-element :new-id t)) (setf (slot-value panel 'pac-box) - (attach-as-child clog-obj "CLOGB3868704972" :clog-type + (attach-as-child clog-obj "CLOGB3869649920" :clog-type 'clog:clog-form-element :new-id t)) (setf (slot-value panel 'doc-box) - (attach-as-child clog-obj "CLOGB3868704971" :clog-type + (attach-as-child clog-obj "CLOGB3869649919" :clog-type 'clog:clog-text-area :new-id t)) (setf (slot-value panel 'class-box) - (attach-as-child clog-obj "CLOGB3868704970" :clog-type + (attach-as-child clog-obj "CLOGB3869649918" :clog-type 'clog:clog-select :new-id t)) (setf (slot-value panel 'search-box) - (attach-as-child clog-obj "CLOGB3868704969" :clog-type + (attach-as-child clog-obj "CLOGB3869649917" :clog-type 'clog:clog-form-element :new-id t)) (setf (slot-value panel 'class-only) - (attach-as-child clog-obj "CLOGB3868704968" :clog-type + (attach-as-child clog-obj "CLOGB3869649916" :clog-type 'clog:clog-form-element :new-id t)) (setf (slot-value panel 'label-class-only) - (attach-as-child clog-obj "CLOGB3868704967" :clog-type + (attach-as-child clog-obj "CLOGB3869649915" :clog-type 'clog:clog-label :new-id t)) (setf (slot-value panel 'package-box) - (attach-as-child clog-obj "CLOGB3868704966" :clog-type + (attach-as-child clog-obj "CLOGB3869649914" :clog-type 'clog:clog-select :new-id t)) (setf (slot-value panel 'type-box) - (attach-as-child clog-obj "CLOGB3868704965" :clog-type + (attach-as-child clog-obj "CLOGB3869649913" :clog-type 'clog:clog-select :new-id t)) (let ((target (type-box panel))) (declare (ignorable target)) @@ -118,6 +118,10 @@ (when (equalp "enter" (getf data :key)) (sys-browser-populate panel))) (t (sys-browser-populate panel))))) + (clog:set-on-click (class-box panel) + (lambda (target) + (declare (ignorable target)) + (sys-browser-select panel target))) (clog:set-on-change (class-box panel) (lambda (target) (declare (ignorable target))