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

Canvas size amd execute/query

Browse source
This commit is contained in:
David Botton 2021-01-14 16:11:34 -05:00
parent e75def587d
commit 0c5a1c081e
2 changed files with 12 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tutorial/10-tutorial.lisp
View file

@ -5,9 +5,13 @@
(in-package :clog-user)
(defun on-new-window (body)
(let* ((canvas (create-canvas body))
(let* ((canvas (create-canvas body :width 600 :height 400))
(cx (create-context2d canvas)))
)
(set-border canvas :thin :solid :black)
(clog::execute cx "fillStyle='green'")
(clog::execute cx "fillRect(10, 10, 150, 100)"))
(run body))