Commit eaf628e7 authored by Diederik van Arkel's avatar Diederik van Arkel

move getDialogBackgroundColour and isWindow to UtilIO

parent 28ee0ad2
......@@ -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
......
......@@ -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 = []
......
......@@ -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))
......@@ -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)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment