typedef colouring

Ed/EdTab.icl

@@ -94,7 +94,7 @@ optDrawS :== pictdrawstring		// use non-optimised versions
 optDrawC :== pictdrawchar		// "
 
 tabDrawStringC :: !Point2 !(!Info,!String) !FontInfo !*Picture -> *Picture
-tabDrawStringC point ((clevel,typedef,typedecl),string)
+tabDrawStringC point ((clevel,typedef,typedecl,_),string)
 	{tabSize,charWidth,thefont, showTabs, syntaxColours={textColour, backgroundColour,tabColour, commentColour, stringColour, charColour, keywordColour, typedefColour, typedeclColour}}
 	picture
 	#! strings = splitAtTabs string