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

b19078e0 · John van Groningen · 0a33b105 · b19078e0
Commit b19078e0 authored Oct 30, 2003 by John van Groningen
Show whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

HeapProfile/heapprofiler.icl HeapProfile/heapprofiler.icl +1 -0

No files found.
--- a/HeapProfile/heapprofiler.icl
+++ b/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