diff --git a/demos/01-hello.lisp b/demos/01-hello.lisp deleted file mode 100644 index c240937..0000000 --- a/demos/01-hello.lisp +++ /dev/null @@ -1,18 +0,0 @@ -(defpackage #:clog-user - (:use #:cl #:clog) - (:export start-demo)) - -(in-package :clog-user) - -(defun start-demo () - "Simple Hello world using CLOG." - - ;; Initialize the CLOG system - (clog:initialize - (lambda (win) - (clog:set-on-click - (clog:create-child win "

Hello World!

") - (lambda () - (clog:create-child win "

You Clicked me!

"))))) - - (clog:open-browser)) diff --git a/demos/02-singleton.lisp b/demos/02-singleton.lisp deleted file mode 100644 index 232177e..0000000 --- a/demos/02-singleton.lisp +++ /dev/null @@ -1,22 +0,0 @@ -(defpackage #:clog-user - (:use #:cl #:clog) - (:export start-demo)) - -(in-package :clog-user) - -(defun start-demo () - "How to allow only one CLOG app to be executed. Normally many browsers can -can be started with the same app." - - (clog:initialize - (lambda (win) - (let ((click-target (clog:create-child win "

Hello World!

"))) - (clog:set-on-click click-target - (lambda () - (clog:create-child win "

You Clicked me!

"))) - (clog:set-on-new-window - (lambda (win) - (clog:put-br (clog:html-document win) - "Only single connection premitted.")))))) - - (clog:open-browser))