#!/usr/pkg/bin/perl

use strict;
use warnings;
use diagnostics;

use Tk;
use Tk::DialogBox;
use Tk::Frame;

  { ## OPEN package

    package Tk::GUIask;

    use List::Util qw(first);
    use base qw/Tk::Frame  /;

    Construct Tk::Widget 'GUIask'; ## INSTALL MyNewWidget in pTk namespace

    sub ClassInit  ## Called once to intitalise new class
      {
        my ($class , $mw ) = @_;
	$class ->SUPER::ClassInit($mw);

      }


    sub Populate
      {
        my ($self , $args   ) = @_;
	$self ->SUPER::Populate($args) ;

	require Tk::Entry;

	$self -> SUPER::Populate($args); ## NEEDED?

	my $search = "";

	my $frame = $self -> Frame(
				   -borderwidth => 5,
				   -relief      => 'ridge',

				  ) -> pack();


	my $label = $frame -> Label (
				     -fg => 'blue',
				     -font => 30

				    ) -> pack(-fill => 'x'  );


	my $entry = $frame -> Entry() -> pack(-fill => 'x');

        my $button = $frame -> Button (
                                       -background => 'Red',
				       -text => "Abort",
				       -command => sub {
					                 ($frame -> destroy() ) if Tk::Exists($frame);
					               }

				      ) -> pack (
                                                 -side => 'top',
						 -fill => 'x',
						);
	
        $self -> Advertise ('entry' => $frame );
        $self -> ConfigSpecs (
                              DEFAULT => [$frame],
			      text => [$label]     ## IF ID DONT have the string 'text => [$label]'
			     );                    ## then it will choke on '-text => $header_msg'
	                                           ## WHY?
	
	$self -> Delegates ( DEFAULT => $frame );

	
      } ## CLOSE Populate

      1;

  } ## CLOSE package

#########################################################
#########################################################
##       Invoke the MEGAWIDGET down here to test       ##


my $mw = MainWindow -> new;
   $mw -> geometry('+900+250');
$mw -> title(' ');

my $header_msg ="FOOOOO";
my $input;

my $dialog = $mw ->DialogBox(
                             -title => ' ',
			     -buttons => []

			    );

my $entry = $dialog -> GUIask(
                              # -text => $header_msg,
			      -textvariable => \$input,
			      -label => $header_msg
                              #-label => "FOOOO"
			     )-> pack();

$dialog -> bind( <'KeyPress-Return'> , sub {
                                            print "\$input =: $input\n ";
		                            
		                            # my $text = $entry -> get();
		                            $dialog -> destroy();
                                           }

	       );



MainLoop;