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

Mac updates

parent f49ab2a5
definition module IdePlatform
import StdPSt, StdString
import StdPSt, StdString, StdFile
import StdIOCommon
from IdeState import :: General
......@@ -20,7 +20,8 @@ AbcmodIcon :== 32514
toolIconFun :: !String !(Maybe String) !(IdFun .st) ![(ToolbarItem .st)] !*env -> (![(ToolbarItem .st)],!*env) | FileSystem env
AboutBitmap :== ""
getAboutBitmap :: !*env -> (!Maybe Bitmap, !*env) | FileEnv env
findBM :== "findBM.bmp"
newfBM :== "newfBM.bmp"
openBM :== "openBM.bmp"
......
......@@ -2,7 +2,7 @@ implementation module IdePlatform
import StdPSt
import StdArray, StdEnum, StdList
import StdFunc
import StdFunc, StdSystem
import PmCleanSystem
import errwin
from IdeState import :: General
......@@ -51,7 +51,12 @@ DefmodIcon :== 32515
CleanIcon :== 32512
AbcmodIcon :== 32514
AboutBitmap :== ""
getAboutBitmap :: !*env -> (!Maybe Bitmap, !*env) | FileEnv env
getAboutBitmap env
= accFiles (openBitmap AboutBitmap) env
AboutBitmap :== applicationpath "bitmaps:aboutIDE.pict"
findBM :== "findBM.bmp"
newfBM :== "newfBM.bmp"
openBM :== "openBM.bmp"
......
......@@ -9,7 +9,7 @@ initPlatformCommandLine :: !*(PSt .l) -> (![String],!*PSt .l)
installPlatformEventHandlers :: !*(PSt .l) -> *(PSt .l)
openPlatformWindowMenu :: !*(PSt .l) -> *(PSt .l)
TooltempDir :: String
TempDir :: String
EnvsDir :: String
PrefsDir :: String
BitmapDir :: String
......
......@@ -45,8 +45,8 @@ install_apple_event_handlers
call .install_apple_event_handlers
}
TooltempDir :: String
TooltempDir = applicationpath "Temp"
TempDir :: String
TempDir = applicationpath "Temp"
EnvsDir :: String
EnvsDir = applicationpath "Config"
......
......@@ -497,8 +497,8 @@ Link linker` winfun path
, dynamics_path = ""
}
# linkerpath = RemoveFilename linker
# linkoptspath = MakeFullPathname TooltempDir "linkopts"
# linkerrspath = MakeFullPathname TooltempDir "linkerrs"
# linkoptspath = MakeFullPathname TempDir "linkopts"
# linkerrspath = MakeFullPathname TempDir "linkerrs"
# (err,ps) = accFiles (WriteLinkOpts linkoptspath linkopts) ps
| isJust err
= (winfun (fromJust err) ps,False)
......
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