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

pm-01 mavis risetti

Browse source
This commit is contained in:
David Botton 2021-03-02 12:58:10 -05:00
parent a171cb9162
commit 90e77e97c8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
support/pm-01.lisp
View file

@ -28,7 +28,7 @@
(let ((ta (create-text-area body)) ;; Returns a clog-text-area (let ((ta (create-text-area body)) ;; Returns a clog-text-area
(gv (create-button body :content "Show me the value"))) (gv (create-button body :content "Show me the value")))
;; This code is the idea using a clog-text-area returned ;; This code is the ideal as using a clog-text-area
(set-on-click gv (lambda (obj) (set-on-click gv (lambda (obj)
(alert-dialog body (value ta))))) (alert-dialog body (value ta)))))