From 7c308678e4319e9cd7f79701f4962e13c4e7474a Mon Sep 17 00:00:00 2001
From: Ben Harris <bjh21@bjh21.me.uk>
Date: Fri, 6 Dec 2002 00:09:34 +0000
Subject: [PATCH] Use the Script Manager to find a small Roman font for the
 licence box rather than assuming that the application font at 9pt will be
 useful (which it probably won't be on non-Roman systems).

[originally from svn r2282]
---
 mac/mac.c | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/mac/mac.c b/mac/mac.c
index 72b33011..f931faf2 100644
--- a/mac/mac.c
+++ b/mac/mac.c
@@ -1,4 +1,4 @@
-/* $Id: mac.c,v 1.4 2002/11/24 15:08:52 ben Exp $ */
+/* $Id: mac.c,v 1.5 2002/12/06 00:09:34 ben Exp $ */
 /*
  * Copyright (c) 1999 Ben Harris
  * All rights reserved.
@@ -41,6 +41,7 @@
 #include <DiskInit.h>
 #include <Gestalt.h>
 #include <Resources.h>
+#include <Script.h>
 #include <ToolUtils.h>
 
 #include <assert.h>
@@ -306,11 +307,13 @@ static void mac_updatelicence(WindowPtr window)
 {
     Handle h;
     int len;
+    long fondsize;
 
     SetPort(window);
     BeginUpdate(window);
-    TextFont(applFont);
-    TextSize(9);
+    fondsize = GetScriptVariable(smRoman, smScriptSmallFondSize);
+    TextFont(HiWord(fondsize));
+    TextSize(LoWord(fondsize));
     h = Get1Resource('TEXT', wLicence);
     len = GetResourceSizeOnDisk(h);
     if (h != NULL) {