mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 02:30:42 -08:00
regex find when clicking from sys-browser
This commit is contained in:
David Botton
parent
daaa2801ae
commit
6e244e5291
4 changed files with 75 additions and 67 deletions
|
|
@ -47,6 +47,7 @@
|
|||
text
|
||||
(title-class *builder-title-class*)
|
||||
lisp-package
|
||||
regex
|
||||
maximized)
|
||||
"Open a new text editor"
|
||||
(unless (window-to-top-by-title obj open-file)
|
||||
|
|
@ -220,8 +221,12 @@
|
|||
(open-file-name fname)
|
||||
(setf is-dirty nil)))))
|
||||
(when (and open-file
|
||||
(not (equalp open-file " ")))
|
||||
(not (equalp open-file " "))
|
||||
(not (equalp open-file "")))
|
||||
(open-file-name open-file))
|
||||
(when regex
|
||||
(js-execute obj (format nil "~A.find('~A',{caseSensitive:false,regExp:true})"
|
||||
(clog-ace::js-ace ace) regex)))
|
||||
(set-on-click btn-load (lambda (obj) (load-file obj)))
|
||||
(set-on-click m-load (lambda (obj) (load-file obj))))
|
||||
(set-on-input ace (lambda (obj)
|
||||
|
|
|
|||
|
|
@ -47,20 +47,20 @@
|
|||
|
||||
(defun sys-browser-package-box (panel target)
|
||||
(add-select-option target "All"
|
||||
"All")
|
||||
"All")
|
||||
(dolist (p (sort (list-all-packages) (lambda (a b)
|
||||
(string-lessp (package-name a)
|
||||
(package-name b)))))
|
||||
(add-select-option target (package-name p)
|
||||
(package-name p)))
|
||||
(package-name p)))
|
||||
(setf (value target) "All")
|
||||
(sys-browser-populate panel))
|
||||
|
||||
(defun sys-browser-search-box-key-up (panel target data)
|
||||
(declare (ignore target))
|
||||
(cond ((equal (text-value (package-box panel)) "All")
|
||||
(when (equalp "enter" (getf data :key))
|
||||
(sys-browser-populate panel)))
|
||||
(when (equalp "enter" (getf data :key))
|
||||
(sys-browser-populate panel)))
|
||||
(t
|
||||
(sys-browser-populate panel))))
|
||||
|
||||
|
|
@ -73,16 +73,17 @@
|
|||
|
||||
(defun sys-browser-file-name-on-click (panel target)
|
||||
(declare (ignore panel))
|
||||
(on-open-file target :open-file (text-value target)))
|
||||
(unless (equal (text-value target) "")
|
||||
(on-open-file target :open-file (text-value target) :regex (search-js panel))))
|
||||
|
||||
(defun sys-browser-eval-form-button-on-click (panel target)
|
||||
(declare (ignore target))
|
||||
(let ((p (parse-integer
|
||||
(js-query panel
|
||||
(format nil "~A.session.doc.positionToIndex (~A.selection.getCursor(), 0);"
|
||||
(clog-ace::js-ace (src-box panel))
|
||||
(clog-ace::js-ace (src-box panel))))
|
||||
:junk-allowed t))
|
||||
(js-query panel
|
||||
(format nil "~A.session.doc.positionToIndex (~A.selection.getCursor(), 0);"
|
||||
(clog-ace::js-ace (src-box panel))
|
||||
(clog-ace::js-ace (src-box panel))))
|
||||
:junk-allowed t))
|
||||
(tv (text-value (src-box panel)))
|
||||
(pk (text-value (pac-box panel)))
|
||||
(lf nil)
|
||||
|
|
@ -208,43 +209,44 @@
|
|||
(setf name (ppcre:regex-replace-all "\\\(" name "\\x5C("))
|
||||
(setf name (ppcre:regex-replace-all "\\\)" name "\\x5C)"))
|
||||
(setf name (ppcre:regex-replace-all "\\\*" name "\\x5C*"))
|
||||
(setf (search-js panel) (cond ((eq type 'definitions:generic-function)
|
||||
(format nil "defgeneric\\\\s+~A" name))
|
||||
((eq type 'definitions:method)
|
||||
(format nil "defmethod\\\\s+~A" name))
|
||||
((eq type 'definitions:function)
|
||||
(format nil "defun\\\\s+~A" name))
|
||||
((eq type 'definitions:macro)
|
||||
(format nil "defmacro\\\\s+~A" name))
|
||||
((eq type 'definitions:class)
|
||||
(format nil "defclass\\\\s+~A" name))
|
||||
((eq type 'definitions:compiler-macro)
|
||||
(format nil "define-compiler-macro\\\\s+~A" name))
|
||||
((eq type 'definitions:condition)
|
||||
(format nil "define-condition\\\\s+~A" name))
|
||||
((eq type 'definitions:alien-type)
|
||||
(format nil "define-alien-type ~A" name))
|
||||
((eq type 'definitions:constant)
|
||||
(format nil "defconstant\\\\s+~A" name))
|
||||
((eq type 'definitions:package)
|
||||
(format nil "defpackage\\\\s+~A" name))
|
||||
((eq type 'definitions:special-variable)
|
||||
(format nil "(defsection|defparameter|defvar)\\\\s+~A" name))
|
||||
((eq type 'definitions:vop)
|
||||
(format nil "define-type-vop\\\\s+~A" name))
|
||||
((eq type 'definitions:structure)
|
||||
(format nil "defstruct\\\\s*\\\\(\\\\s*~A" name))
|
||||
((eq type 'definitions:setf-expander)
|
||||
(format nil "(defsetf|def)\\\\s+~A" name))
|
||||
((eq type 'definitions:optimizer)
|
||||
(format nil "defoptimizer\\\\s*\\\\(\\\\s*~A" name))
|
||||
((eq type 'definitions:ir1-convert)
|
||||
(format nil "def-ir1-translator\\\\s+~A" name))
|
||||
(t
|
||||
name)))
|
||||
(js-execute target (format nil "~A.find('~A',{caseSensitive:false,regExp:true})"
|
||||
(clog-ace::js-ace (src-box panel))
|
||||
(cond ((eq type 'definitions:generic-function)
|
||||
(format nil "defgeneric\\\\s+~A" name))
|
||||
((eq type 'definitions:method)
|
||||
(format nil "defmethod\\\\s+~A" name))
|
||||
((eq type 'definitions:function)
|
||||
(format nil "defun\\\\s+~A" name))
|
||||
((eq type 'definitions:macro)
|
||||
(format nil "defmacro\\\\s+~A" name))
|
||||
((eq type 'definitions:class)
|
||||
(format nil "defclass\\\\s+~A" name))
|
||||
((eq type 'definitions:compiler-macro)
|
||||
(format nil "define-compiler-macro\\\\s+~A" name))
|
||||
((eq type 'definitions:condition)
|
||||
(format nil "define-condition\\\\s+~A" name))
|
||||
((eq type 'definitions:alien-type)
|
||||
(format nil "define-alien-type ~A" name))
|
||||
((eq type 'definitions:constant)
|
||||
(format nil "defconstant\\\\s+~A" name))
|
||||
((eq type 'definitions:package)
|
||||
(format nil "defpackage\\\\s+~A" name))
|
||||
((eq type 'definitions:special-variable)
|
||||
(format nil "(defsection|defparameter|defvar)\\\\s+~A" name))
|
||||
((eq type 'definitions:vop)
|
||||
(format nil "define-type-vop\\\\s+~A" name))
|
||||
((eq type 'definitions:structure)
|
||||
(format nil "defstruct\\\\s*\\\\(\\\\s*~A" name))
|
||||
((eq type 'definitions:setf-expander)
|
||||
(format nil "(defsetf|def)\\\\s+~A" name))
|
||||
((eq type 'definitions:optimizer)
|
||||
(format nil "defoptimizer\\\\s*\\\\(\\\\s*~A" name))
|
||||
((eq type 'definitions:ir1-convert)
|
||||
(format nil "def-ir1-translator\\\\s+~A" name))
|
||||
(t
|
||||
name))))))
|
||||
(clog-ace::js-ace (src-box panel)) (search-js panel)))))
|
||||
(t
|
||||
(setf (search-js panel) nil)
|
||||
(setf (text-value (file-name panel)) "")
|
||||
(setf (disabledp (eval-button panel)) t)
|
||||
(setf (disabledp (eval-sel-button panel)) t)
|
||||
|
|
|
|||
2
tools/panel-sys-browser.clog
vendored
2
tools/panel-sys-browser.clog
vendored
|
|
@ -1 +1 @@
|
|||
<data id="I3921162462" data-in-package="clog-tools" data-custom-slots="(classes :accessor classes) (fname :accessor fname) (state :accessor state :initform t)" data-clog-next-id="24" data-clog-title="sys-browser"></data><select data-clog-type="dropdown" data-clog-name="type-box" style="box-sizing: content-box; position: absolute; left: 5px; top: 10px; width: 190px; height: 20px;" data-on-create="(sys-browser-type-box-create panel target)" data-on-change="(sys-browser-populate panel)"></select><select data-clog-type="dropdown" data-clog-name="package-box" style="box-sizing: content-box; position: absolute; left: 205px; top: 10px; width: 300px; height: 20px; bottom: 335.028px;" data-on-create="(sys-browser-package-box panel target)" data-on-change="(sys-browser-populate panel)"></select><label for="CLOGB386795982312" data-clog-type="label" data-clog-for="class-only" data-clog-name="label-class-only" style="box-sizing: content-box; position: absolute; left: 535px; top: 9px;" class="">pkg only</label><input type="CHECKBOX" value="" data-clog-type="checkbox" data-clog-name="class-only" style="box-sizing: content-box; position: absolute; left: 516px; top: 15px;" checked="checked" data-on-change="(sys-browser-populate panel)"><input type="TEXT" value="" data-clog-type="input" data-clog-name="search-box" style="box-sizing: content-box; position: absolute; inset: 7px 5px 332.045px 605px; height: 22px;" data-on-key-up="(sys-browser-search-box-key-up panel target data)" placeholder="search" name=""><select data-clog-type="listbox" size="4" data-clog-name="class-box" style="box-sizing: content-box; position: absolute; left: 5px; top: 40px; right: 5px; height: 125px;" class="w3-small" data-on-change="(sys-browser-select panel target)" data-on-click="(sys-browser-select panel target)"></select><textarea name="" cols="20" rows="2" data-clog-type="textarea" data-clog-name="doc-box" style="box-sizing: content-box; position: absolute; right: 5px; height: 50px; resize: none; min-width: 0px; top: 175px; left: 5px;" class=" w3-small"></textarea><input type="TEXT" value="clog-user" data-clog-type="input" data-clog-name="pac-box" style="box-sizing: content-box; position: absolute; left: 5px; top: 239px; right: 5px; height: 18px;" placeholder="Current Package" class="w3-small"><div class="ace_editor ace_hidpi ace-xcode ace-tm" data-clog-type="clog-ace" data-clog-composite-control="t" data-clog-ace-theme="ace/theme/xcode" data-clog-ace-mode="ace/mode/lisp" data-clog-ace-tab-size="2" data-clog-name="src-box" style="border: thin solid black; box-sizing: content-box; position: absolute; inset: 273px 5px 50px;" data-on-create="(setup-lisp-ace target (status-box panel))" data-on-input="(sys-browser-src-box-on-input panel target)"></div><input type="button" data-clog-type="fbutton" data-clog-name="file-name" style="box-sizing: content-box; position: absolute; left: 5px; bottom: 24px; right: 290px; text-align: left; height: 18px;" class="w3-small" data-on-click="(sys-browser-file-name-on-click panel target)"><input type="BUTTON" value="Eval Form" data-clog-type="fbutton" data-clog-name="eval-form-button" style="box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 215px; bottom: 24px;" class="w3-tiny" disabled="disabled" data-on-click="(sys-browser-eval-form-button-on-click panel target)"><input type="BUTTON" value="Eval Sel" data-clog-type="fbutton" data-clog-name="eval-sel-button" style="box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 145px; bottom: 25px;" class="w3-tiny" data-on-click="(sys-browser-eval-sel-button-on-click panel target)" placeholder="" disabled="disabled"><input type="BUTTON" value="Eval File" data-clog-type="fbutton" data-clog-name="eval-button" style="box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 75px; bottom: 25px;" class="w3-tiny" data-on-click="(sys-browser-eval-button-on-click panel target)" disabled="disabled"><input type="BUTTON" value="Save" data-clog-type="fbutton" data-clog-name="save-button" style="box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 5px; bottom: 25px;" class="w3-tiny" disabled="disabled" data-on-click="(sys-browser-save-button-on-click panel-target)"><div data-clog-type="div" data-clog-name="status-box" style="box-sizing: content-box; position: absolute; left: 5px; bottom: 5px; right: 5px;" class="w3-tiny w3-border">status</div>
|
||||
<data id="I3921165914" data-in-package="clog-tools" data-custom-slots="(classes :accessor classes) (search-js :accessor search-js :initform nil) (fname :accessor fname) (state :accessor state :initform t)" data-clog-next-id="24" data-clog-title="sys-browser"></data><select data-clog-type="dropdown" data-clog-name="type-box" style="box-sizing: content-box; position: absolute; left: 5px; top: 10px; width: 190px; height: 20px;" data-on-create="(sys-browser-type-box-create panel target)" data-on-change="(sys-browser-populate panel)"></select><select data-clog-type="dropdown" data-clog-name="package-box" style="box-sizing: content-box; position: absolute; left: 205px; top: 10px; width: 300px; height: 20px; bottom: 335.028px;" data-on-create="(sys-browser-package-box panel target)" data-on-change="(sys-browser-populate panel)"></select><label for="CLOGB386795982312" data-clog-type="label" data-clog-for="class-only" data-clog-name="label-class-only" style="box-sizing: content-box; position: absolute; left: 535px; top: 9px;" class="">pkg only</label><input type="CHECKBOX" value="" data-clog-type="checkbox" data-clog-name="class-only" style="box-sizing: content-box; position: absolute; left: 516px; top: 15px;" checked="checked" data-on-change="(sys-browser-populate panel)"><input type="TEXT" value="" data-clog-type="input" data-clog-name="search-box" style="box-sizing: content-box; position: absolute; inset: 7px 5px 332.045px 605px; height: 22px;" data-on-key-up="(sys-browser-search-box-key-up panel target data)" placeholder="search" name=""><select data-clog-type="listbox" size="4" data-clog-name="class-box" style="box-sizing: content-box; position: absolute; left: 5px; top: 40px; right: 5px; height: 125px;" class="w3-small" data-on-change="(sys-browser-select panel target)" data-on-click="(sys-browser-select panel target)"></select><textarea name="" cols="20" rows="2" data-clog-type="textarea" data-clog-name="doc-box" style="box-sizing: content-box; position: absolute; right: 5px; height: 50px; resize: none; min-width: 0px; top: 175px; left: 5px;" class=" w3-small"></textarea><input type="TEXT" value="clog-user" data-clog-type="input" data-clog-name="pac-box" style="box-sizing: content-box; position: absolute; left: 5px; top: 239px; right: 5px; height: 18px;" placeholder="Current Package" class="w3-small"><div class="ace_editor ace_hidpi ace-xcode ace-tm" data-clog-type="clog-ace" data-clog-composite-control="t" data-clog-ace-theme="ace/theme/xcode" data-clog-ace-mode="ace/mode/lisp" data-clog-ace-tab-size="2" data-clog-name="src-box" style="border: thin solid black; box-sizing: content-box; position: absolute; inset: 273px 5px 50px;" data-on-create="(setup-lisp-ace target (status-box panel))" data-on-input="(sys-browser-src-box-on-input panel target)"></div><input type="button" data-clog-type="fbutton" data-clog-name="file-name" style="box-sizing: content-box; position: absolute; left: 5px; bottom: 24px; right: 290px; text-align: left; height: 18px;" class="w3-small" data-on-click="(sys-browser-file-name-on-click panel target)"><input type="BUTTON" value="Eval Form" data-clog-type="fbutton" data-clog-name="eval-form-button" style="box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 215px; bottom: 24px;" class="w3-tiny" disabled="disabled" data-on-click="(sys-browser-eval-form-button-on-click panel target)"><input type="BUTTON" value="Eval Sel" data-clog-type="fbutton" data-clog-name="eval-sel-button" style="box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 145px; bottom: 25px;" class="w3-tiny" data-on-click="(sys-browser-eval-sel-button-on-click panel target)" placeholder="" disabled="disabled"><input type="BUTTON" value="Eval File" data-clog-type="fbutton" data-clog-name="eval-button" style="box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 75px; bottom: 25px;" class="w3-tiny" data-on-click="(sys-browser-eval-button-on-click panel target)" disabled="disabled"><input type="BUTTON" value="Save" data-clog-type="fbutton" data-clog-name="save-button" style="box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 5px; bottom: 25px;" class="w3-tiny" disabled="disabled" data-on-click="(sys-browser-save-button-on-click panel target)"><div data-clog-type="div" data-clog-name="status-box" style="box-sizing: content-box; position: absolute; left: 5px; bottom: 5px; right: 5px;" class="w3-tiny w3-border">status</div>
|
||||
|
|
@ -11,61 +11,62 @@
|
|||
(class-only :reader class-only)
|
||||
(label-class-only :reader label-class-only)
|
||||
(package-box :reader package-box) (type-box :reader type-box)
|
||||
(classes :accessor classes) (fname :accessor fname)
|
||||
(state :accessor state :initform t)))
|
||||
(classes :accessor classes)
|
||||
(search-js :accessor search-js :initform nil)
|
||||
(fname :accessor fname) (state :accessor state :initform t)))
|
||||
(defun create-sys-browser
|
||||
(clog-obj &key (hidden nil) (class nil) (html-id nil) (auto-place t))
|
||||
(let ((panel
|
||||
(change-class
|
||||
(clog:create-div clog-obj :content
|
||||
"<select style=\"box-sizing: content-box; position: absolute; left: 5px; top: 10px; width: 190px; height: 20px;\" id=\"CLOGB3921162225\" data-clog-name=\"type-box\"></select><select style=\"box-sizing: content-box; position: absolute; left: 205px; top: 10px; width: 300px; height: 20px; bottom: 335.028px;\" id=\"CLOGB3921162226\" data-clog-name=\"package-box\"></select><label for=\"CLOGB386795982312\" style=\"box-sizing: content-box; position: absolute; left: 535px; top: 9px;\" class=\"\" id=\"CLOGB3921162227\" data-clog-name=\"label-class-only\">pkg only</label><input type=\"CHECKBOX\" value=\"\" style=\"box-sizing: content-box; position: absolute; left: 516px; top: 15px;\" checked=\"checked\" id=\"CLOGB3921162228\" data-clog-name=\"class-only\"><input type=\"TEXT\" value=\"\" style=\"box-sizing: content-box; position: absolute; inset: 7px 5px 332.045px 605px; height: 22px;\" placeholder=\"search\" name=\"\" id=\"CLOGB3921162229\" data-clog-name=\"search-box\"><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 40px; right: 5px; height: 125px;\" class=\"w3-small\" id=\"CLOGB3921162230\" data-clog-name=\"class-box\"></select><textarea name=\"\" cols=\"20\" rows=\"2\" style=\"box-sizing: content-box; position: absolute; right: 5px; height: 50px; resize: none; min-width: 0px; top: 175px; left: 5px;\" class=\" w3-small\" id=\"CLOGB3921162231\" data-clog-name=\"doc-box\"></textarea><input type=\"TEXT\" value=\"clog-user\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 239px; right: 5px; height: 18px;\" placeholder=\"Current Package\" class=\"w3-small\" id=\"CLOGB3921162232\" data-clog-name=\"pac-box\"><div class=\"ace_editor ace_hidpi ace-xcode ace-tm\" style=\"border: thin solid black; box-sizing: content-box; position: absolute; inset: 273px 5px 50px;\" id=\"CLOGB3921162233\" data-clog-name=\"src-box\"></div><input type=\"button\" style=\"box-sizing: content-box; position: absolute; left: 5px; bottom: 24px; right: 290px; text-align: left; height: 18px;\" class=\"w3-small\" id=\"CLOGB3921162234\" data-clog-name=\"file-name\"><input type=\"BUTTON\" value=\"Eval Form\" style=\"box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 215px; bottom: 24px;\" class=\"w3-tiny\" disabled=\"disabled\" id=\"CLOGB3921162235\" data-clog-name=\"eval-form-button\"><input type=\"BUTTON\" value=\"Eval Sel\" style=\"box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 145px; bottom: 25px;\" class=\"w3-tiny\" placeholder=\"\" disabled=\"disabled\" id=\"CLOGB3921162236\" data-clog-name=\"eval-sel-button\"><input type=\"BUTTON\" value=\"Eval File\" style=\"box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 75px; bottom: 25px;\" class=\"w3-tiny\" disabled=\"disabled\" id=\"CLOGB3921162237\" data-clog-name=\"eval-button\"><input type=\"BUTTON\" value=\"Save\" style=\"box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 5px; bottom: 25px;\" class=\"w3-tiny\" disabled=\"disabled\" id=\"CLOGB3921162238\" data-clog-name=\"save-button\"><div style=\"box-sizing: content-box; position: absolute; left: 5px; bottom: 5px; right: 5px;\" class=\"w3-tiny w3-border\" id=\"CLOGB3921162239\" data-clog-name=\"status-box\">status</div>"
|
||||
"<select style=\"box-sizing: content-box; position: absolute; left: 5px; top: 10px; width: 190px; height: 20px;\" id=\"CLOGB3921165388\" data-clog-name=\"type-box\"></select><select style=\"box-sizing: content-box; position: absolute; left: 205px; top: 10px; width: 300px; height: 20px; bottom: 335.028px;\" id=\"CLOGB3921165389\" data-clog-name=\"package-box\"></select><label for=\"CLOGB386795982312\" style=\"box-sizing: content-box; position: absolute; left: 535px; top: 9px;\" class=\"\" id=\"CLOGB3921165390\" data-clog-name=\"label-class-only\">pkg only</label><input type=\"CHECKBOX\" value=\"\" style=\"box-sizing: content-box; position: absolute; left: 516px; top: 15px;\" checked=\"checked\" id=\"CLOGB3921165391\" data-clog-name=\"class-only\"><input type=\"TEXT\" value=\"\" style=\"box-sizing: content-box; position: absolute; inset: 7px 5px 332.045px 605px; height: 22px;\" placeholder=\"search\" name=\"\" id=\"CLOGB3921165392\" data-clog-name=\"search-box\"><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 40px; right: 5px; height: 125px;\" class=\"w3-small\" id=\"CLOGB3921165393\" data-clog-name=\"class-box\"></select><textarea name=\"\" cols=\"20\" rows=\"2\" style=\"box-sizing: content-box; position: absolute; right: 5px; height: 50px; resize: none; min-width: 0px; top: 175px; left: 5px;\" class=\" w3-small\" id=\"CLOGB3921165394\" data-clog-name=\"doc-box\"></textarea><input type=\"TEXT\" value=\"clog-user\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 239px; right: 5px; height: 18px;\" placeholder=\"Current Package\" class=\"w3-small\" id=\"CLOGB3921165395\" data-clog-name=\"pac-box\"><div class=\"ace_editor ace_hidpi ace-xcode ace-tm\" style=\"border: thin solid black; box-sizing: content-box; position: absolute; inset: 273px 5px 50px;\" id=\"CLOGB3921165396\" data-clog-name=\"src-box\"></div><input type=\"button\" style=\"box-sizing: content-box; position: absolute; left: 5px; bottom: 24px; right: 290px; text-align: left; height: 18px;\" class=\"w3-small\" id=\"CLOGB3921165397\" data-clog-name=\"file-name\"><input type=\"BUTTON\" value=\"Eval Form\" style=\"box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 215px; bottom: 24px;\" class=\"w3-tiny\" disabled=\"disabled\" id=\"CLOGB3921165398\" data-clog-name=\"eval-form-button\"><input type=\"BUTTON\" value=\"Eval Sel\" style=\"box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 145px; bottom: 25px;\" class=\"w3-tiny\" placeholder=\"\" disabled=\"disabled\" id=\"CLOGB3921165399\" data-clog-name=\"eval-sel-button\"><input type=\"BUTTON\" value=\"Eval File\" style=\"box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 75px; bottom: 25px;\" class=\"w3-tiny\" disabled=\"disabled\" id=\"CLOGB3921165400\" data-clog-name=\"eval-button\"><input type=\"BUTTON\" value=\"Save\" style=\"box-sizing: content-box; position: absolute; width: 50px; height: 15px; right: 5px; bottom: 25px;\" class=\"w3-tiny\" disabled=\"disabled\" id=\"CLOGB3921165401\" data-clog-name=\"save-button\"><div style=\"box-sizing: content-box; position: absolute; left: 5px; bottom: 5px; right: 5px;\" class=\"w3-tiny w3-border\" id=\"CLOGB3921165402\" data-clog-name=\"status-box\">status</div>"
|
||||
: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 "CLOGB3921162239" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165402" :clog-type
|
||||
'clog:clog-div :new-id t))
|
||||
(setf (slot-value panel 'save-button)
|
||||
(attach-as-child clog-obj "CLOGB3921162238" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165401" :clog-type
|
||||
'clog:clog-form-element :new-id t))
|
||||
(setf (slot-value panel 'eval-button)
|
||||
(attach-as-child clog-obj "CLOGB3921162237" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165400" :clog-type
|
||||
'clog:clog-form-element :new-id t))
|
||||
(setf (slot-value panel 'eval-sel-button)
|
||||
(attach-as-child clog-obj "CLOGB3921162236" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165399" :clog-type
|
||||
'clog:clog-form-element :new-id t))
|
||||
(setf (slot-value panel 'eval-form-button)
|
||||
(attach-as-child clog-obj "CLOGB3921162235" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165398" :clog-type
|
||||
'clog:clog-form-element :new-id t))
|
||||
(setf (slot-value panel 'file-name)
|
||||
(attach-as-child clog-obj "CLOGB3921162234" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165397" :clog-type
|
||||
'clog:clog-form-element :new-id t))
|
||||
(setf (slot-value panel 'src-box)
|
||||
(attach-as-child clog-obj "CLOGB3921162233" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165396" :clog-type
|
||||
'clog-ace:clog-ace-element :new-id t))
|
||||
(setf (slot-value panel 'pac-box)
|
||||
(attach-as-child clog-obj "CLOGB3921162232" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165395" :clog-type
|
||||
'clog:clog-form-element :new-id t))
|
||||
(setf (slot-value panel 'doc-box)
|
||||
(attach-as-child clog-obj "CLOGB3921162231" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165394" :clog-type
|
||||
'clog:clog-text-area :new-id t))
|
||||
(setf (slot-value panel 'class-box)
|
||||
(attach-as-child clog-obj "CLOGB3921162230" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165393" :clog-type
|
||||
'clog:clog-select :new-id t))
|
||||
(setf (slot-value panel 'search-box)
|
||||
(attach-as-child clog-obj "CLOGB3921162229" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165392" :clog-type
|
||||
'clog:clog-form-element :new-id t))
|
||||
(setf (slot-value panel 'class-only)
|
||||
(attach-as-child clog-obj "CLOGB3921162228" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165391" :clog-type
|
||||
'clog:clog-form-element :new-id t))
|
||||
(setf (slot-value panel 'label-class-only)
|
||||
(attach-as-child clog-obj "CLOGB3921162227" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165390" :clog-type
|
||||
'clog:clog-label :new-id t))
|
||||
(setf (slot-value panel 'package-box)
|
||||
(attach-as-child clog-obj "CLOGB3921162226" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165389" :clog-type
|
||||
'clog:clog-select :new-id t))
|
||||
(setf (slot-value panel 'type-box)
|
||||
(attach-as-child clog-obj "CLOGB3921162225" :clog-type
|
||||
(attach-as-child clog-obj "CLOGB3921165388" :clog-type
|
||||
'clog:clog-select :new-id t))
|
||||
(let ((target (type-box panel)))
|
||||
(declare (ignorable target))
|
||||
|
|
@ -132,5 +133,5 @@
|
|||
(clog:set-on-click (save-button panel)
|
||||
(lambda (target)
|
||||
(declare (ignorable target))
|
||||
(sys-browser-save-button-on-click panel-target)))
|
||||
(sys-browser-save-button-on-click panel target)))
|
||||
panel))
|
||||
Loading…
Add table
Add a link
Reference in a new issue