#!/usr/bin/perl -w
use strict;
use warnings;
use Glib qw/TRUE FALSE/;
use Gtk2 '-init';
use Gtk2::TrayIcon;
use Net::SFTP::Foreign;
use threads;
use threads::shared;

#my $interface = Gtk2::Window->new('toplevel');
my $interface = Gtk2::Window->new('popup');
$interface->set_position('mouse');
$interface->set_border_width( 5);
	
#Eventbox for capturing the mouse click
my $eventbox_interface = Gtk2::EventBox->new;
	
#table to contain the widgets
my $table_interface = Gtk2::Table->new( 9, 2, FALSE);
	
#Label
my $label_nav_waypoint = Gtk2::Label->new( );
my $label_nav_lat = Gtk2::Label->new( 'Lat');
my $label_nav_long = Gtk2::Label->new( 'Long');
		
#Entries
my $entry_nav_lat = Gtk2::Entry->new;
my $entry_nav_long = Gtk2::Entry->new;
$entry_nav_lat->set_width_chars( 5);
$entry_nav_long->set_width_chars( 5);
		
#Markup for the text labels
$label_nav_waypoint->set_markup( '<b>Waypoint Generation</b>');
		
#pack the widgets into the table
$table_interface->attach_defaults( $label_nav_waypoint, 0, 2, 0, 1);
$table_interface->attach_defaults( $label_nav_lat, 0, 1, 1, 2);
$table_interface->attach_defaults( $entry_nav_lat, 1, 2, 1, 2);
$table_interface->attach_defaults( $label_nav_long, 0, 1, 2, 3);
$table_interface->attach_defaults( $entry_nav_long, 1, 2, 2, 3);

#add the widgets to the window: widgets->table->eventbox->window
$eventbox_interface->add( $table_interface);
$interface->add( $eventbox_interface);
	
$interface->show_all;

$interface->signal_connect( 'button-release-event' => sub { Gtk2->main_quit});
Gtk2->main;