#!/usr/bin/perl

use lib "$ENV{'COSMOS_HOME'}/lib/perl";
use lib "$ENV{'COSMOS_HOME'}/lib/perl/i386";
use Tk;

$cosdir=$ENV{COSMOS_IMAGE_DIR};
print "$cosdir\n";
if($cosdir eq ""){
$cosdir=$ENV{PWD}."/";}

$mw=MainWindow->new;
$mw->title('Set COSMOS_IMAGE_DIR');
$mw->configure(-background=>'AntiqueWhite3');

$myfont=$mw->fontCreate(
			-family => 'helvetica',
			-weight => 'bold',
			-size   => 10);

$cd=$mw->Entry(
	       -background=>'AntiqueWhite3',
	       -font=>$myfont,
	       -textvariable=>\$cosdir,
	       -width=>60,
	       -relief=>'sunken')->pack(
					-pady=>10,
					-pady=>10);
					      
$cd->icursor('end');

$mw->Button(
	    -background=>'AntiqueWhite3',
	    -text=>'Set',
	    -font=>$myfont,
	    -command=>\&stc)->pack(
				   -expand=>1,
				   -fill=>'none',
				   -pady=>10,
				   -side=>left);
$cd->Tk::bind("<Return>",[\&stc]);

$mw->Button(
	    -background=>'AntiqueWhite3',
	    -font=>$myfont,
	    -text=>'Cancel',
	    -command=> sub{$mw->destroy})->pack(
						  -side=>'left',
						  -expand=>1,
						  -fill=>'none',
						  -pady=>10);
$cd->focus();
 MainLoop;

sub stc{

    open(OUT,">scd.dat");
    print OUT "setenv COSMOS_IMAGE_DIR $cosdir\n";
    close OUT;
    exit;}
