my $GuiThread  = threads->create("startSystray");

sub startSystray {

	$mw_win32 = new Win32::GUI::Window(
	-width   => 0,
	-height  => 0,
	-name    => 'MainWindow');

	$systray_menu = new Win32::GUI::Menu(
	       "SystrayMenu Functions" => "SystrayMenu",
	       "> Info"      => "SystrayInfo",
	       "> Exit"      => "SystrayExit"
	);

	new Win32::GUI::NotifyIcon($mw_win32,
	-name => "SysTray",
	-id => 1,
	-icon => $icon);

	my $call = Win32::GUI::Dialog();


}


sub SystrayInfo_Click {

#	my $A = new Win32::GUI::AcceleratorTable(
#        #"Ctrl-X"       => "Close",
#        "Shift-N"      => "New",
#        #"Ctrl-Alt-Del" => "Reboot",
#        "Shift-A"      => sub { print "Hello\n"; },
#    );
	$infoWindow  = new Win32::GUI::Window (
									$mw_win32,
									-width => 400,
									-height => 200,
							        -left   => 300,
							        -top    => 400,
									-name => "infoWindow",
#									-accel => \$A
									);

	my $text = join "\n", @actionHistory;

	$richEdit = new Win32::GUI::RichEdit (
									...
									);
}