get/setModified dummy windows implementation

Win/Platform.dcl

 definition module Platform
 
 import StdPSt, StdString
+import StdIOCommon
 
 PlatformDependant win mac :== win
 
@@ -8,6 +9,9 @@ initPlatformCommandLine			:: !*(PSt .l) -> (![String],!*PSt .l)
 installPlatformEventHandlers	:: !*(PSt .l) -> *(PSt .l)
 openPlatformWindowMenu			:: !*(PSt .l) -> *(PSt .l)
 
+getWindowModified :: !Id !(IOSt .l) -> (!Maybe Bool,!IOSt .l)
+setWindowModified :: !Id !String !Bool !(IOSt .l) -> IOSt .l
+
 ToolsDir	:: String
 TempDir		:: String
 EnvsDir		:: String

Win/Platform.icl

@@ -7,6 +7,7 @@ import UtilIO
 from StdSystem import dirseparator
 import code from library "platform_kernel_library"
 import clCCall_12, ostoolbox
+import StdIOCommon
 import logfile, set_return_code
 
 PlatformDependant win mac :== win
@@ -89,6 +90,12 @@ openPlatformWindowMenu :: !*(PSt .l) -> *(PSt .l)
 openPlatformWindowMenu ps
 	= ps
 
+getWindowModified :: !Id !(IOSt .l) -> (!Maybe Bool,!IOSt .l)
+getWindowModified _ io = (Nothing,io)
+
+setWindowModified :: !Id !String !Bool !(IOSt .l) -> IOSt .l
+setWindowModified _ _ _ io = io
+
 //====
 
 inifilename