← Back to branch summary

~ubuntu-branches/ubuntu/lucid/gmusicbrowser/lucid

« back to all changes in this revision

Viewing changes to gmusicbrowser_list.pm

  • Committer: Bazaar Package Importer
  • Author(s): James Westby, Arnaud Soyez, James Westby
  • Date: 2008-11-27 00:53:40 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20081127005340-odrpldkb6gjs6zdj
Tags: 1.0.1-0ubuntu1
https://launchpad.net/bugs/302422
https://launchpad.net/bugs/301652
[ Arnaud Soyez ]
* New upstream version. (LP: #302422)

[ James Westby ]
* Drop suggests on flac123 as it has been removed, remove it from the
  description ogg123 in vorbis-tools (already suggested is plays flac)
  (LP: #301652)
* Change gmusicbrowser_123.pm to use ogg123 instead of flac123.

Show diffs side-by-side

added added

removed removed

Lines of Context:
gmusicbrowser_list.pm
1792
1792
    my $group=$self->{group}=$opt1->{group};
1793
1793
    $self->{min}=$opt2->{min}||1;
1794
1794
 
1795
 
    my $spin=Gtk2::SpinButton->new( Gtk2::Adjustment->new($self->{min}, 1, 9999, 1, 10, 1) ,10,0  );
 
1795
    my $spin=Gtk2::SpinButton->new( Gtk2::Adjustment->new($self->{min}, 1, 9999, 1, 10, 0) ,10,0  );
1796
1796
    $spin->signal_connect( value_changed => sub { $self->update($_[0]->get_value); } );
1797
1797
    my $ResetB=::NewIconButton('gtk-clear',undef,sub { ::SetFilter($_[0],undef,$nb,$group); });
1798
1798
    $ResetB->set_sensitive(0);
1937
1937
 
1938
1938
sub update
1939
1939
{  my ($self,$min)=@_;
 
1940
   if ($min) { $self->{min}=$min; }
1940
1941
   if (!$self->{list} || $::ToDo{'9_FPfull'.$self}) { $self->updatefilter; return; }
1941
1942
   warn "Updating FilterPane".$self->{nb}."\n" if $::debug;
1942
 
   if ($min) { $self->{min}=$min; }
1943
1943
   if (!$min || $::ToDo{'9_FP'.$self})
1944
1944
   {    $self->{$_}{hash}=undef for @{ $self->{fieldlist} };
1945
1945
        delete $::ToDo{'9_FP'.$self};
4766
4766
        ::SortList($self->{array},$self->{sort}) if exists $self->{sort};
4767
4767
        $self->BuildTree;
4768
4768
        $self->{vadj}->set_value(0);
 
4769
        $self->FollowSong if $self->{TogFollow};
4769
4770
}
4770
4771
 
4771
4772
sub BuildTree
6210
6211
        $y+=$arg->{y};
6211
6212
        my $clip= Gtk2::Gdk::Rectangle->new($x,$y,$w,$h)->intersect($arg->{clip});
6212
6213
        return unless $clip;
 
6214
        $layout->set_width($w * Gtk2::Pango->scale); $layout->set_ellipsize('end'); #ellipsize
6213
6215
        $arg->{style}->paint_layout($arg->{window},$arg->{state},1,$clip,$arg->{widget}{stylewidget},'cellrenderertext',$x,$y,$layout);
6214
6216
#       my $gc=$arg->{style}->text_gc($arg->{state});
6215
6217
#       $gc->set_clip_rectangle($clip);
6646
6648
 }
6647
6649
);
6648
6650
 
6649
 
my %PCompl=( '{','}',  '(',')',  '[',']' , '"', =>0, '"'=>0,  );
 
6651
my %PCompl=( '{','}',  '(',')',  '[',']' , '"', =>0, "'"=>0,  );
6650
6652
 
6651
6653
sub split_options #doesn't work the same as ParseOptions : count parens and don't remove quotes #FIXME find a way to merge them ?
6652
6654
{       (local $_,my $prefix)=@_;