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

Regression caused with width and height returning integers now

Browse source
This commit is contained in:
David Botton 2021-02-10 00:00:07 -05:00
parent 7d273d9e38
commit c4efcccdc9
3 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
static-files/img/clogicon.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 1.7 KiB

BIN
static-files/img/clogwicon.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 2.1 KiB

4
tutorial/07-tutorial.lisp
View file

@ -22,8 +22,8 @@
(let* ((mover (create-div body :content "(-o-)")) (let* ((mover (create-div body :content "(-o-)"))
bounds-x bounds-y mover-x mover-y) bounds-x bounds-y mover-x mover-y)
(flet ((set-bounds () (flet ((set-bounds ()
(setf bounds-x (parse-integer (width (window body)) :junk-allowed t)) (setf bounds-x (width (window body)))
(setf bounds-y (parse-integer (height (window body)) :junk-allowed t)))) (setf bounds-y (height (window body)))))
(set-bounds) (set-bounds)
(setf mover-x (random bounds-x)) (setf mover-x (random bounds-x))
(setf mover-y (random bounds-y)) (setf mover-y (random bounds-y))