Use the Script Manager to find a small Roman font for the licence box rather
authorben <ben@cda61777-01e9-0310-a592-d414129be87e>
Fri, 6 Dec 2002 00:09:34 +0000 (00:09 +0000)
committerben <ben@cda61777-01e9-0310-a592-d414129be87e>
Fri, 6 Dec 2002 00:09:34 +0000 (00:09 +0000)
than assuming that the application font at 9pt will be useful (which it
probably won't be on non-Roman systems).

git-svn-id: svn://svn.tartarus.org/sgt/putty@2282 cda61777-01e9-0310-a592-d414129be87e

mac/mac.c

index 72b3301..f931faf 100644 (file)
--- 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) {