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