#! /bin/perl
######################################################################
## This is a simple example of a JComboBox in readonly (the default) 
## mode. This was taken from the tutorial that comes packaged with the 
## module.
######################################################################

use strict;
use Tk;
use Tk::JComboBox;

my $mw = MainWindow->new;
my $jcb = $mw->JComboBox(
   -choices => [qw/Black Blue Green Purple Red Yellow/],
)->pack;

MainLoop;