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

Label properties

Browse source
This commit is contained in:
David Botton 2021-12-13 17:01:28 -05:00
parent 69e0e69b20
commit b99f20d9c7
1 changed files with 22 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

37
tools/clog-builder.lisp
View file

@ -243,10 +243,15 @@
(setf (top parent) (text obj))))
("Left" ,(left parent) t ,(lambda (obj)
(setf (left parent) (text obj))))
("Value" ,(value control) t ,(lambda (obj)
(setf (value control) (text obj))))
("Text" ,(text control) t ,(lambda (obj)
(setf (text control) (text obj)))))))
("Width" ,(width parent) t ,(lambda (obj)
(setf (width parent) (text obj))))
("Height" ,(height parent) t ,(lambda (obj)
(setf (height parent) (text obj))))
,(if (typep control 'clog:clog-form-element)
`("Value" ,(value control) t ,(lambda (obj)
(setf (value control) (text obj))))
`("Text" ,(text control) t ,(lambda (obj)
(setf (text control) (text obj))))))))
(dolist (item props)
(let* ((tr (create-table-row table))
(td1 (create-table-column tr :content (first item)))
@ -341,21 +346,23 @@
(setf (current-control app) element)
(setf (box-sizing element) :content-box)
(setf (box-sizing handle) :content-box)
(set-padding handle "0px" "16px" "0px" "0px")
(set-padding handle "0px" "16px" "0px" "0px")
(set-on-mouse-up element (lambda (obj data)
(setf (current-control app) element)
(on-populate-control-properties win)))
(set-on-focus-in element (lambda (obj)
(declare (ignore obj))
(setf (current-control app) element)
(on-populate-control-properties win)
(let ((x (position-left handle))
(y (position-top handle)))
(set-geometry handle :left (- x 12) :top (- y 12))
(set-border handle "12px" :solid :blue))))
(setf (current-control app) element)
(let ((x (position-left handle))
(y (position-top handle)))
(set-geometry handle :left (- x 12) :top (- y 12))
(set-border handle "12px" :solid :blue))))
(set-on-focus-out element (lambda (obj)
(declare (ignore obj))
(let ((x (position-left handle))
(y (position-top handle)))
(set-border handle "initial" "" "")
(set-geometry handle :left (+ x 12) :top (+ y 12)))))
(let ((x (position-left handle))
(y (position-top handle)))
(set-border handle "initial" "" "")
(set-geometry handle :left (+ x 12) :top (+ y 12)))))
(setf (selected-tool app) nil)
(clog::jquery-execute handle "draggable().resizable()")
(set-geometry element :units "%" :width 100 :height 100)