Commit eec4a939 authored by Diederik van Arkel's avatar Diederik van Arkel
Browse files

move window init to separate function

parent 2aa24d48
......@@ -623,14 +623,13 @@ where
)
[ WindowId windId
, WindowClose (noLS (sw_close windId o wind_deac))
, WindowInit (noLS (appPIO (enableMenuElements [menu_elem_id])))
, WindowInit (noLS (sw_init))
, WindowDeactivate (noLS wind_deac)
, WindowInitActive windlbId.controlId
, WindowActivate (noLS (wind_act windlbId.controlId))
, WindowViewSize win_size
, WindowPos (Fix, OffsetVector src_offset)
]
wind_deac ps
# (inf=:{windId},ps) = getFBI ps
# (pos,ps) = accPIO (getWindowPos windId) ps
......@@ -661,6 +660,10 @@ wind_act cId ps
// # ps = setActiveControl cId ps
= ps
sw_init ps
# ({searchIds},ps) = getMenuIds ps
= appPIO (enableMenuElements [searchIds.nextIds!!0]) ps
sw_close windId ps
# ({searchIds},ps) = getMenuIds ps
# ps = appPIO (disableMenuElements [searchIds.nextIds!!0]) ps
......
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