[opendemo-cvs] CVS: opendemo/tools/odcut odcutgui.pm,1.38,1.39

[Uwe G. <gi...@us...>]

Update of /cvsroot/opendemo/opendemo/tools/odcut
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18238

Modified Files:
	odcutgui.pm 
Log Message:
use only the filename without path for od_demofile
correct function names of parser module


Index: odcutgui.pm
===================================================================
RCS file: /cvsroot/opendemo/opendemo/tools/odcut/odcutgui.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** odcutgui.pm	22 Oct 2004 20:14:21 -0000	1.38
--- odcutgui.pm	22 Oct 2004 21:18:33 -0000	1.39
***************
*** 562,566 ****
  		my $odgame = $self->{"odgame"};
  		my $stream = $odgame->GetInputStream();
! 		# We should read as long as there are data available and not
  		# only a single line.
  		my $value = <$stream>;
--- 562,567 ----
  		my $odgame = $self->{"odgame"};
  		my $stream = $odgame->GetInputStream();
! 		# TODO
! 		# We must read as long as there are data available and not
  		# only a single line.
  		my $value = <$stream>;
***************
*** 652,656 ****
  	my $stream = $self->{"odgame"}->GetOutputStream();
  
! 	my $demofile = $output->get_outputfile();
  	my $map = $output->get_currentfile()->mapname();
  
--- 653,658 ----
  	my $stream = $self->{"odgame"}->GetOutputStream();
  
! 	# this requires, that the directory is in od.
! 	my $demofile = basename($output->get_outputfile());
  	my $map = $output->get_currentfile()->mapname();
  
***************
*** 814,819 ****
  		if (!$file_found) {
  			my $tab = odcuttab->new($notebook,$file);
! 			$tab->SetToolTip($file->name());
! 			my $shortname = basename($file->name());
  			$notebook->AddPage( $tab, $shortname, 1, -1 );
  		}
--- 816,821 ----
  		if (!$file_found) {
  			my $tab = odcuttab->new($notebook,$file);
! 			$tab->SetToolTip($file->get_name());
! 			my $shortname = basename($file->get_name());
  			$notebook->AddPage( $tab, $shortname, 1, -1 );
  		}
***************
*** 838,842 ****
  		my $tab = $self->{NOTEBOOK}->GetPage($i);
  		my $file = $tab->{"file"};
! 		$self->{CLOSEMENU}->Append( 100+ $i, $file->name(), 'Close ' . $file->name());
  		EVT_MENU($self,100 + $i, sub { OnClose($self, $file) } );
  	}
--- 840,844 ----
  		my $tab = $self->{NOTEBOOK}->GetPage($i);
  		my $file = $tab->{"file"};
! 		$self->{CLOSEMENU}->Append( 100+ $i, $file->get_name(), 'Close ' . $file->get_name());
  		EVT_MENU($self,100 + $i, sub { OnClose($self, $file) } );
  	}
***************
*** 864,868 ****
  	my $current_file = $self->{"output"}->get_currentfile();
  	if ($current_file) {
! 		$text = $current_file->name() . " - " . $text;
  	}
  	$self->SetTitle($text);
--- 866,870 ----
  	my $current_file = $self->{"output"}->get_currentfile();
  	if ($current_file) {
! 		$text = $current_file->get_name() . " - " . $text;
  	}
  	$self->SetTitle($text);
***************
*** 918,922 ****
  
  	$self->{SLIDER} = Wx::Slider->new($self, -1, 0,
! 					0, $file->snapshotc() -1,
  					[-1,-1], [-1,-1],
  					wxSL_LABELS );
--- 920,924 ----
  
  	$self->{SLIDER} = Wx::Slider->new($self, -1, 0,
! 					0, $file->get_snapshotc() -1,
  					[-1,-1], [-1,-1],
  					wxSL_LABELS );
***************
*** 962,966 ****
  	$self->{"odcutmain"} = odcutmain->new($output);
  	foreach my $file ($output->get_files()) {
! 		$self->{"odcutmain"}->Add( $file->name() );
  	}
  	$self->{"odcutmain"}->Show(1);
--- 964,968 ----
  	$self->{"odcutmain"} = odcutmain->new($output);
  	foreach my $file ($output->get_files()) {
! 		$self->{"odcutmain"}->Add( $file->get_name() );
  	}
  	$self->{"odcutmain"}->Show(1);