YItem comparison in perl

test_yitems.pl

use yui;

my $factory = yui::YUI::widgetFactory;
my $dialog = $factory->createMainDialog;

my $vbox = $factory->createVBox( $dialog );


my $selMinSize = $factory->createMinSize($vbox, 50, 12);
my $sel = $factory->createSelectionBox($selMinSize, "Selection Box");
$sel->setNotify(1);

my $OK = $factory->createPushButton($vbox, "OK");

my $item1 = yui::YItem->new( "foo" );
$sel->addItem($item1);
my $item2 = yui::YItem->new( "bar" );
$sel->addItem($item2);

while (1) {
	my $event = $dialog->waitForEvent();
	last if $event->eventType() == $yui::YEvent::CancelEvent;
	last if $event->widget() == $OK;
	if ($event->widget() == $sel) {
		my $item = $sel->selectedItem();
		if ($item == $item1) {
			print "item comparison works and you chose ". $item->label() ." \n";
		} 
		elsif ($item == $item2) {
			print "item comparison works and you chose ". $item->label() ." \n";
		}
		else {
			print "item comparison does not work\n";
		}
	}
}

$dialog->destroy();