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

Center about box

Browse source
This commit is contained in:
David Botton 2021-02-17 14:52:38 -05:00
parent 9421a601f4
commit e51a2fb887
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
demos/03-demo.lisp
View file

@ -173,7 +173,8 @@
<center>The Common Lisp Omnificent GUI</center></div>
<div><p><center>Demo 3</center>
<center>(c) 2021 - David Botton</center></p></div>"
:left (- (/ (width (body app)) 2) 100)
:left (- (/ (inner-width (window (body app))) 2.0) 100)
:top (- (/ (inner-height (window (body app))) 2.0) 100)
:width 200
:height 200)))
(set-on-window-can-size about (lambda (obj)