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

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

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

Modified Files:
	odcutgui.pm 
Log Message:
API change get_name -> name, get_snapshotc -> snapshotc


Index: odcutgui.pm
===================================================================
RCS file: /cvsroot/opendemo/opendemo/tools/odcut/odcutgui.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** odcutgui.pm	22 Oct 2004 21:18:33 -0000	1.39
--- odcutgui.pm	22 Oct 2004 21:26:53 -0000	1.40
***************
*** 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 );
  		}
--- 816,821 ----
  		if (!$file_found) {
  			my $tab = odcuttab->new($notebook,$file);
! 			$tab->SetToolTip($file->name());
! 			my $shortname = basename($file->name());
  			$notebook->AddPage( $tab, $shortname, 1, -1 );
  		}
***************
*** 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) } );
  	}
--- 840,844 ----
  		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) } );
  	}
***************
*** 866,870 ****
  	my $current_file = $self->{"output"}->get_currentfile();
  	if ($current_file) {
! 		$text = $current_file->get_name() . " - " . $text;
  	}
  	$self->SetTitle($text);
--- 866,870 ----
  	my $current_file = $self->{"output"}->get_currentfile();
  	if ($current_file) {
! 		$text = $current_file->name() . " - " . $text;
  	}
  	$self->SetTitle($text);
***************
*** 920,924 ****
  
  	$self->{SLIDER} = Wx::Slider->new($self, -1, 0,
! 					0, $file->get_snapshotc() -1,
  					[-1,-1], [-1,-1],
  					wxSL_LABELS );
--- 920,924 ----
  
  	$self->{SLIDER} = Wx::Slider->new($self, -1, 0,
! 					0, $file->snapshotc() -1,
  					[-1,-1], [-1,-1],
  					wxSL_LABELS );
***************
*** 964,968 ****
  	$self->{"odcutmain"} = odcutmain->new($output);
  	foreach my $file ($output->get_files()) {
! 		$self->{"odcutmain"}->Add( $file->get_name() );
  	}
  	$self->{"odcutmain"}->Show(1);
--- 964,968 ----
  	$self->{"odcutmain"} = odcutmain->new($output);
  	foreach my $file ($output->get_files()) {
! 		$self->{"odcutmain"}->Add( $file->name() );
  	}
  	$self->{"odcutmain"}->Show(1);