move system dependent code to module heap_profile_os_dependent

HeapProfile/ShowHeapProfile.dcl

@@ -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;
 

HeapProfile/heapprofiler.icl

@@ -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