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

update docs

Browse source
This commit is contained in:
David Botton 2022-09-14 19:06:14 -04:00
parent b8fe23950e
commit c61e35f21d
3 changed files with 90 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

8
source/clog-gui.lisp
View file

@ -270,7 +270,7 @@ window or nil if not found"))
(declare (ignore key))
(when (equalp (window-title value) title)
(window-focus value)
(setf r key)))
(setf r value)))
(windows app))
r))
@ -289,7 +289,7 @@ window or nil if not found"))
(declare (ignore key))
(when (equalp (win-param value) param)
(window-focus value)
(setf r key)))
(setf r value)))
(windows app))
r))
@ -307,7 +307,7 @@ window or nil if not found"))
(maphash (lambda (key value)
(declare (ignore key))
(when (equalp (window-title value) title)
(setf r key)))
(setf r value)))
(windows app))
r))
@ -325,7 +325,7 @@ window or nil if not found"))
(maphash (lambda (key value)
(declare (ignore key))
(when (equalp (win-param value) param)
(setf r key)))
(setf r value)))
(windows app))
r))