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

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

18
clog-canvas.lisp
View file

@ -21,12 +21,14 @@
;; create-canvas ;;
;;;;;;;;;;;;;;;;;;;
(defgeneric create-canvas (clog-obj &key auto-place)
(defgeneric create-canvas (clog-obj &key width height auto-place)
(:documentation "Create a new CLOG-Canvas as child of CLOG-OBJ if
:AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ."))
(defmethod create-canvas ((obj clog-obj) &key (auto-place t))
(create-child obj "<canvas/>"
(defmethod create-canvas ((obj clog-obj)
&key (width 300) (height 150) (auto-place t))
(create-child obj (format nil "<canvas width=~A height=~A/>"
width height)
:clog-type 'clog-canvas :auto-place auto-place))
@ -34,14 +36,7 @@
;; Implementation - clog-context2d
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-context2d ()
((connection-id
:reader connection-id
:initarg :connection-id)
(html-id
:reader html-id
:initarg :html-id))
(:documentation "CLOG Context Objects."))
(defclass clog-context2d (clog-obj)())
;;;;;;;;;;;;;;;;;;;;;;
;; create-context2d ;;
@ -61,4 +56,3 @@
(make-instance 'clog-context2d
:connection-id (connection-id obj)
:html-id web-id)))

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))