Merge of Wine commit:

	Martin Fuchs <martin-fuchs@gmx.net>
	Implementation of IPersistFile::IsDirty().

reactos/lib/shell32

diff -u -r1.13 -r1.14
--- shelllink.c	24 Mar 2004 20:47:58 -0000	1.13
+++ shelllink.c	27 Mar 2004 09:16:08 -0000	1.14
@@ -241,6 +241,7 @@

             r = IPersistStream_Load(StreamThis, stm);
             ShellLink_UpdatePath(This->sPathRel, pszFileName, This->sWorkDir, &This->sPath);
             IStream_Release( stm );

+            This->bDirty = TRUE;

         }
 
         return r;

@@ -297,7 +298,11 @@

         IStream_Release( stm );
 
         if( SUCCEEDED( r ) )

+	{

             StartLinkProcessor( pszFileName );

+
+            This->bDirty = FALSE;
+        }

         else
         {
             DeleteFileW( pszFileName );