diff --git a/clog.asd b/clog.asd index 746dedf..21cef66 100644 --- a/clog.asd +++ b/clog.asd @@ -5,12 +5,11 @@ :author "David Botton " :license "BSD" - :version "0.8.0" + :version "0.9.0" :serial t :depends-on (#:clack #:websocket-driver #:alexandria #:hunchentoot #:cl-ppcre #:bordeaux-threads #:trivial-open-browser - #:lack-middleware-static #:lack-middleware-session - #:mgl-pax #:quri) + #:lack-middleware-static #:mgl-pax #:quri) :components ((:file "clog-connection") (:file "clog") (:file "clog-docs") diff --git a/tutorial/18-tutorial.lisp b/tutorial/18-tutorial.lisp index 693ce96..f6d9135 100644 --- a/tutorial/18-tutorial.lisp +++ b/tutorial/18-tutorial.lisp @@ -7,8 +7,13 @@ (defun on-new-window (body) (let* ((target1 (create-div body)) (target2 (create-div body)) - (object (create-div target1))) + (object (create-div target1)) + (msg (create-div body + :content "Drag green box to other yellow box"))) + (setf (positioning msg) :fixed) + (setf (top msg) "125px") + (setf (positioning target1) :fixed) (setf (top target1) "10px") (setf (left target1) "10px")