Commit cb65c876 authored by John van Groningen's avatar John van Groningen
Browse files

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

parent a6b24221
......@@ -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
Supports Markdown
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