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);
|
