more cleanup types

make typewin fixed width

Ide/typewin.icl

@@ -272,8 +272,8 @@ typewinPane ps
 	# (twi,ps)		= accPLoc getTypeWinInfo ps
 	# (fontNames, ps)
 					= accPIO (accScreenPicture getFontNames) ps
-//	# fixed			= map lisFixedWidth fontNames	// allow all fonts for types window
-//	# fontNames		= lfilter fixed fontNames
+	# fixed			= map lisFixedWidth fontNames	// allow all fonts for types window
+	# fontNames		= lfilter fixed fontNames
 	# fontSizes		= [7, 8, 9, 10, 12, 14, 18, 24 ]
 	# {typewinfont={fName=inifn,fSize=inifs},typewinsync=sync}
 					= TW_GetInf twi

Util/ioutil.dcl

 definition module ioutil
 
 import StdOverloaded, StdBool, StdList
-import StdPicture, StdPSt, StdId, StdIOCommon, StdFile, StdFileSelect
+import StdPicture, StdPSt, StdId, StdIOCommon, StdFile//, StdFileSelect
 from commondef import unzip3,unzip4
 
 
@@ -20,7 +20,7 @@ noPS					:: .(.a -> .b) !(.a,.c) -> (.b,.c)
 drawLeft				:: !.Point2 a !*Picture -> *Picture | toString a
 drawCenter				:: !.Point2 a !*Picture -> *Picture | toString a
 drawRight				:: !.Point2 a !*Picture -> *Picture | toString a
-setCheckControlItem		:: !Id .Index !.Bool !*(IOSt *l) -> *(IOSt *l)
+setCheckControlItem		:: !Id .Index !.Bool !*(IOSt .l) -> *(IOSt .l)
 zip3					:: ![.a] [.b] [.c] -> [(.a,.b,.c)]
 getPenAttributeFont		:: ![.PenAttribute] -> FontDef;
 getPenAttributeColour	:: ![.PenAttribute] -> Colour;

Util/ioutil.icl

 implementation module ioutil
 
 import StdBool,StdList,StdFile
-import StdControl,StdPSt,StdFileSelect
+import StdControl,StdPSt//,StdFileSelect
 import iostate
 
 altScrollFunction :: !Direction !Int -> ScrollFunction
@@ -104,7 +104,7 @@ drawRight {x,y} info picture
 		(width,picture)		= getPenFontStringWidth text picture
 	=	drawAt {x=x-width,y=y} text picture
 
-setCheckControlItem :: !Id .Index !.Bool !*(IOSt *l) -> *(IOSt *l)
+setCheckControlItem :: !Id .Index !.Bool !*(IOSt .l) -> *(IOSt .l)
 setCheckControlItem id idx True io = markCheckControlItems id [idx] io
 setCheckControlItem id idx False io = unmarkCheckControlItems id [idx] io
 

Win/Platform.dcl

@@ -4,10 +4,10 @@ import StdPSt, StdString
 
 PlatformDependant win mac :== win
 
-initPlatformCommandLine			:: !*(PSt *l) -> (![String],!*PSt *l)
-installPlatformEventHandlers	:: !*(PSt *l) -> *(PSt *l)
-openPlatformWindowMenu			:: !*(PSt *l) -> *(PSt *l)
+initPlatformCommandLine			:: !*(PSt .l) -> (![String],!*PSt .l)
+installPlatformEventHandlers	:: !*(PSt .l) -> *(PSt .l)
+openPlatformWindowMenu			:: !*(PSt .l) -> *(PSt .l)
 
-TooltempDir :: String
-EnvsDir :: String
-PrefsDir :: String
+TooltempDir	:: String
+EnvsDir		:: String
+PrefsDir	:: String

Win/Platform.icl

@@ -42,7 +42,7 @@ where
 		ccall GetPrivateProfileStringA@24 "PsssIIs:I:I"
 		}
 
-initPlatformCommandLine :: !*(PSt *l) -> (![String],!*PSt *l)
+initPlatformCommandLine :: !*(PSt .l) -> (![String],!*PSt .l)
 initPlatformCommandLine ps
 	# args	= cl_args
 	# args	= [arg \\ arg <-: args]
@@ -53,11 +53,11 @@ initPlatformCommandLine ps
 	# files	= map GetLongPathName files
 	= (files, ps)
 
-installPlatformEventHandlers :: !*(PSt *l) -> *(PSt *l)
+installPlatformEventHandlers :: !*(PSt .l) -> *(PSt .l)
 installPlatformEventHandlers ps
 	= ps
 
-openPlatformWindowMenu :: !*(PSt *l) -> *(PSt *l)
+openPlatformWindowMenu :: !*(PSt .l) -> *(PSt .l)
 openPlatformWindowMenu ps
 	= ps