#!/usr/bin/perl -w
# $Id: selection,v 1.4 2019/02/17 20:30:55 tom Exp $

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

use strict;

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

# Exit Cdk.
Cdk::end();
