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

update documentation, remove tabs

Browse source
This commit is contained in:
David Botton 2022-07-18 22:26:37 -04:00
parent 2c9ce0864f
commit 25a9462f1f
84 changed files with 2163 additions and 2278 deletions
Download patch file Download diff file Expand all files Collapse all files

22
tutorial/27-tutorial.lisp
View file

@ -8,11 +8,11 @@
(defun on-new-window (body)
(let* ((console (create-panel-box-layout body :left-width 200 :right-width 0))
(head (create-div (top-panel console) :content "Image Viewer"))
(lbox (create-select (left-panel console)))
(viewer (create-img (center-panel console)))
(footer (create-div (bottom-panel console)
:content "(c) 2021 David Botton - BSD 3 Lic.")))
(head (create-div (top-panel console) :content "Image Viewer"))
(lbox (create-select (left-panel console)))
(viewer (create-img (center-panel console)))
(footer (create-div (bottom-panel console)
:content "(c) 2021 David Botton - BSD 3 Lic.")))
(declare (ignore footer))
;; Setup Top
(setf (background-color (top-panel console)) :teal)
@ -26,13 +26,13 @@
(setf (size lbox) 2) ;; A size above 1 needed to get listbox
(set-geometry lbox :left 0 :top 0 :bottom 0 :width 200)
(add-select-options lbox '("kiarash-mansouri-fzoSNcxqtp8-unsplash.jpg"
"windmills.jpg"
"yellow-clogs.jpg"
"clogicon.png"))
"windmills.jpg"
"yellow-clogs.jpg"
"clogicon.png"))
(set-on-change lbox (lambda (obj)
(declare (ignore obj))
(setf (url-src viewer) (format nil "/img/~A"
(value lbox)))))
(declare (ignore obj))
(setf (url-src viewer) (format nil "/img/~A"
(value lbox)))))
;; Setup Bottom
(center-children (bottom-panel console) :horizontal nil)))