#! /usr/bin/perl

use Tk;

sub Run {
print "$color - $refcolor\n";
   $cmd="$binpath/rad -na=nids \"-ti=NIDS $sitename\" -if=nids_${type}:i=$site  -cu=la -de=d -ba";

   $cmd.=" -ct=nwsradar.clr -cof=nwsnids.cfl" if $color && $refcolor;
   $cmd.=" -cof=nids.cfl" if $color && !$refcolor;
   $cmd.=" -cof=miss" if !$color;

   $cmd.=" -nh=-1" if $loop;

   $cmd.=" -va=comp" if $typename eq "Comp Ref/Attr";

   $cmd.=" -pp=dist:50:75:100:124" if $range;

   $cmd.=" -mf=dlg/cnty.bmap:green,dlg/rd_int.bmap:red,dlg/coast.bmap:white,dlg/state.bmap:white,dlg/nation.bmap:white,rf:cities.raw-Name:co=white" if $color && $refcolor;
   $cmd.=" -mf=state.bmap" if $map;
   $cmd.=" -mf=cont.map,wxpstate.map,rf:cities.raw-Name:co=white" if( $sitename =~ / AK/ || $sitename =~ / HI/);

   $cmd.=" -df=$default" if $default;

   print "$cmd\n";
   `$cmd`;
   }

$os = "Win" if $^O eq "MSWin32";

if( $os eq "Win" ){
   if( -e "c:/wxp/bin" ){
      $binpath = "c:\\WXP\\bin";
      $default="c:/wxp/etc";
      }
   if( -e "d:/wxp/bin" ){
      $binpath = "d:\\WXP\\bin";
      $default="d:/wxp/etc";
      }
   if( -e "e:/wxp/bin" ){
      $binpath = "e:\\WXP\\bin";
      $default="e:/wxp/etc";
      }
   }
else {
   $binpath="/home/wxp/bin";
   $default="/home/wxp/etc";
   }

#set geom "640x512"
$sitename="Philadelphia PA";
$site="DIX";
$typename="Bref1";
$type="n0r";
$color=1;
$refcolor=0;
$loop=0;
$map=0;
$range=0;

$mw = MainWindow->new;
$mw->title( "ptkNIDS" );
$mw->geometry( "+10+10" );

$frame = $mw->Frame->pack( -side => "top", -fill => "x" );

$but = $frame->Menubutton( -text => "Site",
                          -relief => "raised",
                          -width => 10 )
                          ->pack( -side => "left" );

$ent = $frame->Entry( -width => 20,
                     -relief => "sunken",
                     -textvariable => \$sitename ) 
                     ->pack( -side => "left" );

#$menu = $but->menu->Menu( -tearoff => 0 );

#$menu->command( -label => "Unisys Composite",
#                -command => sub { $site="national"; $sitename="Unisys Mosaic" } );

#$but->cascade( -label => "National" );
#$but->entryconfigure( "National", -menu => $menu );

$menu = $but->menu->Menu( -tearoff => 0 );

$menu->command( -label => "Albany NY",
                -command => sub { $site="ENX"; $sitename="Albany NY" } );
$menu->command( -label => "Binghamton NY",
                -command => sub { $site="BGM"; $sitename="Binghamton NY" } );
$menu->command( -label => "Boston MA",
                -command => sub { $site="BOX"; $sitename="Boston MA" } );
$menu->command( -label => "Buffalo NY",
                -command => sub { $site="BUF"; $sitename="Buffalo NY" } );
$menu->command( -label => "Burlington VT",
                -command => sub { $site="CXX"; $sitename="Burlington VT" } );
$menu->command( -label => "Caribou ME",
                -command => sub { $site="CBW"; $sitename="Caribou ME" } );
$menu->command( -label => "Montague NY",
                -command => sub { $site="TYX"; $sitename="Montague NY" } );
$menu->command( -label => "New York NY",
                -command => sub { $site="OKX"; $sitename="New York NY" } );
$menu->command( -label => "Philadelphia  PA",
                -command => sub { $site="DIX"; $sitename="Philadelphia PA" } );
$menu->command( -label => "Pittsburgh PA",
                -command => sub { $site="PBZ"; $sitename="Pittsburgh PA" } );
$menu->command( -label => "Portland ME",
                -command => sub { $site="GYX"; $sitename="Portland ME" } );
$menu->command( -label => "State College PA",
                -command => sub { $site="CCX"; $sitename="State College PA" } );

$but->cascade( -label => "Northeast" );
$but->entryconfigure( "Northeast", -menu => $menu );

$menu = $but->menu->Menu( -tearoff => 0 );

$menu->command( -label => "Charleston SC",
                -command => sub { $site="CLX"; $sitename="Charleston SC" } );
$menu->command( -label => "Charleston WV",
                -command => sub { $site="RLX"; $sitename="Charleston WV" } );
$menu->command( -label => "Columbia SC",
                -command => sub { $site="CAE"; $sitename="Columbia SC" } );
$menu->command( -label => "Dover DE",
                -command => sub { $site="DOX"; $sitename="Dover DE" } );
$menu->command( -label => "Greenville SC",
                -command => sub { $site="GSP"; $sitename="Greenville SC" } );
$menu->command( -label => "Morehead City NC",
                -command => sub { $site="MHX"; $sitename="Morehead City NC" } );
$menu->command( -label => "Norfolk VA",
                -command => sub { $site="AKQ"; $sitename="Norfolk VA" } );
$menu->command( -label => "Rayleigh/Durham NC",
                -command => sub { $site="RAX"; $sitename="Rayleigh Durham NC" } );
$menu->command( -label => "Roanoke VA",
                -command => sub { $site="FCX"; $sitename="Roanoke VA" } );
$menu->command( -label => "Sterling VA",
                -command => sub { $site="LWX"; $sitename="Sterlingr VA" } );
$menu->command( -label => "Wilmington NC",
                -command => sub { $site="LTX"; $sitename="Wilmington NC" } );

$but->cascade( -label => "Atlantic" );
$but->entryconfigure( "Atlantic", -menu => $menu );

$menu = $but->menu->Menu( -tearoff => 0 );

$menu->command( -label => "Atlanta GA",
                -command => sub { $site="FFC"; $sitename="Atlanta GA" } );
$menu->command( -label => "Birmingham AL",
                -command => sub { $site="BMX"; $sitename="Birmingham AL" } );
$menu->command( -label => "Carrville AL (EC)",
                -command => sub { $site="MXX"; $sitename="Carrville AL" } );
$menu->command( -label => "Fort Polk LA",
                -command => sub { $site="POE"; $sitename="Fort Polk LA" } );
$menu->command( -label => "Fort Rucker AL",
                -command => sub { $site="EOX"; $sitename="Fort Rucker AL" } );
$menu->command( -label => "Huntsville AL",
                -command => sub { $site="HTX"; $sitename="Huntsville AL" } );
$menu->command( -label => "Jackson MS",
                -command => sub { $site="JAN"; $sitename="Jackson MS" } );
$menu->command( -label => "Jacksonville FL",
                -command => sub { $site="JAX"; $sitename="Jacksonville FL" } );
$menu->command( -label => "Key West FL",
                -command => sub { $site="BYX"; $sitename="Key West FL" } );
$menu->command( -label => "Lake Charles LA",
                -command => sub { $site="LCH"; $sitename="Lake Charles LA" } );
$menu->command( -label => "Miami FL",
                -command => sub { $site="AMX"; $sitename="Miami FL" } );
$menu->command( -label => "Melbourne FL",
                -command => sub { $site="MLB"; $sitename="Melbourne FL" } );
$menu->command( -label => "Mobile AL",
                -command => sub { $site="MOB"; $sitename="Mobile AL" } );
$menu->command( -label => "New Orleans LA",
                -command => sub { $site="LIX"; $sitename="New Orleans LA" } );
$menu->command( -label => "Red Bay/Eglin FL",
                -command => sub { $site="EVX"; $sitename="Red Bay FL" } );
$menu->command( -label => "San Juan PR",
                -command => sub { $site="JUA"; $sitename="San Juan PR" } );
$menu->command( -label => "Shreveport LA",
                -command => sub { $site="SHV"; $sitename="Shreveport LA" } );
$menu->command( -label => "Tallahassee FL",
                -command => sub { $site="TLH"; $sitename="Tallahassee FL" } );
$menu->command( -label => "Tampa Bay FL",
                -command => sub { $site="TBW"; $sitename="Tampa Bay FL" } );
$menu->command( -label => "Valdosta GA",
                -command => sub { $site="VAX"; $sitename="Valdosta GA" } );
$menu->command( -label => "Warner Robbins GA",
                -command => sub { $site="JGX"; $sitename="Warner Robbins GA" } );

$but->cascade( -label => "Southeast" );
$but->entryconfigure( "Southeast", -menu => $menu );

$menu = $but->menu->Menu( -tearoff => 0 );

$menu->command( -label => "Alpena MI",
                -command => sub { $site="APX"; $sitename="Alpena MI" } );
$menu->command( -label => "Chicago IL",
                -command => sub { $site="LOT"; $sitename="Chicago IL" } );
$menu->command( -label => "Cincinnati OH",
                -command => sub { $site="ILN"; $sitename="Cincinnati OH" } );
$menu->command( -label => "Cleveland OH",
                -command => sub { $site="CLE"; $sitename="Cleveland OH" } );
$menu->command( -label => "Detroit MI",
                -command => sub { $site="DTX"; $sitename="Detroit MI" } );
$menu->command( -label => "Fort Campbell KY",
                -command => sub { $site="FSX"; $sitename="Fort Campbell KY" } );
$menu->command( -label => "Grand Rapids MI",
                -command => sub { $site="GRR"; $sitename="Grand Rapids MI" } );
$menu->command( -label => "Green Bay WI",
                -command => sub { $site="GRB"; $sitename="Green Bay WI" } );
$menu->command( -label => "Indianapolis IN",
                -command => sub { $site="IND"; $sitename="Indianapolis IN" } );
$menu->command( -label => "Jackson KY",
                -command => sub { $site="JKL"; $sitename="Jackson KY" } );
$menu->command( -label => "Knoxville TN",
                -command => sub { $site="MRX"; $sitename="Knoxville TN" } );
$menu->command( -label => "LaCrosse WI",
                -command => sub { $site="ARX"; $sitename="LaCrosse WI" } );
$menu->command( -label => "Lincoln IL",
                -command => sub { $site="ILX"; $sitename="Lincoln IL" } );
$menu->command( -label => "Louisville KY",
                -command => sub { $site="LVX"; $sitename="Louisville KY" } );
$menu->command( -label => "Marquette MI",
                -command => sub { $site="MQT"; $sitename="Marquette MI" } );
$menu->command( -label => "Memphis TN",
                -command => sub { $site="NQA"; $sitename="Memphis TN" } );
$menu->command( -label => "Milwaukee WI",
                -command => sub { $site="MKX"; $sitename="Milwaukee WI" } );
$menu->command( -label => "Nashville TN",
                -command => sub { $site="OHX"; $sitename="Nashville TN" } );
$menu->command( -label => "North Webster IN",
                -command => sub { $site="IWX"; $sitename="North Webster IN" } );
$menu->command( -label => "Paducah KY",
                -command => sub { $site="PAH"; $sitename="Paducah KY" } );

$but->cascade( -label => "Ohio Valley" );
$but->entryconfigure( "Ohio Valley", -menu => $menu );

$menu = $but->menu->Menu( -tearoff => 0 );

$menu->command( -label => "Aberdeen SD",
                -command => sub { $site="ABR"; $sitename="Aberdeen SD" } );
$menu->command( -label => "Bismarck ND",
                -command => sub { $site="BIS"; $sitename="Bismarck ND" } );
$menu->command( -label => "Des Moines IA",
                -command => sub { $site="DMX"; $sitename="Des Moines IA" } );
$menu->command( -label => "Dodge City KS",
                -command => sub { $site="DDC"; $sitename="Dodge City KS" } );
$menu->command( -label => "Duluth MN",
                -command => sub { $site="DLH"; $sitename="Duluth MN" } );
$menu->command( -label => "Fargo ND",
                -command => sub { $site="MVX"; $sitename="Fargo ND" } );
$menu->command( -label => "Goodland KS",
                -command => sub { $site="GLD"; $sitename="Goodland KS" } );
$menu->command( -label => "Hastings NE",
                -command => sub { $site="UEX"; $sitename="Hastings NE" } );
$menu->command( -label => "Kansas City MO",
                -command => sub { $site="EAX"; $sitename="Kansas City MO" } );
$menu->command( -label => "Minneapolis MN",
                -command => sub { $site="MPX"; $sitename="Minneapolis MN" } );
$menu->command( -label => "Minot ND",
                -command => sub { $site="MBX"; $sitename="Minot ND" } );
$menu->command( -label => "North Platte NE",
                -command => sub { $site="LNX"; $sitename="North Platte NE" } );
$menu->command( -label => "Omaha NE",
                -command => sub { $site="OAX"; $sitename="Omaha NE" } );
$menu->command( -label => "Quad Cities IA",
                -command => sub { $site="DVN"; $sitename="Quad Cities IA" } );
$menu->command( -label => "Rapid City SD",
                -command => sub { $site="UDX"; $sitename="Rapid City SD" } );
$menu->command( -label => "St Louis MO",
                -command => sub { $site="LSX"; $sitename="St Louis IN" } );
$menu->command( -label => "Sioux Falls SD",
                -command => sub { $site="FSD"; $sitename="Sioux Falls SD" } );
$menu->command( -label => "Springfield MO",
                -command => sub { $site="SGF"; $sitename="Springfield MO" } );
$menu->command( -label => "Topeka KS",
                -command => sub { $site="TWX"; $sitename="Topeka KS" } );
$menu->command( -label => "Wichita KS",
                -command => sub { $site="ICT"; $sitename="Wichita KS" } );

$but->cascade( -label => "Northern Plains" );
$but->entryconfigure( "Northern Plains", -menu => $menu );

$menu = $but->menu->Menu( -tearoff => 0 );

$menu->command( -label => "Abilene TX",
                -command => sub { $site="DYX"; $sitename="Abiliene TX" } );
$menu->command( -label => "Alamagordo NM",
                -command => sub { $site="HDX"; $sitename="Alamagordo NM" } );
$menu->command( -label => "Albuqueque NM",
                -command => sub { $site="ABX"; $sitename="Albuquerque NM" } );
$menu->command( -label => "Amarillo TX",
                -command => sub { $site="AMA"; $sitename="Amarillo TX" } );
$menu->command( -label => "Austin TX",
                -command => sub { $site="EWX"; $sitename="Austin TX" } );
$menu->command( -label => "Brownsville TX",
                -command => sub { $site="BRO"; $sitename="Brownsville TX" } );
$menu->command( -label => "Clovis NM",
                -command => sub { $site="FDX"; $sitename="Clovis NM" } );
$menu->command( -label => "Corpus Christi TX",
                -command => sub { $site="CRP"; $sitename="Corpus Christi TX" } );
$menu->command( -label => "Dallas TX",
                -command => sub { $site="FWS"; $sitename="Dallas TX" } );
$menu->command( -label => "Del Rio TX",
                -command => sub { $site="DFX"; $sitename="Del Rio TX" } );
$menu->command( -label => "El Paso TX",
                -command => sub { $site="EPZ"; $sitename="El Paso TX" } );
$menu->command( -label => "Enid OK",
                -command => sub { $site="VNX"; $sitename="Enid OK" } );
$menu->command( -label => "Fort Smith AR",
                -command => sub { $site="SRX"; $sitename="Fort Smith AR" } );
$menu->command( -label => "Frederick OK",
                -command => sub { $site="FDR"; $sitename="Frederick OK" } );
$menu->command( -label => "Houston TX",
                -command => sub { $site="HGX"; $sitename="Houston TX" } );
$menu->command( -label => "Killeen TX",
                -command => sub { $site="GRK"; $sitename="Killeen TX" } );
$menu->command( -label => "Little Rock AR",
                -command => sub { $site="LZK"; $sitename="Little Rock AR" } );
$menu->command( -label => "Lubbock TX",
                -command => sub { $site="LBB"; $sitename="Lubbock TX" } );
$menu->command( -label => "Midland TX",
                -command => sub { $site="MAF"; $sitename="Midland TX" } );
$menu->command( -label => "Oklahoma City OK",
                -command => sub { $site="TLX"; $sitename="Oklahoma City OK" } );
$menu->command( -label => "San Angelo TX",
                -command => sub { $site="SJT"; $sitename="San Angelo TX" } );
$menu->command( -label => "Tulsa OK",
                -command => sub { $site="INX"; $sitename="Tulsa OK" } );

$but->cascade( -label => "Southern Plains" );
$but->entryconfigure( "Southern Plains", -menu => $menu );

$menu = $but->menu->Menu( -tearoff => 0 );

$menu->command( -label => "Billings MT",
                -command => sub { $site="BLX"; $sitename="Billings MT" } );
$menu->command( -label => "Boise ID",
                -command => sub { $site="CBX"; $sitename="Boise ID" } );
$menu->command( -label => "Cheyenne WY",
                -command => sub { $site="CYS"; $sitename="Cheyenne WY" } );
$menu->command( -label => "Glasgow MT",
                -command => sub { $site="GGW"; $sitename="Glasgow MT" } );
$menu->command( -label => "Great Falls MT",
                -command => sub { $site="TFX"; $sitename="Great Falls MT" } );
$menu->command( -label => "Medford OR",
                -command => sub { $site="MAX"; $sitename="Medford OR" } );
$menu->command( -label => "Missoula MT",
                -command => sub { $site="MSX"; $sitename="Missoula MT" } );
$menu->command( -label => "Pendleton OR",
                -command => sub { $site="PDT"; $sitename="Pendleton OR" } );
$menu->command( -label => "Pocatello ID",
                -command => sub { $site="SFX"; $sitename="Pocatello ID" } );
$menu->command( -label => "Portland OR",
                -command => sub { $site="RTX"; $sitename="Portland OR" } );
$menu->command( -label => "Riverton WY",
                -command => sub { $site="RIW"; $sitename="Riverton WY" } );
$menu->command( -label => "Seattle WA",
                -command => sub { $site="ATX"; $sitename="Seattle WA" } );
$menu->command( -label => "Spokane WA",
                -command => sub { $site="OTX"; $sitename="Spokane WA" } );

$but->cascade( -label => "Northwest" );
$but->entryconfigure( "Northwest", -menu => $menu );

$menu = $but->menu->Menu( -tearoff => 0 );

$menu->command( -label => "Cedar City UT",
                -command => sub { $site="ICX"; $sitename="Cedar City UT" } );
$menu->command( -label => "Denver CO",
                -command => sub { $site="FTG"; $sitename="Denver CO" } );
$menu->command( -label => "Edwards AFB CA",
                -command => sub { $site="EYX"; $sitename="Edwards AFB CA" } );
$menu->command( -label => "Elko NV",
                -command => sub { $site="LRX"; $sitename="Elko NV" } );
$menu->command( -label => "Eureka CA",
                -command => sub { $site="BHX"; $sitename="Eureka CA" } );
$menu->command( -label => "Flagstaff AZ",
                -command => sub { $site="FSX"; $sitename="Flagstaff AZ" } );
$menu->command( -label => "Grand Junction CO",
                -command => sub { $site="GJX"; $sitename="Grand Junction CO" } );
$menu->command( -label => "Las Vegas NV",
                -command => sub { $site="ESX"; $sitename="Las Vegas NV" } );
$menu->command( -label => "Los Angeles CA",
                -command => sub { $site="VTX"; $sitename="Los Angeles CA" } );
$menu->command( -label => "Marysville CA",
                -command => sub { $site="BBX"; $sitename="Marysville CA" } );
$menu->command( -label => "Phoenix AZ",
                -command => sub { $site="IWA"; $sitename="Phoenix AZ" } );
$menu->command( -label => "Pueblo CO",
                -command => sub { $site="PUX"; $sitename="Pueblo CO" } );
$menu->command( -label => "Reno NV",
                -command => sub { $site="RGX"; $sitename="Reno NV" } );
$menu->command( -label => "Sacramento CA",
                -command => sub { $site="DAX"; $sitename="Sacramento CA" } );
$menu->command( -label => "Salt Lake City UT",
                -command => sub { $site="MTX"; $sitename="Salt Lake City UT" } );
$menu->command( -label => "San Diego CA",
                -command => sub { $site="NKX"; $sitename="San Diego CA" } );
$menu->command( -label => "San Francisco CA",
                -command => sub { $site="MUX"; $sitename="San Francisco CA" } );
$menu->command( -label => "San Joaquin CA",
                -command => sub { $site="HNX"; $sitename="San Joaquin CA" } );
$menu->command( -label => "Santa Ana CA",
                -command => sub { $site="SOX"; $sitename="Santa Ana CA" } );
$menu->command( -label => "Tucson AZ",
                -command => sub { $site="EMX"; $sitename="Tucson AZ" } );
$menu->command( -label => "Vandenberg CA",
                -command => sub { $site="VBX"; $sitename="Vandenberg CA" } );
$menu->command( -label => "Yuma AZ",
                -command => sub { $site="YUX"; $sitename="Yuma AZ" } );

$but->cascade( -label => "Southwest" );
$but->entryconfigure( "Southwest", -menu => $menu );

$menu = $but->menu->Menu( -tearoff => 0 );

$menu->command( -label => "Anchorage AK",
                -command => sub { $site="AHG"; $sitename="Anchorage AK" } );
$menu->command( -label => "Bethel AK",
                -command => sub { $site="ABC"; $sitename="Bethel AK" } );
$menu->command( -label => "Fairbanks AK",
                -command => sub { $site="APD"; $sitename="Fairbanks AK" } );
$menu->command( -label => "King Salmon AK",
                -command => sub { $site="AKC"; $sitename="King Salmon AK" } );
$menu->command( -label => "Middleton Isl AK",
                -command => sub { $site="AIH"; $sitename="Middleton Isl AK" } );
$menu->command( -label => "Nome AK",
                -command => sub { $site="AEG"; $sitename="Nome AK" } );
$menu->command( -label => "Sitka AK",
                -command => sub { $site="ACG"; $sitename="Sitka AK" } );
$menu->command( -label => "Kamuela HI",
                -command => sub { $site="HKM"; $sitename="Kamuela HI" } );
$menu->command( -label => "Molokai HI",
                -command => sub { $site="HMO"; $sitename="Molokai HI" } );
$menu->command( -label => "South Hawaii HI",
                -command => sub { $site="HWA"; $sitename="South Hawaii HI" } );
$menu->command( -label => "South Kauai HI",
                -command => sub { $site="HKI"; $sitename="South Kauai HI" } );

$but->cascade( -label => "Pacific" );
$but->entryconfigure( "Pacific", -menu => $menu );

$frame = $mw->Frame->pack( -side => "top", -fill => "x" );

$menu = $frame->Menubutton( -text => "Type",
                          -relief => "raised",
                          -width => 10 )
                          ->pack( -side => "left" );

$ent = $frame->Entry( -width => 20,
                     -relief => "sunken",
                     -textvariable => \$typename ) 
                     ->pack( -side => "left" );

$menu->command( -label => "Base Ref 1",
                -command => sub { $type="n0r"; $color=1; $typename="Base Ref 1" } );
$menu->command( -label => "Base Ref 2",
                -command => sub { $type="n1r"; $color=1; $typename="Base Ref 2" } );
$menu->command( -label => "Base Ref 3",
                -command => sub { $type="n2r"; $color=1; $typename="Base Ref 3" } );
$menu->command( -label => "Base Ref 4",
                -command => sub { $type="n3r"; $color=1; $typename="Base Ref 4" } );
$menu->command( -label => "Base Ref 1+",
                -command => sub { $type="n0z"; $color=1; $typename="Base Ref 1+" } );
#$menu->command( -label => "Layer Ref 1",
#                -command => sub { $type="prod65; $color=1; $typename="Lref1" } );
#$menu->command( -label => "Layer Ref 2",
#                -command => sub { $type="prod66; $color=1; $typename="Lref2" } );
#$menu->command( -label => "Layer Ref 3",
#                -command => sub { $type="prod90; $color=1; $typename="Lref3" } );
$menu->command( -label => "Comp Ref",
                -command => sub { $type="ncr"; $color=1; $typename="Comp Ref" } );
$menu->command( -label => "Comp Ref/Attr",
                -command => sub { $type="ncr"; $color=1; $typename="Comp Ref/Attr" } );
$menu->command( -label => "Vel 1",
                -command => sub { $type="n0v"; $color=0; $typename="Vel 1" } );
$menu->command( -label => "Vel 2",
                -command => sub { $type="n1v"; $color=0; $typename="Vel 2" } );
$menu->command( -label => "Vel 3",
                -command => sub { $type="n2v"; $color=0; $typename="Vel 3" } );
#$menu->command( -label => "Vel 4",
#                -command => sub { $type="prod27t4; $color=0; $typename="Vel4" } );
$menu->command( -label => "StrmRel Vel 1",
                -command => sub { $type="n0s"; $color=0; $typename="StrmRel Vel 1" } );
$menu->command( -label => "StrmRel Vel 2",
                -command => sub { $type="n1s"; $color=0; $typename="StrmRel Vel 2" } );
$menu->command( -label => "StrmRel Vel 3",
                -command => sub { $type="n2s"; $color=0; $typename="StrmRel Vel 3" } );
$menu->command( -label => "Tops",
                -command => sub { $type="net"; $color=0; $typename="Tops" } );
$menu->command( -label => "VIL",
                -command => sub { $type="nvl"; $color=0; $typename="VIL" } );
$menu->command( -label => "Rain 1",
                -command => sub { $type="n1p"; $color=0; $typename="Rain1" } );
$menu->command( -label => "Rain 3",
                -command => sub { $type="n3p"; $color=0; $typename="Rain3" } );
$menu->command( -label => "Rain Strm",
                -command => sub { $type="ntp"; $color=0; $typename="Rain Strm" } );
$menu->command( -label => "Dig Prec",
                -command => sub { $type="dpa"; $color=0; $typename="Dig Prec" } );
$menu->command( -label => "VAD",
                -command => sub { $type="nvw"; $color=0; $typename="VAD" } );

$opt = $mw->Frame->pack( -side => "top", -fill => "x" );

$opt->Checkbutton( -text => "Loop", -variable => \$loop )
                   ->pack( -side => "left" );
$opt->Checkbutton( -text => "Range", -variable => \$range )
                   ->pack( -side => "left" );
$opt->Checkbutton( -text => "Color", -variable => \$refcolor )
                   ->pack( -side => "left" );
$opt->Checkbutton( -text => "-Map", -variable => \$map )
                   ->pack( -side => "left" );

$bar = $mw->Frame->pack( -side => "top", -fill => "x" );

$bar->Button( -text => "Run", -command => \&Run )
              ->pack( -side => "left" );
$bar->Button( -text => "Quit", -command => sub { exit } )
              ->pack( -side => "left" );

##menubutton .bar.opt -text Option -menu .bar.opt.menu
#button .bar.run -text "Run" -command Run
#pack .bar.run .bar.quit -side left

MainLoop;