#!/usr/bin/perl -w
# $Id: selection,v 1.2 2002/07/27 20:11:17 tom Exp $

#
# Purpose:
#	To demonstrate the Perl5 Cdk Selection Widget.

#
# Initialize Cdk.
#
use Cdk;
Cdk::init();

# Set up the selection list.
my @listItems = ("Item 1", "Item 2", "Item 3",
			"Item 4", "Item 5", "Item 6",
			"Item 7", "Item 8", "Item 9");

my @choices = ("Yes", "No", "Maybe");

# Create the selection list object.
my $selection = new Cdk::Selection ('Title' => "</5>Selection List",
					'List' => \@listItems,
					'Choices' => \@choices,
					'Height' => 10,
					'Width' => 20);

# Activate the object.
my @info = $selection->activate ();

# Check the results.
if (!defined @info)
{
   popupLabel (["<C>Escape hit. No menu item selected."]);
}
else
{
   my @list = ("<C></R>Items Selected");
   for ($x=0; $x < $#info; $x++)
   {
      push (@list, "<C>$listItems[$x]") if $info[$x] == 0;
   }
   popupLabel (\@list);
}

# Exit Cdk.
Cdk::end();