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

move system dependent code to module heap_profile_os_dependent

parent 1c1bd0df
......@@ -13,7 +13,7 @@ empty_progstate :: PrintSetup -> *ProgState [.a];
:: SizeByNodeKindElem
p_open_file_function :: {#.Char} *a -> *(.Bool,{#Char},ProgState [SizeByNodeKindElem],*a) | FileEnv a;
p_open_file_function :: {#Char} *a -> *(Bool,{#Char},ProgState [SizeByNodeKindElem],*a) | FileEnv a;
draw_heap_profile_lines :: [.Int] .Bool [.SizeByNodeKindElem] .Int .Int .Int .Int *Picture -> *Picture;
......
This diff is collapsed.
......@@ -4,11 +4,9 @@ import StdEnv, StdIO
import flexwin
import ExtNotice
import Help
import ShowHeapProfile
import ShowHeapProfile,heap_profile_os_dependent
import Platform
import StdDebug
ApplicationName :== "ShowHeapProfile"
HelpFileName :== ApplicationName +++ "Help"
......@@ -169,8 +167,8 @@ printfun recId ps
= 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
# print_font = PCorMac {fName="Courier New",fStyles=[BoldStyle],fSize=8} {fName="Monaco",fStyles=[],fSize=9}
# ((ok,printFont),ps) = accPIO (accScreenPicture (openFont print_font)) 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