johnvg: use paths and filenames specified in the config directory of the IDE

to start the profilers

Mac/tools.icl

 implementation module tools
 
 import StdBool, StdFunc, StdFile, StdPStClass, StdSystem, StdInt
-import ExtNotice, StdPathname
+import ExtNotice, StdPathname, PmPath
 import IdeState, UtilIO
 
 //-- call out to supporting applications...
@@ -23,7 +23,9 @@ shoprofun :: !*(PSt General) -> *PSt General
 shoprofun ps
 	# (prj,ps)		= getProject ps
 	# execpath		= PR_GetExecPath prj
-	# apppath		= "Macintosh HD:Users:diederik:Desktop:CleanImage:Tools:ShowTimeProfile"
+	# ({reg_prefs={tp_path,tp_name}},ps) = getPrefs ps
+	# (app_path,ps) = accFiles GetFullApplicationPath ps
+	# apppath = fulAppPath app_path tp_path+++tp_name
 	# docpath		= execpath +++ timepsuf
 	# (err,ps)		= LaunchTheDocument
 						docpath
@@ -50,11 +52,14 @@ shoprofun ps
 		= openNotice (Notice ["Unable to launch " +++  sp +++ ".",stup] (NoticeButton "OK" id) []) ps
 	= ps
 */
+
 shoheapfun :: !*(PSt General) -> *PSt General
 shoheapfun ps
 	# (prj,ps)		= getProject ps
 	# execpath		= PR_GetExecPath prj
-	# apppath		= "Macintosh HD:Users:diederik:Desktop:CleanImage:Tools:ShowHeapProfile"
+	# ({reg_prefs={hp_path,hp_name}},ps) = getPrefs ps
+	# (app_path,ps) = accFiles GetFullApplicationPath ps
+	# apppath = fulAppPath app_path hp_path+++hp_name
 	# docpath		= execpath +++ heappsuf
 	# (err,ps)		= LaunchTheDocument
 						docpath
@@ -84,7 +89,9 @@ shoheapfun ps
 provefun :: !*(PSt General) -> *PSt General
 provefun ps
 	# (pathname,ps) = getPath ps
-	# apppath		= "Macintosh HD:Users:diederik:Desktop:CleanImage:Tools:Sparkle"
+	# ({reg_prefs={pr_path,pr_name}},ps) = getPrefs ps
+	# (app_path,ps) = accFiles GetFullApplicationPath ps
+	# apppath = fulAppPath app_path pr_path+++pr_name
 	# docpath		= RemoveSuffix` pathname +++ proofsuf
 	# (err,ps)		= LaunchTheDocument
 						docpath