From b19078e0dc3b57d379e8295a09b0985e4ac5ca72 Mon Sep 17 00:00:00 2001
From: John van Groningen <johnvg@cs.ru.nl>
Date: Thu, 30 Oct 2003 15:55:20 +0000
Subject: [PATCH] use Monaco 9 font for the macintosh, it does not have a
 Courier New font

---
 HeapProfile/heapprofiler.icl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/HeapProfile/heapprofiler.icl b/HeapProfile/heapprofiler.icl
index e1868c9..1466f46 100644
--- 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
-- 
GitLab