From 7c7d33a7956b2d88405fa486fc843c76cc6c280a Mon Sep 17 00:00:00 2001 From: David Botton Date: Thu, 11 Feb 2021 22:57:08 -0500 Subject: [PATCH] more stuff in demo 22 --- tutorial/22-tutorial.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tutorial/22-tutorial.lisp b/tutorial/22-tutorial.lisp index 6dc8497..e19099c 100644 --- a/tutorial/22-tutorial.lisp +++ b/tutorial/22-tutorial.lisp @@ -5,19 +5,19 @@ (in-package :clog-user) (defun on-file-count (body) - (let ((win (create-gui-window body))) + (let ((win (create-gui-window body :left (random 600) :top (+ 40 (random 400))))) (dotimes (n 100) ;; window-content is the root element for the clog-gui ;; windows (create-div (window-content win) :content n)))) (defun on-file-browse (body) - (let* ((win (create-gui-window body)) + (let* ((win (create-gui-window body :left (random 600) :top (+ 40 (random 400)))) (browser (create-child (window-content win) ""))))) (defun on-file-drawing (body) - (let* ((win (create-gui-window body)) + (let* ((win (create-gui-window body :left (random 600) :top (+ 40 (random 400)))) (canvas (create-canvas (window-content win) :width 600 :height 400)) (cx (create-context2d canvas))) (set-border canvas :thin :solid :black) @@ -33,7 +33,7 @@ (path-fill cx))) (defun on-file-movies (body) - (let* ((win (create-gui-window body))) + (let* ((win (create-gui-window body :left (random 600) :top (+ 40 (random 400))))) (create-video (window-content win) :source "https://www.w3schools.com/html/mov_bbb.mp4"))) (defun on-help-about (body)