logenkain/lisp-practice
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix format example

Browse Source
This commit is contained in:
Logen Kain 2020-10-09 23:54:07 -04:00
parent 5632486637
commit d22c70be41
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tktest/tk-test.lisp
View File

@ -27,11 +27,12 @@
:command (lambda () :command (lambda ()
(echo-durr)))) (echo-durr))))
;; Format doesn't seem to work until the gui ends ;; Format doesn't seem to work until the gui ends
;; Turns out we need to add ~%
(button3 (make-instance 'button (button3 (make-instance 'button
:text "try format" :text "try format"
:command (lambda () :command (lambda ()
(format *standard-output* (format t
"hi")))) "hi~%"))))
(scroller (make-instance 'scrollbar (scroller (make-instance 'scrollbar
))) )))
(grid button 0 0) (grid button 0 0)