use Monaco 9 font for the macintosh, it does not have a Courier New font

cb65c876 · John van Groningen · a6b24221 · cb65c876
Commit cb65c876 authored Oct 30, 2003 by John van Groningen
--- a/CleanIDE/HeapProfile/heapprofiler.icl
+++ b/CleanIDE/HeapProfile/heapprofiler.icl
@@ -170,6 +170,7 @@ printfun recId ps
 	| isNothing reply
 		= ps
 	# ((ok,printFont),ps)	= accPIO (accScreenPicture (openFont {fName="Courier New",fStyles=[BoldStyle],fSize=8})) ps 
+//	# ((ok,printFont),ps)	= accPIO (accScreenPicture (openFont {fName="Monaco",fStyles=[],fSize=9})) ps 
 	| not ok	// handle better...
 		= ps
 	= case (fromJust reply) of