Canvas size amd execute/query

clog-canvas.lisp

@@ -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))
+(defmethod create-canvas ((obj clog-obj)
-  (create-child obj "<canvas/>"
+			  &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 ()
+(defclass clog-context2d (clog-obj)())
-  ((connection-id
-    :reader connection-id
-    :initarg :connection-id)
-   (html-id
-    :reader html-id
-    :initarg :html-id))
-  (:documentation "CLOG Context Objects."))
 
 ;;;;;;;;;;;;;;;;;;;;;;
 ;; create-context2d ;;
@@ -61,4 +56,3 @@
     (make-instance 'clog-context2d
 		   :connection-id (connection-id obj)
 		   :html-id web-id)))
-

tutorial/10-tutorial.lisp

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