use update_type_window function instead of updateTypeWindow,

typeWinKeyboard and typeWinMouse

Pm/PmDriver.icl

@@ -8,8 +8,7 @@ import UtilNewlinesFile, UtilIO
 
 import IdeState
 
-from typewin import updateTypeWindow, class Typer, :: TypeWinInfo
-from typeatt import typeWinKeyboard, typeWinMouse
+from typeatt import update_type_window
 from errwin  import updateErrorWindow
 from messwin import showInfo, :: InfoMessage(..)
 from projwin import pm_update_project_window
@@ -448,7 +447,7 @@ step intr state=:(DComp force _ (Async _ _) _ _) ps
 			# (completed, current)			= removeFromCurrent completedSlot current
 			# unknown_finished_processors	= remove_from_unknown_finished_processors completedSlot unknown_finished_processors
 			# (startupdir,ps)				= getStup ps
-			#  typewin = updateTypeWindow True (GetModuleName completed.iclModule) [typeWinKeyboard, typeWinMouse]
+			#  typewin = update_type_window True (GetModuleName completed.iclModule)
 			# ccstring						= "dummy ccstring for now.."
 			# (abcpath,res,ps)				= CompileHandleExitCode exitcode ccstring startupdir completedSlot updateErrorWindow typewin 
 												completed.iclModule completed.options.listTypes ps // types param
@@ -528,7 +527,7 @@ step intr state=:(DComp force dircache compinfo=:(AsyncWin _ _) rest ds) ps
 		process_completed completedSlot exitcode (DComp force dircache (AsyncWin current {win_max_n_processes,win_compiler_process_ids}) todo ds) ps
 			# (completed, current)	= removeFromCurrent completedSlot current
 			# (startupdir,ps)		= getStup ps
-			# typewin				= updateTypeWindow True (GetModuleName completed.iclModule) [typeWinKeyboard, typeWinMouse]
+			# typewin				= update_type_window True (GetModuleName completed.iclModule)
 			# ccstring				= "dummy ccstring for now.."
 			# (abcpath,res,ps)		= CompileHandleExitCode exitcode ccstring startupdir completedSlot updateErrorWindow typewin 
 										completed.iclModule completed.options.listTypes ps // types param
@@ -1272,7 +1271,7 @@ where
 	typewin :: !String ![String] !*GeneralSt -> *GeneralSt
 	typewin mn strings ps
 		# (interact, ps)	= getInteract ps
-		=	updateTypeWindow interact mn [typeWinKeyboard, typeWinMouse] strings ps
+		=	update_type_window interact mn strings ps
 	mp							= ao.memoryProfiling
 	tp							= ao.profiling
 	lo							= PR_GetLinkOptions project