move getDialogBackgroundColour and isWindow to UtilIO

Mac/IdePlatform.dcl

@@ -10,7 +10,6 @@ RunProgram					:: !.String !*(PSt General) -> *PSt General
 
 SetWindowIcon :: !Id !Int !(PSt .l) -> PSt .l
 SetProcessIcon :: !Int !(PSt .l) -> PSt .l
-GetDialogBackgroundColour :: !(PSt .l) -> (!Colour, !PSt .l)
 
 ProjectIcon	:== 32513
 ImpmodIcon	:== 32516

Mac/IdePlatform.icl

@@ -23,10 +23,6 @@ PlatformInteractiveInit		:: !*(PSt General) -> *PSt General
 PlatformInteractiveInit ps
 	= ps
 
-GetDialogBackgroundColour :: !(PSt .l) -> (!Colour,!PSt .l)
-GetDialogBackgroundColour ps
-	= (White/*LightGrey*/, ps)	// Mac Appearance dependant!
-
 PlatformProcessAttributes :: [ProcessAttribute *(PSt General)]
 PlatformProcessAttributes = []
 

Mac/UtilIO.dcl

@@ -26,10 +26,12 @@ FReadOnly :: !{#Char} !*env -> (!Bool, !*env) | FileSystem env
 GetLongPathName :: !String -> String;
 GetShortPathName :: !String -> (!Bool,!String);
 
-import StdPSt, StdMaybe
+import StdPSt, StdMaybe, StdPictureDef, StdId
 
 selectInputFile`		:: !(PSt .l) -> (!Maybe String,!(PSt .l))
 selectOutputFile`		:: !String !String !String !(PSt .l) -> (!Maybe String,!(PSt .l))
 selectDirectory`		:: !(PSt .l) -> (!Maybe String,!(PSt .l))
 ShellDefault :: !{#Char} !(PSt .l) -> (!Int,!(PSt .l))
 
+GetDialogBackgroundColour :: !(PSt .l) -> (!Colour, !PSt .l)
+isWindow :: !Id *(PSt .l) -> (Bool,*(PSt .l))

Mac/UtilIO.icl

@@ -6,7 +6,7 @@ implementation module UtilIO
 import StdArray, StdBool, StdClass, StdFile, StdList, StdMisc
 import UtilDate
 
-import StdSystem
+import StdSystem, StdWindow
 import ostypes, OS_utilities;
 from files import GetFInfo,GetCatInfo1,GetCatInfo2/*,GetWDInfo*/,HGetVol;
 
@@ -151,7 +151,7 @@ GetFName ioNamePtr t = code (ioNamePtr=R80O0D0SD1,t=U)(ioResult=D0,ioDate_and_Ti
 	instruction 0x8321004C	|	lwz	r25,76(sp)
 	};
 
-import StdFileSelect, StdPSt, StdPStClass
+import StdFileSelect, StdPSt, StdPStClass, StdPictureDef
 
 selectInputFile` :: !(PSt .l) -> (!Maybe String,!(PSt .l))
 selectInputFile` ps
@@ -174,3 +174,13 @@ where
 
 ShellDefault :: !{#Char} !(PSt .l) -> (!Int,!(PSt .l))
 ShellDefault _ ps = abort "no ShellDefault on a Mac silly:-)"
+
+GetDialogBackgroundColour :: !(PSt .l) -> (!Colour,!PSt .l)
+GetDialogBackgroundColour ps
+	= (White/*LightGrey*/, ps)	// Mac Appearance dependant!
+
+isWindow :: !Id *(PSt .l) -> (Bool,*(PSt .l))
+isWindow wId ps
+	# (s,ps)	= accPIO getWindowsStack ps
+	= (isMember wId s, ps)
+