Mac updates

Mac/IdePlatform.dcl

 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"

Mac/IdePlatform.icl

@@ -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"

Mac/Platform.dcl

@@ -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

Mac/Platform.icl

@@ -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"

Mac/PmCleanSystem.icl

@@ -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)