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

use update_type_window function instead of updateTypeWindow,

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