Commit 207b0121 authored by John van Groningen's avatar John van Groningen
Browse files

removed ignored !'s

parent 851197f3
......@@ -406,7 +406,7 @@ WhichDelete (key,_,(_,option,command,_))
| command = (Comd, key == BackSpKey);
= (None, key == BackSpKey);
GetScrollMode :: !KeyboardState -> !ScrollMode;
GetScrollMode :: !KeyboardState -> ScrollMode;
GetScrollMode (key,_,(_,_,command,_))
| command && (key == UpKey || key == DownKey) = ScrollFullWin;
= ScrollLine;
......
......@@ -112,7 +112,7 @@ ClosedSavedWindows prog=:{editor={editwindows}} io
saved = SavedWindows editwindows;
};
ClosedClipboardUpdateMenuItems :: !EditWdId !IO -> !IO;
ClosedClipboardUpdateMenuItems :: !EditWdId !IO -> IO;
ClosedClipboardUpdateMenuItems wdid io
| wdid == ClpbrdWdID = ChangeMenuItemTitles [(IShowCID,"Show Clipboard")] io;
= RemoveMenuItems [wdid] (DisableTimer TimerID io);
......
......@@ -628,7 +628,7 @@ CalcPixelSelection {l1,c1,l2,c2} tabw hght cline=:{CurLine | before, after, lnr}
line = Line_GlueLine before after;
};
CalcPixelX :: !Int !Int !Int !TLine !Font -> !Int;
CalcPixelX :: !Int !Int !Int !TLine !Font -> Int;
CalcPixelX cx 0 tabw line font = cx;
CalcPixelX cx cn tabw (str:!rest) font
| str == TabStr = CalcPixelX (tabw * inc (cx / tabw) ) (dec cn) tabw rest font;
......@@ -641,7 +641,7 @@ CalcPixelX cx cn tabw (str:!rest) font
CalcPixelX cx _ _ _ _
= RuleDoesn`tMatch "CalcPixelX" cx;
CalcPixelXInString :: !Int !Int !Int !String !Font -> !Int;
CalcPixelXInString :: !Int !Int !Int !String !Font -> Int;
CalcPixelXInString id 0 cx str font = cx;
CalcPixelXInString id cn cx str font
= CalcPixelXInString (inc id) (dec cn) (cx + charw) str font;
......
......@@ -556,7 +556,7 @@ RemoveWordBefore line=:(str:!rest)
last = dec (size str);
};
RemoveWordBack :: !(!Int !String -> Bool) !String !Int -> (!String, !String);
RemoveWordBack :: !(Int String -> Bool) !String !Int -> (!String, !String);
RemoveWordBack pred str i
| i < 0 = (str, "");
| pred i str = RemoveWordBack pred str (dec i);
......@@ -646,7 +646,7 @@ RemoveWordAfter line=:(str:!rest)
len = size str;
};
RemoveWordFront :: !(!Int !String -> Bool) !String !Int !Int -> (!String, !String);
RemoveWordFront :: !(Int String -> Bool) !String !Int !Int -> (!String, !String);
RemoveWordFront pred str i len
| i >= len = (str, "");
| pred i str = RemoveWordFront pred str (inc i) len;
......
......@@ -294,7 +294,7 @@ RedrawAreas nft lines [area=:((l,t),(r,b)) : rest] pict
= RedrawAreas nft lines rest (DrawInfo nft (dec t) (b + 40) lines pict);
RedrawAreas nft lines [] pict = pict;
ActivateHelpWd :: !ProgState !IO -> !ProgIO;
ActivateHelpWd :: !ProgState !IO -> ProgIO;
ActivateHelpWd prog io = (prog, io`);
where {
io`= io THEN EnableMenuItems [ICloseID]
......@@ -377,7 +377,7 @@ DoSave id window=:{wstate={pathname}} prog=:{editor=ed=:{editwindows}} io
(window`,_,text)= GetText window;
};
DoSaveAs :: !EditWdId !EditWindow !ProgState !IO -> !ProgIO;
DoSaveAs :: !EditWdId !EditWindow !ProgState !IO -> ProgIO;
DoSaveAs id oldwd=:{wstate={pathname=oldpath}} prog io
# (save,path,prog,io)
= EdSelectOutputFile "Saves As:" (RemovePath oldpath) prog io;
......
......@@ -218,7 +218,7 @@ OptionsToText filetype info=:{modinfo={dir,compilerOptions={neverMemoryProfile,n
def = filetype == RIDclID;
};
FileInfoToText :: !Int !Info -> !List Strings;
FileInfoToText :: !Int !Info -> List Strings;
FileInfoToText filetype
info=:{ path,abcpath,objpath,dcldate,icldate,objdate,abcdate,tp }
| exists = {legend="Location" , value=RemoveFilename path`} :!
......
......@@ -29,7 +29,7 @@ instance toString NewlineConvention where
= "\xd\xa"
// slice that returns a unique array
(%.) infixl 9 :: !.{#Char} !(!Int,!Int) -> !.{#Char}
(%.) infixl 9 :: !.{#Char} !(!Int,!Int) -> .{#Char}
(%.) string indices
= code
{
......@@ -83,7 +83,7 @@ readLine file
(_, line, file`)
= readAnyLine file
writeAnyLine :: !{#Char} !{#Char} !*File -> !*File
writeAnyLine :: !{#Char} !{#Char} !*File -> *File
writeAnyLine line newlineString file
# maxIndex
= size line - 1
......
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