on note
disallow_group($ALL_GROUPS)
allow_group(0)
end on

on init
declare $count
declare ui_menu $groups_menu
add_menu_item ($groups_menu,"Play All",-1)
while ($count < $NUM_GROUPS)
add_menu_item ($groups_menu,"Mute: " & group_name($count),$count)
inc($count)
end while
end on
on note
if ($groups_menu # -1)
disallow_group($groups_menu)
end if
end on

on note
disallow_group(find_group("Alco"))
end on

on init
declare ui_button $purge
declare ui_button $checkpurge
set_text ($purge,"Purge 1st Group")
set_text ($checkpurge,"Check purge status")
end on
on ui_control ($purge)
purge_group(0,abs($purge-1))
end on
on ui_control ($checkpurge)
if (get_purge_state(0) = 0)
message("Group is purged.")
else
message("Group is not purged.")
end if
end on

on init
declare $count
declare ui_menu $groups_menu
$count := 0
while ($count < $NUM_GROUPS)
add_menu_item ($groups_menu,group_name($count),$count)
inc($count)
end while
end on

on init
declare $count
declare ui_label $label (2,6)
set_text($label,"")
end on
on note
$count := 0
while ($count < num_elements(%GROUPS_AFFECTED))
add_text_line($label,group_name(%GROUPS_AFFECTED[$count]))
inc($count)
end while
end on
on release
set_text($label,"")
end on

on init
declare ui_button $purge
set_text ($purge,"Purge 1st Group")
end on
on ui_control ($purge)
purge_group(0,abs($purge-1))
end on