[Gd-chatter] r11537 - branches/opendylan-melange/gtk-duim

[hannes at gwydiondylan.org]

Author: hannes
Date: Thu Dec 13 00:50:59 2007
New Revision: 11537

Modified:
   branches/opendylan-melange/gtk-duim/gtk-dialogs.dylan
Log:
Job: minor
support for cancel in the file chooser dialog


Modified: branches/opendylan-melange/gtk-duim/gtk-dialogs.dylan
==============================================================================
--- branches/opendylan-melange/gtk-duim/gtk-dialogs.dylan	(original)
+++ branches/opendylan-melange/gtk-duim/gtk-dialogs.dylan	Thu Dec 13 00:50:59 2007
@@ -364,7 +364,11 @@
         gtk-file-chooser-get-filename(dialog); // FIXME: leaks the filename C string
       end;
     gtk-widget-destroy(dialog);
-    values(as(<byte-string>, filename), #f)
+    if (filename)
+      values(as(<byte-string>, filename), #f)
+    else
+      values(#f, #f);
+    end;
   end;
 end method do-choose-file;