Meta::Utils::Opts::Opts - Module to help you analyze command line arguments.

	MANIFEST: Opts.pm
	PROJECT: meta
	VERSION: 0.50

	package foo;
	use Meta::Utils::Opts::Opts qw();
	my($obj)=Meta::Utils::Opts::Opts->new();
	$obj->set_standard();
	$obj->set_free_allo(0);
	$obj->analyze(\@ARGV);

	BEGIN()
	new($)
	inse($$$$$$$)
	insert_sopt($$)
	def_bool($$$$$)
	def_inte($$$$$)
	def_stri($$$$$)
	def_floa($$$$$)
	def_dire($$$$$)
	def_newd($$$$$)
	def_tnwd($$$$$)
	def_devd($$$$$)
	def_file($$$$$)
	def_newf($$$$$)
	def_ovwf($$$$$)
	def_tnwf($$$$$)
	def_devf($$$$$)
	def_urls($$$$$)
	def_modu($$$$$)
	def_enum($$$$$$)
	def_setx($$$$$$)
	def_path($$$$$)
	def_flst($$$$$)
	def_dlst($$$$$)
	use_color($$$)
	use_color_rese($$)
	set_standard($)
	analyze($)
	usag($$)
	pod($$)
	man($$)
	get_valu($$)
	get_gui($)
	TEST($)

	Name: Mark Veltzer
	Email: mailto:veltzer@cpan.org
	WWW: http://www.veltzer.org
	CPAN id: VELTZER

	0.00 MV make Meta::Utils::Opts object oriented
	0.01 MV more harsh checks on perl code
	0.02 MV fix todo items look in pod documentation
	0.03 MV add enumerated types to options
	0.04 MV more on tests/more checks to perl
	0.05 MV change new methods to have prototypes
	0.06 MV UI for Opts.pm
	0.07 MV fix up perl cooking a lot
	0.08 MV correct die usage
	0.09 MV fix expect.pl test
	0.10 MV more organization
	0.11 MV perl code quality
	0.12 MV more perl quality
	0.13 MV more perl quality
	0.14 MV make all papers papers
	0.15 MV perl documentation
	0.16 MV more perl quality
	0.17 MV perl qulity code
	0.18 MV more perl code quality
	0.19 MV more perl quality
	0.20 MV revision change
	0.21 MV better general cook schemes
	0.22 MV languages.pl test online
	0.23 MV xml/rpc client/server
	0.24 MV html site update
	0.25 MV perl packaging
	0.26 MV PDMT
	0.27 MV license issues
	0.28 MV pictures database
	0.29 MV tree type organization in databases
	0.30 MV more movies
	0.31 MV md5 project
	0.32 MV database
	0.33 MV perl module versions in files
	0.34 MV movies and small fixes
	0.35 MV graph visualization
	0.36 MV thumbnail user interface
	0.37 MV dbman package creation
	0.38 MV more thumbnail issues
	0.39 MV website construction
	0.40 MV improve the movie db xml
	0.41 MV web site development
	0.42 MV web site automation
	0.43 MV SEE ALSO section fix
	0.44 MV put all tests in modules
	0.45 MV move tests to modules
	0.46 MV download scripts
	0.47 MV web site development
	0.48 MV finish papers
	0.49 MV teachers project
	0.50 MV md5 issues

#!/bin/echo This is a perl module and should not be run

package Meta::Utils::Opts::Opts;

use strict qw(vars refs subs);
use Meta::Utils::Progname qw();
use Meta::Utils::List qw();
use Meta::Lang::Perl::Perl qw();
use Meta::Utils::System qw();
use Meta::Utils::Color qw();
use Getopt::Long qw();
use Meta::Utils::Opts::Sopt qw();
use Meta::Ds::Ohash qw();
use Gtk qw();
use Meta::Utils::Output qw();
use Meta::Class::MethodMaker qw();
use Meta::Info::Enum qw();
use Error qw(:try);

our($VERSION,@ISA);
$VERSION="0.50";
@ISA=qw(Meta::Ds::Ohash);

#sub BEGIN();
#sub new($);
#sub inse($$$$$$$);
#sub insert_sopt($$);

#sub def_bool($$$$$);
#sub def_inte($$$$$);
#sub def_stri($$$$$);
#sub def_floa($$$$$);
#sub def_dire($$$$$);
#sub def_newd($$$$$);
#sub def_devd($$$$$);
#sub def_file($$$$$);
#sub def_newf($$$$$);
#sub def_ovwf($$$$$);
#sub def_tnew($$$$$);
#sub def_devf($$$$$);
#sub def_urls($$$$$);
#sub def_modu($$$$$);
#sub def_enum($$$$$$);
#sub def_setx($$$$$$);

#sub use_color($$$);
#sub use_color_rese($$);

#sub set_standard($);
#sub analyze($);
#sub usag($$);
#sub man($$);
#sub get_valu($$);

#sub get_gui($);
#sub TEST($);

#__DATA__

our($type_enum);

sub BEGIN() {
	Meta::Class::MethodMaker->get_set(
		-java=>"_name",
		-java=>"_description",
		-java=>"_author",
		-java=>"_license",
		-java=>"_copyright",
		-java=>"_color",
		-java=>"_free_allo",
		-java=>"_free_stri",
		-java=>"_free_mini",
		-java=>"_free_maxi",
		-java=>"_free_noli",
	);
	$type_enum=Meta::Info::Enum->new();
	$type_enum->insert("bool","boolean type");
	$type_enum->insert("integer","integer type");
	$type_enum->insert("string","any string type");
	$type_enum->insert("float","floating point type");
	$type_enum->insert("exist_directory","directory which already exists");
	$type_enum->insert("exist_directory_list","list of directories which already exist");
	$type_enum->insert("exist_file","file which already exists");
	$type_enum->insert("exist_file_list","list of files which already exist");
	$type_enum->insert("new_directory","directory which does not exist");
	$type_enum->insert("new_file","file which does not exist");
	$type_enum->insert("write_file","file which doesnt exist or exists and is writable");
	$type_enum->insert("new_dev_directory","new directory in the development environment");
	$type_enum->insert("new_dev_file","new development file");
	$type_enum->insert("url","url string");
	$type_enum->insert("module","existing development module name");
	$type_enum->insert("enum","enumerated type");
	$type_enum->insert("set","subset selection out of a set");
}

sub new($) {
	my($class)=@_;
	my($self)=Meta::Ds::Ohash->new();
	bless($self,$class);
	$self->set_color(1);
	$self->set_free_allo(0);
	$self->set_free_stri("unknown");
	$self->set_free_mini(1);
	$self->set_free_maxi(1);
	$self->set_free_noli(1);
	return($self);
}

sub inse($$$$$$$) {
	my($self,$name,$desc,$type,$defa,$poin,$enum)=@_;
	my($obje)=Meta::Utils::Opts::Sopt->new();
	$obje->set_name($name);
	$obje->set_description($desc);
	$obje->set_type($type);
	$obje->set_default($defa);
	$obje->set_pointer($poin);
	$obje->setup_value($defa);
	$obje->set_enum($enum);
	$self->insert($name,$obje);
}

sub insert_sopt($$) {
	my($self,$sopt)=@_;
	$self->insert($sopt->get_name(),$sopt);
}

sub def_bool($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"bool",$defa,$poin,undef);
}

sub def_inte($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"inte",$defa,$poin,undef);
}

sub def_stri($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"stri",$defa,$poin,undef);
}

sub def_floa($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"floa",$defa,$poin,undef);
}

sub def_dire($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"dire",$defa,$poin,undef);
}

sub def_newd($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"newd",$defa,$poin,undef);
}

sub def_devd($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"devd",$defa,$poin,undef);
}

sub def_file($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"file",$defa,$poin,undef);
}

sub def_newf($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"newf",$defa,$poin,undef);
}

sub def_ovwf($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"ovwf",$defa,$poin,undef);
}

sub def_tnew($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"tnew",$defa,$poin,undef);
}

sub def_devf($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"devf",$defa,$poin,undef);
}

sub def_urls($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"urls",$defa,$poin,undef);
}

sub def_modu($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"modu",$defa,$poin,undef);
}

sub def_enum($$$$$$) {
	my($self,$name,$desc,$defa,$poin,$enum)=@_;
	$self->inse($name,$desc,"enum",$defa,$poin,$enum);
}

sub def_setx($$$$$$) {
	my($self,$name,$desc,$defa,$poin,$enum)=@_;
	$self->inse($name,$desc,"setx",$defa,$poin,$enum);
}

sub def_path($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"path",$defa,$poin,undef);
}

sub def_flst($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"flst",$defa,$poin,undef);
}

sub def_dlst($$$$$) {
	my($self,$name,$desc,$defa,$poin)=@_;
	$self->inse($name,$desc,"dlst",$defa,$poin,undef);
}

sub use_color($$$) {
	my($self,$file,$colo)=@_;
	if($self->get_color()) {
		Meta::Utils::Color::set_color($file,$colo);
	}
}

sub use_color_rese($$) {
	my($self,$file)=@_;
	if($self->get_color()) {
		Meta::Utils::Color::reset($file);
	}
}

sub analyze($) {
	my($self)=@_;
	my($file)=Meta::Utils::Output::get_file();
	# fill an array with all the different parameters and types.
	my(@list);
	my(%hash);
	my($size)=$self->size();
	for(my($i)=0;$i<$size;$i++) {
		my($sobj)=$self->elem($i);
		my($name)=$sobj->get_name();
		my($type)=$sobj->get_type();
		my($defa)=$sobj->get_default();
		my($ostr)=$name;
		if($type eq "bool") {
			$ostr.="!";
		}
		if($type eq "inte") {
			$ostr.=":i";
		}
		if($type eq "stri") {
			$ostr.=":s";
		}
		if($type eq "floa") {
			$ostr.=":f";
		}
		if($type eq "dire" || $type eq "newd" || $type eq "ovwd" || $type eq "devd" || $type eq "tnwd") {
			$ostr.=":s";
		}
		if($type eq "file" || $type eq "newf" || $type eq "ovwf" || $type eq "devf" || $type eq "tnwf") {
			$ostr.=":s";
		}
		if($type eq "urls") {
			$ostr.=":s";
		}
		if($type eq "enum") {
			$ostr.=":s";
		}
		if($type eq "setx") {
			$ostr.=":s";
		}
		if($type eq "path") {
			$ostr.=":s";
		}
		if($type eq "modu") {
			$ostr.=":s";
		}
		if($type eq "flst" || $type eq "dlst") {
			$ostr.=":s";
		}
		push(@list,$ostr);
		$hash{$name}=$defa;
	}
	# find out the name of the program for future use
	my($prog)=Meta::Utils::Progname::progname();
	# now read the rc file and push all the stuff there into the ARGV
	# in the order they appear there. We do this only if we have a home
	# directory
	my($rcfile)=Meta::Utils::Utils::get_home_dir()."/\.".$prog."\.rc";
	if(open(FILE,$rcfile)) {
		my($line);
		while($line=<FILE> || 0) {
			chop($line);
			Meta::Utils::List::add_star(\@ARGV,$line);
		}
		close(FILE) || throw Meta::Error::Simple("unable to close file [".$rcfile."]");
	}
	my($resu)=Getopt::Long::GetOptions(\%hash,@list);
	if(!$resu) {
		$self->use_color($file,"red");
		print $file $prog.": unable to parse command line args\n";
		$self->usag($file);
	}
	# move values from the hash back to the objects
	for(my($i)=0;$i<$self->size();$i++) {
		my($sobj)=$self->elem($i);
		my($curr_name)=$sobj->get_name();
		my($valu)=$hash{$curr_name};
		$sobj->setup_value($valu);
	}
	if($self->get_valu("help")==1) {
		$self->use_color($file,"red");
		print $file $prog.": help requested\n";
		$self->usag($file);
	}
	if($self->get_valu("pod")==1) {
		$self->pod($file);
	}
	if($self->get_valu("man")==1) {
		$self->man($file);
	}
	if($self->get_valu("quit")==1) {
		Meta::Utils::System::exit_ok();
	}
	if($self->get_valu("gtk")==1) {
		Gtk->init();
		my($window)=$self->get_gui();
		Gtk->main();
	}
	if($self->get_valu("license")==1) {
		my($pod)=Meta::Lang::Perl::Perl::get_my_pod("LICENSE");
		$pod=CORE::substr($pod,1);
		Meta::Utils::Output::print($pod);
		Meta::Utils::System::exit_ok();
	}
	if($self->get_valu("copyright")==1) {
		my($pod)=Meta::Lang::Perl::Perl::get_my_pod("COPYRIGHT");
		$pod=CORE::substr($pod,1);
		Meta::Utils::Output::print($pod);
		Meta::Utils::System::exit_ok();
	}
	if($self->get_valu("description")==1) {
		my($pod)=Meta::Lang::Perl::Perl::get_my_pod("DESCRIPTION");
		$pod=CORE::substr($pod,1);
		Meta::Utils::Output::print($pod);
		Meta::Utils::System::exit_ok();
	}
	if($self->get_valu("history")==1) {
		my($pod)=Meta::Lang::Perl::Perl::get_my_pod("HISTORY");
		$pod=CORE::substr($pod,1);
		Meta::Utils::Output::print($pod);
		Meta::Utils::System::exit_ok();
	}
	# sanity check for sanity types
	for(my($i)=0;$i<$self->size();$i++) {
		my($sobj)=$self->elem($i);
		#$sobj->verify();
		try {
			$sobj->verify();
			}
		catch Error with {
			my($e)=shift;
			$self->use_color($file,"red");
			print $file $prog.": ".$e->text()."\n";
			$self->usag($file);
		};
	}
	# pass values to the pointers requested
	for(my($i)=0;$i<$self->size();$i++) {
		my($sobj)=$self->elem($i);
		my($curr_type)=$sobj->get_type();
		my($curr_valu)=$sobj->get_value();
		my($curr_poin)=$sobj->get_pointer();
		if($curr_type ne "setx") {
			$$curr_poin=$curr_valu;
		}
	}
	if(!$self->get_free_allo()) {
		if($#ARGV>=0) {
			$self->use_color($file,"red");
			print $file $prog.": free arguments are not allowed\n";
			print $file $prog.": arguments were [".join(",",@ARGV)."]\n";
			$self->usag($file);
		}
	} else {
		if($#ARGV<$self->get_free_mini()-1) {
			my($numb)=$#ARGV+1;
			$self->use_color($file,"red");
			print $file $prog.": too little free arguments [".$numb."]\n";
			print $file $prog.": minimum required is [".$self->get_free_mini()."]\n";
			print $file $prog.": arguments were [".join(",",@ARGV)."]\n";
			$self->usag($file);
		}
		if(!$self->get_free_noli()) {
			if($#ARGV>=$self->get_free_maxi()) {
				my($numb)=$#ARGV+1;
				$self->use_color($file,"red");
				print $file $prog.": too many free arguments [".$numb."]\n";
				print $file $prog.": maximum required is [".$self->get_free_maxi()."]\n";
				print $file $prog.": arguments were [".join(",",@ARGV)."]\n";
				$self->usag($file);
			}
		}
	}
}

sub usag($$) {
	my($self,$file)=@_;
	my($prog)=Meta::Utils::Progname::progname();
	$self->use_color($file,"blue");
	print $file $prog.": purpose: [".$self->get_description()."]\n";
	print $file $prog.": author: [".$self->get_author()."]\n";
	print $file $prog.": license: [".$self->get_license()."]\n";
	print $file $prog.": usage: [".$prog."]";
	if($self->get_free_allo()) {
		print $file " [".$self->get_free_stri()."]";
	}
	print $file " [options]\n";
	print $file $prog.": where options are:\n";
	my($size)=$self->size();
	for(my($i)=0;$i<$size;$i++) {
		my($sobj)=$self->val($i);
		my($curr_name)=$sobj->get_name();
		my($curr_desc)=$sobj->get_description();
		my($curr_type)=$sobj->get_type();
		my($curr_defa)=$sobj->get_default();
		my($curr_poin)=$sobj->get_pointer();
		my($curr_valu)=$sobj->get_value();
		my($curr_enum)=$sobj->get_enum();
		$self->use_color($file,"clear blue");
		print $file $prog.": \t";
		$self->use_color($file,"bold white");
		print $file $curr_name."\n";
		$self->use_color($file,"clear blue");
		print $file $prog.":\t\ttype [".$curr_type."],\ default [".$curr_defa."]\n";
		print $file $prog.":\t\tdescription [".$curr_desc."]\n";
		if($curr_type eq "enum" || $curr_type eq "setx") {
			my(@arra);
			for(my($j)=0;$j<$curr_enum->size();$j++) {
				push(@arra,$curr_enum->key($j));
			}
			print $file $prog.":\t\toptions [".join(",",@arra)."]\n";
		}
	}
	if($self->get_free_allo()) {
		print $file $prog.": free arguments allowed [".$self->get_free_stri()."]\n";
		print $file $prog.": minimum of [".$self->get_free_mini()."] free arguments required\n";
		if($self->get_free_noli()) {
			print $file $prog.": no maximum limit on number of free arguments placed\n";
		} else {
			print $file $prog.": maximum of [".$self->get_free_maxi()."] free arguments required\n";
		}
	} else {
		print $file $prog.": no free arguments are allowed\n";
	}
	$self->use_color_rese($file);
	Meta::Utils::System::exit_ok();
}

sub pod($$) {
	my($self,$file)=@_;
	my($size)=$self->size();
	print $file "=over 4\n\n";
	for(my($i)=0;$i<$size;$i++) {
		my($sobj)=$self->val($i);
		my($curr_name)=$sobj->get_name();
		my($curr_desc)=$sobj->get_description();
		my($curr_type)=$sobj->get_type();
		my($curr_defa)=$sobj->get_default();
		my($curr_poin)=$sobj->get_pointer();
		my($curr_valu)=$sobj->get_value();
		my($curr_enum)=$sobj->get_enum();
		my($curr_set)=$sobj->get_set();
		print $file "=item B<".$curr_name."> (type: ".$curr_type.",\ default: ".$curr_defa.")\n\n".$curr_desc."\n\n";
		if($curr_type eq "enum" || $curr_type eq "setx") {
			print $file "options:\n";
			for(my($j)=0;$j<$curr_enum->size();$j++) {
				my($key)=$curr_enum->key($j);
				my($val)=$curr_enum->val($j);
				print $file "\t".$key." - ".$val."\n";
			}
			#print $file "options [".join(",",@arra)."]\n\n";
			print $file "\n";
		}
	}
	print $file "=back\n\n";
	if($self->get_free_allo()) {
		print $file "minimum of [".$self->get_free_mini()."] free arguments required\n";
		if($self->get_free_noli()) {
			print $file "no maximum limit on number of free arguments placed\n";
		} else {
			print $file "maximum of [".$self->get_free_maxi()."] free arguments required\n";
		}
	} else {
		print $file "no free arguments are allowed\n";
	}
	#print $file "\n";
	Meta::Utils::System::exit_ok();
}

sub man($$) {
	my($self,$file)=@_;
	my($prog)=Meta::Utils::Progname::fullname();
	Meta::Lang::Perl::Perl::man_file($prog);
	Meta::Utils::System::exit_ok();
}

sub get_valu($$) {
	my($self,$name)=@_;
	my($sobj)=$self->get($name);
	return($sobj->get_value());
}

sub set_standard($) {
	my($self)=@_;
	$self->{STANDARD_HELP}=defined;
	$self->{STANDARD_PODX}=defined;
	$self->{STANDARD_MANX}=defined;
	$self->{STANDARD_QUIT}=defined;
	$self->{STANDARD_GTKX}=defined;
	$self->{STANDARD_LICE}=defined;
	$self->{STANDARD_COPY}=defined;
	$self->{STANDARD_DESC}=defined;
	$self->{STANDARD_HIST}=defined;
	$self->def_bool("help","display help message",0,\$self->{STANDARD_HELP});
	$self->def_bool("pod","display pod options snipplet",0,\$self->{STANDARD_PODX});
	$self->def_bool("man","display manual page",0,\$self->{STANDARD_MANX});
	$self->def_bool("quit","quit without doing anything",0,\$self->{STANDARD_QUIT});
	$self->def_bool("gtk","run a gtk ui to get the parameters",0,\$self->{STANDARD_GTKX});
	$self->def_bool("license","show license and exit",0,\$self->{STANDARD_LICE});
	$self->def_bool("copyright","show copyright and exit",0,\$self->{STANDARD_COPY});
	$self->def_bool("description","show description and exit",0,\$self->{STANDARD_DESC});
	$self->def_bool("history","show history and exit",0,\$self->{STANDARD_HIST});
	$self->set_author("mark");
	$self->set_license("GPL");
	$self->set_description(Meta::Lang::Perl::Perl::get_my_name());
}

sub get_gui($) {
	my($self)=@_;
	my($size)=$self->size();
	my($packer)=Gtk::VBox->new(0,0);
	my($tip)=Gtk::Tooltips->new();
	for(my($i)=0;$i<$size;$i++) {
		my($sobj)=$self->elem($i);
		my($name)=$sobj->get_name();
		my($desc)=$sobj->get_description();
		my($type)=$sobj->get_type();
		my($defa)=$sobj->get_defa();
		my($enum)=$sobj->get_enum();
		my($pack);
		my($spac)=10;
		if($type eq "bool") {
			$pack=Gtk::HBox->new(1,$spac);
			my($button)=Gtk::CheckButton->new($name);
			$button->set_active($defa);
			$button->show();
			$pack->pack_start($button,1,0,0);
			$tip->set_tip($button,$desc,"");
		}
		if($type eq "inte") {
			$pack=Gtk::HBox->new(1,$spac);
			my($label)=Gtk::Label->new();
			$label->set_text($name);
			$label->show();
			my($adju)=Gtk::Adjustment->new($defa,-10000,10000,1,2,0);
			my($spin)=Gtk::SpinButton->new($adju,1,4);
			$spin->set_digits(0);
			$spin->show();
			$pack->pack_start_defaults($label);
			$pack->pack_start_defaults($spin);
			$tip->set_tip($spin,$desc,"");
		}
		if($type eq "stri" || $type eq "urls") {
			$pack=Gtk::HBox->new(1,$spac);
			my($label)=Gtk::Label->new();
			$label->set_text($name);
			$label->show();
			my($entry)=Gtk::Entry->new();
			$entry->set_text($defa);
			$entry->show();
			$pack->pack_start_defaults($label);
			$pack->pack_start_defaults($entry);
			$tip->set_tip($entry,$desc,"");
		}
		if($type eq "floa") {
			$pack=Gtk::HBox->new(1,$spac);
			my($label)=Gtk::Label->new();
			$label->set_text($name);
			$label->show();
			my($adju)=Gtk::Adjustment->new($defa,-10,10,1,2,0);
			my($spin)=Gtk::SpinButton->new($adju,1,4);
			$spin->show();
			$pack->pack_start_defaults($label);
			$pack->pack_start_defaults($spin);
			$tip->set_tip($spin,$desc,"");
		}
		if($type eq "dire" || $type eq "newd" || $type eq "ovwd" || $type eq "devd" || $type eq "tnwd") {
			my($label)=Gtk::Label->new($name);
			$label->show();
			my($entry)=Gtk::Entry->new();
			$entry->set_editable(0);
			$entry->set_text($defa);
			$entry->show();
			$pack=Gtk::HBox->new(1,$spac);
			$pack->pack_start_defaults($label);
			$pack->pack_start_defaults($entry);
			$tip->set_tip($entry,$desc,"");
		}
		if($type eq "file" || $type eq "newf" || $type eq "ovwf" || $type eq "devf" || $type eq "tnwf") {
			my($label)=Gtk::Label->new($name);
			$label->show();
			my($entry)=Gtk::Entry->new();
			$entry->set_text($defa);
			$entry->set_editable(0);
			$entry->show();
			$pack=Gtk::HBox->new(1,$spac);
			$pack->pack_start_defaults($label);
			$pack->pack_start_defaults($entry);
			$tip->set_tip($entry,$desc,"");
		}
		if($type eq "enum" || $type eq "setx") {
			$pack=Gtk::HBox->new(1,$spac);
			my($label)=Gtk::Label->new();
			$label->set_text($name);
			my($combo)=Gtk::Combo->new();
			my(@arra);
			for(my($i)=0;$i<$enum->size();$i++) {
				my($curr)=$enum->elem($i);
#				Meta::Utils::Output::print("adding [".$curr."]\n");
				push(@arra,$curr);
			}
			$label->show();
			$combo->set_popdown_strings(@arra);
			$combo->set_value_in_list(1,0);
			$combo->entry->set_text($defa);
			$combo->entry->set_editable(0);
			$combo->show();
			$pack->pack_start_defaults($label);
			$pack->pack_start_defaults($combo);
			$tip->set_tip($combo->entry,$desc,"");
		}
		$pack->show();
		$packer->pack_start_defaults($pack);
	}
	$packer->show();
	my($sep)=Gtk::HSeparator->new();
	$sep->show();
	my($button_run)=Gtk::Button->new("Run");
	$button_run->show();
	my($button_quit)=Gtk::Button->new("Quit");
	$button_quit->show();
	my($button_box)=Gtk::HBox->new(0,0);
	$button_box->pack_start($button_run,1,0,0);
	$button_box->pack_start($button_quit,1,0,0);
	$button_box->show();
	my($final_packer)=Gtk::VBox->new(0,0);
	$final_packer->pack_start_defaults($packer);
	$final_packer->pack_start($sep,0,1,5);
	$final_packer->pack_start_defaults($button_box);
	$final_packer->show();
	my($window)=Gtk::Window->new("dialog");
	$window->add($final_packer);
	$window->show();
	return($window);
}

sub TEST($) {
	my($context)=@_;
	my($bool,$inte,$stri,$floa,$dire,$file,$senum,$urls);
	my($enum)=Meta::Info::Enum->new();
	$enum->insert("mysql","MySQL(tm) database");
	$enum->insert("oracle","Oracle(tm) database");
	$enum->insert("postgres","PostgreSQL(tm) database");
	$enum->insert("informix","Informix(tm) database");
	$enum->set_default("mysql");
	my($set)=Meta::Ds::Oset->new();
	$set->insert("one","first option");
	$set->insert("two","second option");
	$set->insert("three","third option");
	$set->set_default("one,two");
	my($sset)=Meta::Ds::Oset->new();
	my($opts)=__PACKAGE__->new();
	$opts->set_standard();
	$opts->def_bool("bool","just a bool",1,\$bool);
	$opts->def_inte("inte","just an int",7,\$inte);
	$opts->def_stri("stri","just a string","mark",\$stri);
	$opts->def_floa("floa","just a float",3.14,\$floa);
	$opts->def_dire("dire","just a directory",".",\$dire);
	$opts->def_file("file","just a file","/etc/passwd",\$file);
	$opts->def_enum("enum","a selection out of an enumerated type","mysql",\$senum,$enum);
	$opts->def_setx("sset","list of files","one,two",\$sset,$set);
	$opts->def_urls("urls","url string read from","http://www.cpan.org",\$urls);
	$opts->set_free_allo(0);
	my(@array);
	$opts->analyze(\@array);
	Meta::Utils::Output::print("bool is [".$bool."]\n");
	Meta::Utils::Output::print("inte is [".$inte."]\n");
	Meta::Utils::Output::print("stri is [".$stri."]\n");
	Meta::Utils::Output::print("floa is [".$floa."]\n");
	Meta::Utils::Output::print("dire is [".$dire."]\n");
	Meta::Utils::Output::print("file is [".$file."]\n");
	Meta::Utils::Output::print("senum is [".$senum."]\n");
	Meta::Utils::Output::print("sset size is [".$sset->size()."]\n");
	#Meta::Utils::Output::print("urls is [".$urls."]\n");
	return(1);
}

1;

__END__