#!/usr/bin/perl
use Tk;
use threads;

my @packetnumber;
my @hostname;
my %pack_status;


my $mw = new MainWindow();
my $mframe = $mw->Frame();
my $textfield_listing = $mframe->ScrlListbox(-scrollbars =>"se");
my $button_log = $mframe->Button(-command=>\&viewLog);

sub viewLog() {
	if ($textfield_listing->curselection()) {
		
		# make a new Thread for the editor-application
		my $editor = threads->create("openLogWEA");
	}
}

sub openLogWEA() {
	
	# get logfile-location
	my @tempvar = $textfield_listing->curselection();
	my $pos = $tempvar[0];
	my $location = "./Logfiles/Log_pack_$packetnumber[$pos].txt";
	
	system("kate $location");
}