[Gd-chatter] r11630 - trunk/fundev/sources/environment/framework

[hannes at gwydiondylan.org]

Author: hannes
Date: Thu Jan 17 03:33:43 2008
New Revision: 11630

Modified:
   trunk/fundev/sources/environment/framework/error-handling.dylan
Log:
Job: fd
avoid "#f is not of type <basic-frame>" error because owner can be
#f and frame-mapped? is not defined for #f.


Modified: trunk/fundev/sources/environment/framework/error-handling.dylan
==============================================================================
--- trunk/fundev/sources/environment/framework/error-handling.dylan	(original)
+++ trunk/fundev/sources/environment/framework/error-handling.dylan	Thu Jan 17 03:33:43 2008
@@ -66,7 +66,7 @@
   apply(notify-user, message,
 	title: product-name,
 	style: #"error",
-	owner: frame-mapped?(owner) & owner)
+	owner: owner & frame-mapped?(owner))
 end method do-environment-handler;