Skip to content
Snippets Groups Projects
Commit 88a1520c authored by Jacek Złydach's avatar Jacek Złydach
Browse files

Cleanup in workarounds.

parent e1557ec8
No related branches found
No related tags found
No related merge requests found
......@@ -1489,10 +1489,10 @@
button-press-event)))
(defun find-frame-pane-of-type (frame type)
(prog1 (map-over-sheets #'(lambda (sheet)
(map-over-sheets #'(lambda (sheet)
(when (typep sheet type)
(return-from find-frame-pane-of-type sheet)))
(frame-top-level-sheet frame))))
(frame-top-level-sheet frame)))
(defmethod frame-standard-output ((frame standard-application-frame))
*standard-output*
......
......@@ -21,7 +21,7 @@
(defmethod initialize-instance :after
((pane box-pane) &key contents &allow-other-keys)
(dolist (child contents)
(typecase child ;FIXME temporarily changed etypecase to typecase
(typecase child ;FIXME temporarily changed etypecase to typecase -- jacek.zlydach, 2017-05-14
(number)
((member :fill))
(pane (sheet-adopt-child pane child))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment