SF.net SVN: frontierkernel: [1516] Frontier/branches/FSRef_Migration/Common /source/shellverbs.c

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

Revision: 1516
          http://svn.sourceforge.net/frontierkernel/?rev=1516&view=rev
Author:   creecode
Date:     2006-09-18 13:21:58 -0700 (Mon, 18 Sep 2006)

Log Message:
-----------
in filemenufunctionvalue function, case openfunc extend the filespec

Modified Paths:
--------------
    Frontier/branches/FSRef_Migration/Common/source/shellverbs.c

Modified: Frontier/branches/FSRef_Migration/Common/source/shellverbs.c
===================================================================
--- Frontier/branches/FSRef_Migration/Common/source/shellverbs.c	2006-09-18 20:00:38 UTC (rev 1515)
+++ Frontier/branches/FSRef_Migration/Common/source/shellverbs.c	2006-09-18 20:21:58 UTC (rev 1516)
@@ -1145,6 +1145,7 @@
 			}
 		
 		case openfunc: {
+		
 			tyfilespec fs;
 			tyvaluerecord vhidden;
 			short ctconsumed = 0;
@@ -1158,13 +1159,15 @@
 			
 			ctpositional = ctconsumed;
 			
-			setbooleanvalue (false, &vhidden); //default value
+			setbooleanvalue (false, &vhidden); // default value
 			
 			if (!getoptionalparamvalue (hparam1, &ctconsumed, &ctpositional, str_hidden, &vhidden))
 				return (false);
 			
-			langsaveglobals (); /*see comment at function head*/
+			langsaveglobals (); // see comment at function head
 			
+			( void ) extendfilespec ( &fs, &fs );
+		
 			fl = shellopenfile (&fs, vhidden.data.flvalue, &w);
 			
 			if (!langrestoreglobals ())


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