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

envelope-panel* load project/tools when starting builder with a project

Browse source
This commit is contained in:
David Botton 2024-07-14 17:36:33 -04:00
parent 45a0cf9243
commit 0bbbcc292e
6 changed files with 228 additions and 186 deletions
Download patch file Download diff file Expand all files Collapse all files

25
source/clog-panel.lisp
View file

@ -150,11 +150,11 @@ nil. Resizable only works if overflow is set to :SCROLL"))
(defgeneric envelope-panel (clog-element panel width height
&key class style units)
(:documentation "Create a panel of WIDTH and HEIGHT with :relative
positioning to envelope PANEL. This allows any type of clog-panel (including
those created by CLOG Builder, to be positioned within DISPLAY :flex or
:grid layouts or otherwise treat the panel as an inline object.
Returns envelope-panel"))
(:documentation "Create a envelope of WIDTH and HEIGHT with :relative
positioning to envelope PANEL. The envelope is a child of CLOG-ELEMENT.
This allows any type of clog-panel (including those created by CLOG Builder,
to be positioned within a DISPLAY :flex or :grid layout or otherwise treat the
panel as an inline object. Returns the new envelope of PANEL"))
(defmethod envelope-panel ((obj clog-element) (panel clog-element)
width height
@ -165,6 +165,21 @@ Returns envelope-panel"))
(place-inside-top-of e panel)
e))
;;;;;;;;;;;;;;;;;;;;
;; envelope-panel ;;
;;;;;;;;;;;;;;;;;;;;
(defgeneric envelope-panel* (panel width height
&key class style units)
(:documentation "Like envelope panel, but usses the panels parent as the
parent of the envelope. Returns the new envelope of PANEL"))
(defmethod envelope-panel* ((panel clog-element)
width height
&key (units :px) class (style ""))
(envelope-panel (parent panel) panel width height
:units units :class class :style style))
;;;;;;;;;;;;;;;;;;;;;
;; center-children ;;
;;;;;;;;;;;;;;;;;;;;;