add update_type_window function

Ide/typeatt.dcl

@@ -7,5 +7,7 @@ import StdPSt
 from EdMonad import :: EditState
 from IdeState import :: General
 
+update_type_window :: !Bool !String ![String] !*(PSt *General) -> *PSt *General
+
 typeWinKeyboard :: .WindowAttribute *(EditState,*PSt *General);
 typeWinMouse :: .WindowAttribute *(EditState,*PSt *General);

Ide/typeatt.icl

@@ -5,6 +5,11 @@ import IdeState
 import EdKeyboard, EdMouse
 //--
 
+update_type_window :: !Bool !String ![String] !*(PSt *General) -> *PSt *General
+update_type_window interact name message ps
+	# atts = [typeWinKeyboard,typeWinMouse]
+	= updateTypeWindow interact name atts message ps	// fun to update type info in type window, text :: !Text
+
 typeWinKeyboard :: .WindowAttribute *(EditState,*PSt *General);
 typeWinKeyboard = WindowKeyboard	(\_ -> True) Able typeKeyboard