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))