[snow-cvs] r29 - trunk/src/lisp/snow

[Alessio Stalla]

Author: astalla
Date: Fri Nov 27 10:27:38 2009
New Revision: 29

Log:
Fixed About popup


Modified:
   trunk/src/lisp/snow/start.lisp

Modified: trunk/src/lisp/snow/start.lisp
==============================================================================
--- trunk/src/lisp/snow/start.lisp	(original)
+++ trunk/src/lisp/snow/start.lisp	Fri Nov 27 10:27:38 2009
@@ -31,7 +31,7 @@
 (in-package :snow)
 
 (defun snow-about ()
-  (dialog (:id dlg :title "Snow v0.2")
+  (dialog (:id dlg :title "Snow v0.2" :visible-p t)
     (label :layout "wrap"
 	   :text "Snow version 0.2")
     (label :layout "wrap"
@@ -45,8 +45,7 @@
     (button :text "Ok" :on-action (lambda (evt)
 				    (declare (ignore evt))
 				    (dispose dlg)))
-    (pack self)
-    (show self)))
+    (pack self)))
 
 (defun snow-showcase ()
   (unless (find-package '#:snow-showcase)