Prevent GC using (run body)

README.md

@@ -52,7 +52,12 @@ Sample CLOG app with code base so far (See tutorial 7 for a video game :) :
 
     (set-on-click hello-element      ; Now we set a function to handle clicks
 		  (lambda (obj)              ; In this case we use an anonymous function
-		    (setf (color hello-element) "green")))))
+		    (setf (color hello-element) "green")))
+
+   (run body))) ; Keep our thread alive until connection closes
+	            ; and prevent garbage collection of our CLOG-Objects
+                ; until no longer needed.
+			
 ;; To see all the events one can set and the many properties and styles that
 ;; exist, take a look through the CLOG manual or the file clog-element.lisp
 

clog-body.lisp

@@ -43,6 +43,22 @@
 	       :navigator     (make-clog-navigator connection-id))))
     (set-body (html-document body) body)))
 
+;;;;;;;;;
+;; run ;;
+;;;;;;;;;
+
+(defgeneric run (clog-body)
+  (:documentation "Keeps the main thread alive to prevent garbage
+collection of local objects when not using connection-data objects
+or global objects."))
+
+(defmethod run ((obj clog-body))
+  (loop
+	(if (validp obj)
+	    (sleep 10)
+	    (return (format t "Closing id ~A~%"
+			    (connection-id obj))))))
+
 ;;;;;;;;;;;;
 ;; window ;;
 ;;;;;;;;;;;;

clog.lisp

@@ -309,6 +309,7 @@ application."
   (clog-body class)
 
   "CLOG-Body - Properties"
+  (run           generic-function)
   (window        generic-function)
   (html-document generic-function)
   (location      generic-function)

tutorial/01-tutorial.lisp

@@ -23,7 +23,12 @@
     (set-on-click hello-element      ; Now we set a function to handle clicks
 		  (lambda (obj)      ; In this case we use an anonymous function
 		    (declare (ignore obj))
-		    (setf (color hello-element) "green")))))
+		    (setf (color hello-element) "green")))
+    
+    (run body))) ; Keep our thread alive until connection closes
+		 ; and prevent garbage collection of our CLOG-Objects
+		 ; until no longer needed.
+
 ;; To see all the events one can set and the many properties and styles that
 ;; exist, take a look through the CLOG manual or the file clog-element.lisp
 

tutorial/02-tutorial.lisp

@@ -27,7 +27,8 @@
 		      (dotimes (n x)
 			(create-child body
 				      (format nil "<p>Clicked ~A times.</p>" x))
-			(scroll-to (window body) 0 (height body))))))))
+			(scroll-to (window body) 0 (height body))))))
+    (run body)))
 
 (defun start-tutorial ()
   "Start turtorial."

tutorial/03-tutorial.lisp

@@ -20,7 +20,8 @@
 		      (dotimes (n x)
 			(create-child body
 				      (format nil "<p>Clicked ~A times.</p>" x))
-			(sleep x)))))))
+			(sleep x)))))
+    (run body)))
 
 ;; Running this version of the last tutorial and clicking quickly on the (click me!)
 ;; will demonstrate an important aspect of CLOG, events can happen in _parallel_.

tutorial/04-tutorial.lisp

@@ -16,7 +16,9 @@
 		#'my-on-click)
 
   (set-on-click (create-child body "<h3>Click me too!</h3>")
-		#'my-on-click))
+		#'my-on-click)
+
+  (run body))
 
 (defun start-tutorial ()
   "Start turtorial."

tutorial/05-tutorial.lisp

@@ -20,7 +20,9 @@
 		#'my-on-click)
 
   (setf (connection-data-item body "changer")
-	(create-child body "<h1>I change</h1>")))
+	(create-child body "<h1>I change</h1>"))
+
+  (run body))
 
 (defun start-tutorial ()
   "Start turtorial."

tutorial/06-tutorial.lisp

@@ -31,7 +31,8 @@
   (setf (title (html-document body)) "Tutorial 6")
 
   (set-on-click (create-child body "<h1>(click me to start!)</h1>")
-		#'my-on-click))
+		#'my-on-click)
+  (run body))
 
 (defun start-tutorial ()
   "Start turtorial."

tutorial/07-tutorial.lisp

@@ -79,6 +79,8 @@
 	    (sleep .02))))
     (error (c)
       (format t "Lost connection.~%~%~A" c))))
+;; There is no reason to run (run body) here as we check for (validp body)
+;; and once the connection dies so does the on-new-window thread.
 
 (defun start-tutorial ()
   "Start turtorial."

tutorial/08-tutorial.lisp

@@ -94,7 +94,9 @@
 
     (setf (positioning div3) :absolute)
     (set-on-mouse-down div3 'on-mouse-down)
-    (create-span div3 "Hello world!")))
+    (create-span div3 "Hello world!")
+    
+    (run body)))
 
 (defun start-tutorial ()
   "Start turtorial."

tutorial/09-tutorial.lisp

@@ -80,7 +80,8 @@
 			 (select-tab p2)))
       (set-on-click t3 (lambda (obj)
 			 (setf last-tab obj)
-			 (select-tab p3))))))
+			 (select-tab p3))))
+    (run body)))
 
 (defun start-tutorial ()
   "Start turtorial."