SF.net SVN: frontierkernel: [1457] Frontier/branches/FSRef_Migration/Common/source/langpack.c

[<cre...@us...>]

Revision: 1457
Author:   creecode
Date:     2006-07-11 14:56:52 -0700 (Tue, 11 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1457&view=rev

Log Message:
-----------
don't call FSRefValid on Windows

Modified Paths:
--------------
    Frontier/branches/FSRef_Migration/Common/source/langpack.c
Modified: Frontier/branches/FSRef_Migration/Common/source/langpack.c
===================================================================
--- Frontier/branches/FSRef_Migration/Common/source/langpack.c	2006-07-11 21:47:41 UTC (rev 1456)
+++ Frontier/branches/FSRef_Migration/Common/source/langpack.c	2006-07-11 21:56:52 UTC (rev 1457)
@@ -823,7 +823,7 @@
 boolean langunpackwindowverb (hdltreenode hparam1, tyvaluerecord *vreturned) {
 
 	//
-	// 2006-06-24 creedon: FSRef-ized
+	// 2006-07-11 creedon: FSRef-ized
 	//
 
 	tyvaluerecord val;
@@ -853,11 +853,24 @@
 	
 	fs = &fspec;
 	
-	if ( FSRefValid ( &( *fs ).fsref ) )
-		langexternalsetdirty ((hdlexternalhandle) val.data.externalvalue, false);
-	else
-		fs = nil;
+	#ifdef MACVERSION
 	
+		if ( FSRefValid ( &( *fs ).fsref ) )
+			langexternalsetdirty ((hdlexternalhandle) val.data.externalvalue, false);
+		else
+			fs = nil;
+		
+	#endif // MACVERSION
+	
+	#ifdef // WIN95VERSION
+	
+		if ( isemptystring ( fsname ( fs ) ) )
+			fs = nil;
+		else
+			langexternalsetdirty ( ( hdlexternalhandle ) val.data.externalvalue, false );
+
+	#endif // WIN95VERSION
+
 	if (!langexternalzoomfilewindow (&val, fs, true)) {
 		
 		disposevaluerecord (val, false);
@@ -868,8 +881,10 @@
 	(*vreturned).data.flvalue = true;
 	
 	return (true);
-	} /*langunpackwindowverb*/
+	
+	} // langunpackwindowverb
 
+
 #if !flruntime
 
 boolean langvaluetotextscrap (tyvaluerecord val, Handle htext) {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.