#!/usr/local/bin/perl -w
use Tk;
use Tk::ColorEditor;
use Tk::ErrorDialog;
use English;

$mw = MainWindow->new;
$f = $mw->Frame(-bg => 'blue');
$f->pack;
$ce = $f->Button(-text => 'Color Editor');
$ce->pack;
$qu = $f->Button(-text => 'Quit', -command => ['destroy', $mw]);
$qu->pack;
$f2=$f->Frame;
$f2->pack;
$f2b1=$f2->Button(-text => 'f2b1');
$f2b1->pack(-side=>'left');
$f2b2=$f2->Button(-text => 'f2b1');
$f2b2->pack(-side=>'left');
$cref = $mw->ColorEditor('Test CE');#, ('@cursor.xbm', 'cursor.mask', 'red', 'green'));
$ce->configure(-command => [sub {shift->show}, $cref]);
$cref->configure(
		 ['delete_menu_item' => 3],
		 ['delete_menu_item' => 'disabledforeground'],
		 ['delete_menu_item' => 'sliderforeground'],
		 ['add_menu_item' => 'SEP'],
		 ['add_menu_item' => 'frog colors'],
		 ['add_menu_item' => 'display_color_editor_status'],
		 ['color_list' => [$ce, $qu, $f2b2]],
#		 ['color_list' => [$cref->get_widget_tree($f2)]],
#		 ['my_configurator' => 'sub configure_application_colors{print "woof\n";}'],
		 );
MainLoop;

