[Gd-chatter] r10715 - trunk/fundev/sources/duim/win32

[andreas at gwydiondylan.org]

Author: andreas
Date: Fri May  5 14:16:01 2006
New Revision: 10715

Modified:
   trunk/fundev/sources/duim/win32/wfonts.dylan
Log:
job: fd

Dealing with <device-font> objects isn't really done, so we just default to some random font family if unknown. This allows usage of certain fonts in the IDE which would otherwise break.

This is a hack.


Modified: trunk/fundev/sources/duim/win32/wfonts.dylan
==============================================================================
--- trunk/fundev/sources/duim/win32/wfonts.dylan	(original)
+++ trunk/fundev/sources/duim/win32/wfonts.dylan	Fri May  5 14:16:01 2006
@@ -346,7 +346,8 @@
 	  $FF-SWISS      => #"sans-serif";
 	  $FF-SCRIPT     => #"script";
 	  $FF-DECORATIVE => #"decorative";
-	  otherwise =>
+	  otherwise => #"fix";
+/*
 	    let handle
 	      = case
 		  hFont   => hFont;
@@ -354,6 +355,7 @@
 		end;
 	    // No family match, so return a device font
 	    return(make-device-font(_port, make(<win32-font>, handle: handle)));
+*/
 	end;
     let face-name = if (empty?(lfFaceName)) #f else lfFaceName end;
     let weight