move GetDialogBackgroundColour and isWindow to UtilIO

Ide/conswin.icl

@@ -8,15 +8,10 @@ import EdMouse, EdKeyboard
 from StrictList import slFromList
 from UtilStrictLists import StrictListToList,:: List(:!),IsEmptyList
 
-import IDE,IdeState,IdePlatform
+import IDE,IdeState,UtilIO
 
 //--
 
-isWindow :: !Id *(PSt .l) -> (Bool,*(PSt .l))
-isWindow wId ps
-	# (s,ps)	= accPIO getWindowsStack ps
-	= (isMember wId s, ps)
-
 isConsoleWindow :: !Id !.ConsWinInfo -> Bool
 isConsoleWindow xId {ConsWinInfo | wId}
 	= xId==wId

Ide/edoptions.icl

@@ -4,7 +4,7 @@ import StdTuple, StdEnum, StdList, StdFunc, StdMisc
 import StdMenu, StdWindow, StdId, StdPSt, StdControl
 import StdClipboard, StdControlReceiver
 import EdKeyMapping, EdState, EdClient, EdKeyboard
-import IDE, IdeState, ExtNotice, IdePlatform
+import IDE, IdeState, ExtNotice, UtilIO
 import colorpickcontrol
 import ioutil, morecontrols
 import typewin, colourclip

Ide/errwin.icl

@@ -12,7 +12,7 @@ from	IdeState	import :: General, getErrInfo, setErrInfo, :: ErrorInfo, :: MenuId
 from	IdeState	import :: SearchMenuIds, :: PLMMessage, :: PLMReply, :: MIn, :: EditMenuLS, getInteract, writeLog
 from	EdClient	import lineSelection
 import EdClient
-import IdePlatform
+import UtilIO
 
 /*
 ADD:

Ide/typewin.icl

@@ -8,17 +8,12 @@ import EdMouse, EdKeyboard
 from StrictList import slFromList
 from UtilStrictLists import StrictListToList,:: List(:!),IsEmptyList
 
-import IDE,IdeState,IdePlatform
+import IDE,IdeState,UtilIO
 import morecontrols, colorpickcontrol, ioutil, colourclip
 import StdClipboard
 
 //--
 
-isWindow :: !Id *(PSt .l) -> (Bool,*(PSt .l))
-isWindow wId ps
-	# (s,ps)	= accPIO getWindowsStack ps
-	= (isMember wId s, ps)
-
 isTypeWindow :: !Id !.TypeWinInfo -> Bool
 isTypeWindow xId {TypeWinInfo | wId}
 	= xId==wId

Win/UtilIO.dcl

 definition module UtilIO
 
 import StdString, StdFile
-import StdPSt, StdMaybe, StdPictureDef
+import StdPSt, StdMaybe, StdPictureDef, StdId
 import UtilDate
 
 LaunchApplication :: !{#Char} !{#Char} !Bool !Files -> ( !Bool, !Files)
@@ -32,3 +32,4 @@ 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))

Win/UtilIO.icl

@@ -6,7 +6,7 @@ implementation module UtilIO
 import StdArray, StdBool, StdClass, StdFile, StdList
 import UtilDate
 
-import StdSystem
+import StdSystem, StdWindow
 import code from library "util_io_kernel_lib"
 import code from library "util_io_shell_lib"
 
@@ -521,3 +521,8 @@ where
  gcol = (col bitand 0x0000FF00) >> 8
  bcol = (col bitand 0x00FF0000) >> 16
 
+isWindow :: !Id *(PSt .l) -> (Bool,*(PSt .l))
+isWindow wId ps
+	# (s,ps)	= accPIO getWindowsStack ps
+	= (isMember wId s, ps)
+