Author: junrue Date: Sun Mar 18 18:22:39 2007 New Revision: 440
Modified: trunk/src/uitoolkit/widgets/top-level.lisp Log: a call to gfs::show-window immediately following init-window gets us past the get-message hang when running under slime/sbcl
Modified: trunk/src/uitoolkit/widgets/top-level.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/top-level.lisp (original) +++ trunk/src/uitoolkit/widgets/top-level.lisp Sun Mar 18 18:22:39 2007 @@ -166,7 +166,8 @@ (when (find :workspace (style-of self)) (setf classname *toplevel-erasebkgnd-window-classname*) (setf register-func #'register-toplevel-erasebkgnd-window-class)) - (init-window self classname register-func owner text))) + (init-window self classname register-func owner text) + (show self nil)))
(defmethod (setf maximum-size) :after (max-size (self top-level)) (when (and max-size (minimum-size self))