Commit b19078e0 authored by John van Groningen's avatar John van Groningen

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

parent 0a33b105
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment