Author: junrue Date: Sun Mar 18 18:23:03 2007 New Revision: 441 Modified: branches/graphic-forms-newtypes/src/uitoolkit/widgets/top-level.lisp Log: a call to gfs::show-window immediately following init-window gets us around the get-message hang when running under slime/sbcl Modified: branches/graphic-forms-newtypes/src/uitoolkit/widgets/top-level.lisp ============================================================================== --- branches/graphic-forms-newtypes/src/uitoolkit/widgets/top-level.lisp (original) +++ branches/graphic-forms-newtypes/src/uitoolkit/widgets/top-level.lisp Sun Mar 18 18:23:03 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))