sfos/eql5
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

small revision

Browse source
This commit is contained in:
polos 2017-09-14 15:20:37 +02:00
parent 875e0f0edd
commit 93ee789667
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/gui.lisp
View file

@ -392,8 +392,8 @@
(display (mapcar 'prin1-to-string vals) "blue")
(history-add txt)
(! "clear" *edit*)))))
(error (err)
(show-error err color)))))
(condition (c)
(show-error c color)))))
(defun focus-me ()
(x:do-with *gui* "activateWindow" "raise")