[graphic-forms-cvs] r440 - trunk/src/uitoolkit/widgets

[junrue at common-lisp.net]

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