Commit fd5b6042 authored by John van Groningen's avatar John van Groningen

use update_type_window function instead of updateTypeWindow,

typeWinKeyboard and typeWinMouse
parent 11c4e298
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment