Kontakt - Purging Groups

on init

	make_perfview
	set_ui_height(1)

	declare ui_button $purge
	set_text($purge, "Purge 1-5 Groups") {This control will purge the first 5 groups}

	declare ui_button $purge2
	set_text($purge2, "Purge 6-10 Groups") {This control will purge the last 5 groups}

end on

on ui_control ($purge)

	if ($purge = 1)

    {CODE: Purge_group(group_idx, state)}
    {Group_idx is the group number, state is off/on... 1 being "Deactivated"}

	purge_group(0,1)
	purge_group(1,1)
	purge_group(2,1)
    purge_group(3,1)
    purge_group(4,1)

    else

    purge_group(0,0)
    purge_group(1,0)
    purge_group(2,0)
    purge_group(3,0)
    purge_group(4,0)

	end if

end on

on ui_control ($purge2)

    if ($purge2 = 1)

    purge_group(5,1)
    purge_group(6,1)
    purge_group(7,1)
    purge_group(8,1)
    purge_group(9,1)

    else

    purge_group(5,0)
    purge_group(6,0)
    purge_group(7,0)
    purge_group(8,0)
    purge_group(9,0)

    end if

end on