mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

add width and height to clogframe params

Browse source
This commit is contained in:
David Botton 2022-09-02 16:33:27 -04:00
parent 92381b366a
commit 9d82642b3c
4 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
demos/01-demo.lisp
View file

@ -179,6 +179,7 @@
(start-game body)
;; When *app-mode* set only run the game once and then shutdown the app
(when *app-mode*
(sleep 2) ;; let end music play
(clog:shutdown)
(uiop:quit)))
@ -190,7 +191,10 @@
(when app
(setf *app-mode* app))
(when clogframe
(uiop:run-program (list "./clogframe" "CLOG Snake" (format nil "~A" port))))
(uiop:run-program (list "./clogframe"
"CLOG Snake"
(format nil "~A" port)
(format nil "~A" 640) (format nil "~A" 420))))
(when start-browser
(format t "If browser does not start go to http://127.0.0.1:~A" port)
(open-browser :url (format nil "http://127.0.0.1:~A" port))))