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

move getDialogBackgroundColour and isWindow to UtilIO

parent 28ee0ad2
...@@ -10,7 +10,6 @@ RunProgram :: !.String !*(PSt General) -> *PSt General ...@@ -10,7 +10,6 @@ RunProgram :: !.String !*(PSt General) -> *PSt General
SetWindowIcon :: !Id !Int !(PSt .l) -> PSt .l SetWindowIcon :: !Id !Int !(PSt .l) -> PSt .l
SetProcessIcon :: !Int !(PSt .l) -> PSt .l SetProcessIcon :: !Int !(PSt .l) -> PSt .l
GetDialogBackgroundColour :: !(PSt .l) -> (!Colour, !PSt .l)
ProjectIcon :== 32513 ProjectIcon :== 32513
ImpmodIcon :== 32516 ImpmodIcon :== 32516
......
...@@ -23,10 +23,6 @@ PlatformInteractiveInit :: !*(PSt General) -> *PSt General ...@@ -23,10 +23,6 @@ PlatformInteractiveInit :: !*(PSt General) -> *PSt General
PlatformInteractiveInit ps PlatformInteractiveInit ps
= ps = ps
GetDialogBackgroundColour :: !(PSt .l) -> (!Colour,!PSt .l)
GetDialogBackgroundColour ps
= (White/*LightGrey*/, ps) // Mac Appearance dependant!
PlatformProcessAttributes :: [ProcessAttribute *(PSt General)] PlatformProcessAttributes :: [ProcessAttribute *(PSt General)]
PlatformProcessAttributes = [] PlatformProcessAttributes = []
......
...@@ -26,10 +26,12 @@ FReadOnly :: !{#Char} !*env -> (!Bool, !*env) | FileSystem env ...@@ -26,10 +26,12 @@ FReadOnly :: !{#Char} !*env -> (!Bool, !*env) | FileSystem env
GetLongPathName :: !String -> String; GetLongPathName :: !String -> String;
GetShortPathName :: !String -> (!Bool,!String); GetShortPathName :: !String -> (!Bool,!String);
import StdPSt, StdMaybe import StdPSt, StdMaybe, StdPictureDef, StdId
selectInputFile` :: !(PSt .l) -> (!Maybe String,!(PSt .l)) selectInputFile` :: !(PSt .l) -> (!Maybe String,!(PSt .l))
selectOutputFile` :: !String !String !String !(PSt .l) -> (!Maybe String,!(PSt .l)) selectOutputFile` :: !String !String !String !(PSt .l) -> (!Maybe String,!(PSt .l))
selectDirectory` :: !(PSt .l) -> (!Maybe String,!(PSt .l)) selectDirectory` :: !(PSt .l) -> (!Maybe String,!(PSt .l))
ShellDefault :: !{#Char} !(PSt .l) -> (!Int,!(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 ...@@ -6,7 +6,7 @@ implementation module UtilIO
import StdArray, StdBool, StdClass, StdFile, StdList, StdMisc import StdArray, StdBool, StdClass, StdFile, StdList, StdMisc
import UtilDate import UtilDate
import StdSystem import StdSystem, StdWindow
import ostypes, OS_utilities; import ostypes, OS_utilities;
from files import GetFInfo,GetCatInfo1,GetCatInfo2/*,GetWDInfo*/,HGetVol; 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 ...@@ -151,7 +151,7 @@ GetFName ioNamePtr t = code (ioNamePtr=R80O0D0SD1,t=U)(ioResult=D0,ioDate_and_Ti
instruction 0x8321004C | lwz r25,76(sp) instruction 0x8321004C | lwz r25,76(sp)
}; };
import StdFileSelect, StdPSt, StdPStClass import StdFileSelect, StdPSt, StdPStClass, StdPictureDef
selectInputFile` :: !(PSt .l) -> (!Maybe String,!(PSt .l)) selectInputFile` :: !(PSt .l) -> (!Maybe String,!(PSt .l))
selectInputFile` ps selectInputFile` ps
...@@ -174,3 +174,13 @@ where ...@@ -174,3 +174,13 @@ where
ShellDefault :: !{#Char} !(PSt .l) -> (!Int,!(PSt .l)) ShellDefault :: !{#Char} !(PSt .l) -> (!Int,!(PSt .l))
ShellDefault _ ps = abort "no ShellDefault on a Mac silly:-)" 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