mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

adjust package

Browse source
This commit is contained in:
David Botton 2024-07-28 11:29:22 -04:00
parent 73157f85fc
commit 27c6a36455
6 changed files with 15 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-gui.lisp
View file

@ -2394,9 +2394,9 @@ If time-out return result of on-file-name, cancels dialog if time runs out."
(caret-at-end () (caret-at-end ()
(focus input) (focus input)
(js-execute win (format nil "~A.setSelectionRange(~A.value.length,~A.value.length)" (js-execute win (format nil "~A.setSelectionRange(~A.value.length,~A.value.length)"
(clog::script-id input) (script-id input)
(clog::script-id input) (script-id input)
(clog::script-id input))))) (script-id input)))))
(populate-dirs initial-dir) (populate-dirs initial-dir)
(populate-files initial-dir) (populate-files initial-dir)
(when initial-filename (when initial-filename

2
source/clog-helpers.lisp
View file

@ -132,7 +132,7 @@ and debugger display for clog events."
;; save-body-to-file ;; ;; save-body-to-file ;;
;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;
(defun save-body-to-file (file-name &key (body clog-user::*body*) (defun save-body-to-file (file-name &key (body clog-user:*body*)
(if-exists :error) (if-exists :error)
if-does-not-exist if-does-not-exist
external-format) external-format)

2
tools/clog-builder-control-list.lisp
View file

@ -34,7 +34,7 @@
"Remove any deleted control from control-list" "Remove any deleted control from control-list"
(maphash (lambda (html-id control) (maphash (lambda (html-id control)
(when (equalp (js-query control (format nil "$.contains(document.documentElement, ~A)" (when (equalp (js-query control (format nil "$.contains(document.documentElement, ~A)"
(clog::script-id control))) "false") (script-id control))) "false")
(remove-from-control-list app panel-id html-id))) (remove-from-control-list app panel-id html-id)))
(get-control-list app panel-id))) (get-control-list app panel-id)))

2
tools/clog-builder-panels.lisp
View file

@ -421,7 +421,7 @@ manipulation of the control's location and size."
(when control (when control
(clog::make-clog-element (clog::connection-id control) (clog::make-clog-element (clog::connection-id control)
(format nil "p-~A" (html-id control)) (format nil "p-~A" (html-id control))
:clog-type 'clog::clog-element))) :clog-type 'clog:clog-element)))
(defun deselect-current-control (app) (defun deselect-current-control (app)
"Remove selection on current control and remove visual ques on its placer." "Remove selection on current control and remove visual ques on its placer."

6
tools/clog-builder-repl.lisp
View file

@ -102,11 +102,11 @@
:height 400 :width 600 :height 400 :width 600
:has-pinner t :has-pinner t
:client-movement *client-side-movement*))) :client-movement *client-side-movement*)))
(setf clog-user::*body* (window-content win)) (setf clog-user:*body* (window-content win))
(set-on-window-close win (set-on-window-close win
(lambda (obj) (lambda (obj)
(when (eq obj clog-user::*body*) (when (eq obj clog-user:*body*)
(setf clog-user::*body* nil)))) (setf clog-user:*body* nil))))
(clog-terminal:echo target "Use clog-user:*body* to access the clog-builder-repl window."))) (clog-terminal:echo target "Use clog-user:*body* to access the clog-builder-repl window.")))
(t (t
(multiple-value-bind (result new-package first-eval-result) (multiple-value-bind (result new-package first-eval-result)

20
tools/clog-builder-settings-controls.lisp
View file

@ -149,11 +149,7 @@
(setf (top control) "") (setf (top control) "")
(setf (left control) "")) (setf (left control) ""))
(setf (positioning control) (value dd)) (setf (positioning control) (value dd))
(set-geometry (get-placer control) (adjust-control-placer control)
:top (position-top control)
:left (position-left control)
:width (client-width control)
:height (client-height control))
(on-populate-control-properties-win obj))) (on-populate-control-properties-win obj)))
nil))))) nil)))))
@ -548,20 +544,16 @@
(set-on-change dd (lambda (obj) (set-on-change dd (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(setf (attribute control "type") (value dd)) (setf (attribute control "type") (value dd))
(set-geometry (get-placer control) (adjust-control-placer control)))
:top (position-top control)
:left (position-left control)
:width (client-width control)
:height (client-height control))))
nil))) nil)))
(:name "data list" (:name "data list"
:get ,(lambda (control) :get ,(lambda (control)
(clog::js-query control (format nil "$('#~A').attr('data-clog-name')" (js-query control (format nil "$('#~A').attr('data-clog-name')"
(attribute control "list")))) (attribute control "list"))))
:set ,(lambda (control obj) :set ,(lambda (control obj)
(setf (attribute control "list") (setf (attribute control "list")
(clog::js-query control (format nil "$(\"[data-clog-name='~A']\").attr('id')" (js-query control (format nil "$(\"[data-clog-name='~A']\").attr('id')"
(text obj)))))) (text obj))))))
,@*props-form-values* ,@*props-form-values*
,@*props-css* ,@*props-css*
,@*props-colors* ,@*props-colors*