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

[cgay at gwydiondylan.org]

Author: cgay
Date: Sun Feb  3 13:00:32 2008
New Revision: 11661

Modified:
   trunk/fundev/sources/environment/framework/error-handling.dylan
Log:
job: fd
Prevent "Object #f cannot be converted to class {<class>: <simple-object-vector>}}" error
when notifying user of low memory.  Also change $product-name to Open Dylan while here.


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	Sun Feb  3 13:00:32 2008
@@ -63,10 +63,10 @@
          "Please close any unused projects or applications.",
 	 product-name);
   let owner = current-frame();
-  apply(notify-user, message,
-	title: product-name,
-	style: #"error",
-	owner: if (owner & frame-mapped?(owner)) owner end)
+  notify-user(message,
+              title: product-name,
+              style: #"error",
+              owner: if (owner & frame-mapped?(owner)) owner end)
 end method do-environment-handler;
 
 
@@ -95,10 +95,10 @@
 //
 // Unfortunately, release-product-name isn't available until the edition
 // specific DLL has been initialized, and this error handler can kick in
-// before then. So just use "Functional Developer" if we can't do better,
+// before then. So just use "Open Dylan" if we can't do better,
 // because we really shouldn't be crashing here.
 
-define constant $product-name = "Functional Developer";
+define constant $product-name = "Open Dylan";
 
 define function safe-release-product-name
     () => (name :: <string>)