Commit 938498af authored by John van Groningen's avatar John van Groningen
Browse files

fix some space leaks with #!

parent b9b920e6
......@@ -546,8 +546,8 @@ where
| otherwise
# (_,text) = id_text
shownContext1 = shownContext && itemH.wItemShow2
textInfo = getWItemTextInfo` itemH.wItemInfo2
itemH = {itemH & wItemInfo2=TextInfo` {textInfo & textInfoText=text}}
#! textInfo = getWItemTextInfo` itemH.wItemInfo2
# itemH = {itemH & wItemInfo2=TextInfo` {textInfo & textInfoText=text}}
itemRect = posSizeToRect absolutePos itemH.wItemSize2
# tb = osSetTextControlText wPtr itemH.wItemPtr2 clipRect itemRect shownContext1 text tb
= (WItemHandle2 itemH,(id_texts,tb))
......
......@@ -556,11 +556,14 @@ where
setWItemInfo` :: !WItemInfo` !(WItemInfo .ls .pst) -> WItemInfo .ls .pst
setWItemInfo` (RadioInfo` {radioItems`,radioIndex`}) (RadioInfo radio=:{radioItems,radioIndex})
= RadioInfo {radio & radioItems=setRadioInfos radioItems` radioItems,radioIndex=radioIndex`}
#! radioItems=setRadioInfos radioItems` radioItems
= RadioInfo {radio & radioItems=radioItems,radioIndex=radioIndex`}
where
setRadioInfos :: ![RadioItemInfo`] ![RadioItemInfo .st] -> [RadioItemInfo .st]
setRadioInfos [info`:infos`] [info:infos]
= [setRadioInfo info` info:setRadioInfos infos` infos]
#! info=setRadioInfo info` info
#! infos=setRadioInfos infos` infos
= [info:infos]
where
setRadioInfo :: !RadioItemInfo` !(RadioItemInfo .st) -> RadioItemInfo .st
setRadioInfo {radioItem`=(item`,s`),radioItemPos`,radioItemSize`} info=:{radioItem=(_,_,f)}
......@@ -820,11 +823,14 @@ where
where
setWItemInfo` :: !WItemInfo` !(WItemInfo .ls .pst) -> WItemInfo .ls .pst
setWItemInfo` (RadioInfo` {radioItems`,radioIndex`}) (RadioInfo radio=:{radioItems,radioIndex})
= RadioInfo {radio & radioItems=setRadioInfos radioItems` radioItems,radioIndex=radioIndex`}
#! radioItems=setRadioInfos radioItems` radioItems
= RadioInfo {radio & radioItems=radioItems,radioIndex=radioIndex`}
where
setRadioInfos :: ![RadioItemInfo`] ![RadioItemInfo .st] -> [RadioItemInfo .st]
setRadioInfos [info`:infos`] [info:infos]
= [setRadioInfo info` info:setRadioInfos infos` infos]
#! info=setRadioInfo info` info
#! infos=setRadioInfos infos` infos
= [info:infos]
where
setRadioInfo :: !RadioItemInfo` !(RadioItemInfo .st) -> RadioItemInfo .st
setRadioInfo {radioItem`=(item`,s`),radioItemPos`,radioItemSize`} info=:{radioItem=(_,_,f)}
......
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