Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clm
Commits
cb65c876
Commit
cb65c876
authored
Oct 30, 2003
by
John van Groningen
Browse files
use Monaco 9 font for the macintosh, it does not have a Courier New font
parent
a6b24221
Changes
1
Hide whitespace changes
Inline
Side-by-side
CleanIDE/HeapProfile/heapprofiler.icl
View file @
cb65c876
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment