Skip to content

/ gmusicbrowser

Permalink
Browse files

Redesign of widget options handling, of ExtraWidget,TabbedLists and C… 

…ontext widgets

Lots of modifications, among them :

-Wipe all previously saved layout/widget options (like window size,
displayed columns, ...)

-Change layout 'Default' line format, so that saved options can contain
spaces, also all these default options may now be specified with the
normal widget options.

-TabbedList and Context widgets are now implemented by the same code,
that also implement a new NB (NoteBook) container that supercede the TB
container.
For the NB container, the title of the tab and optional icon must be
passed as options 'tabtitle' and 'tabicon' of the children :

NBexample = Artist(tabtitle="artist name",tabicon=gtk-image) VBchild
VBchild = (tabtitle="a container") _SongList AABox

-Some changes to the lyrics and webcontext plugin to update them to the
new system

-It is now possible to embed layouts inside other layout by simply
adding "@name_of_embeded_layout" to a container (not all characters are
supported in embeded layouts names)
example :

[example_layout]
HBmain = Play Stop Pref
VBmain = HBmain Title _@embedded_example

[embedded_example]
VBmain = Title _SongTree
  • Loading branch information
@squentin
squentin committed Aug 23, 2009
1 parent ce23578 commit af17bc1778bb816bb2aae7562fd79a2d15ad893e
Unified Split
Showing with 1,393 additions and 1,103 deletions.
  1. +23 −36 gmusicbrowser.pl
  2. +949 −491 gmusicbrowser_layout.pm
  3. +242 −452 gmusicbrowser_list.pm
  4. +2 −2 gmusicbrowser_songs.pm
  5. +42 −46 layouts
  6. +45 −22 plugins/lyrics.pm
  7. +10 −7 plugins/rip.pm
  8. +80 −47 plugins/webcontext.pm
59 gmusicbrowser.pl
View file
@@ -60,8 +60,8 @@ BEGIN
{
TRUE => 1,
FALSE => 0,
VERSION => '1.10011',
VERSIONSTRING => '1.1.1.1',
VERSION => '1.10012',
VERSIONSTRING => '1.1.1.2',
PIXPATH => $DATADIR.SLASH.'pix'.SLASH,
PROGRAM_NAME => 'gmusicbrowser',
# PERL510 => $^V ge 'v5.10',
@@ -619,7 +619,7 @@ sub ConvertSize

our $LEvent;
our (%ToDo,%TimeOut);
my %EventWatchers;#for Save Vol Time Queue Lock Repeat Sort Filter Pos SongID Playing SavedWRandoms SavedSorts SavedFilters SavedLists Icons ExtraWidgets Context connections
my %EventWatchers;#for Save Vol Time Queue Lock Repeat Sort Filter Pos SongID Playing SavedWRandoms SavedSorts SavedFilters SavedLists Icons Widgets connections
# also used for SearchText_ SelectedID_ followed by group id
# Picture_#mainfield#

@@ -1009,7 +1009,6 @@ sub forksystem
ReadSavedTags();

%CustomBoundKeys= %{ make_keybindingshash($Options{CustomKeyBindings}) };
AddFullscreenButton() if $Options{AddFullscreenButton}; #should be made more generic

$Options{version}=VERSION;
LoadIcons();
@@ -1395,11 +1394,9 @@ sub ReadOldSavedTags
delete $Options{$_} for qw/Device 123options_mp3 123options_ogg 123options_flac test/; #cleanup old options
delete $Options{$_} for qw/SavedSongID SavedPlayTime Lock SavedSort/; #don't bother supporting upgrade for these
$Options{CustomKeyBindings}= { ExtractNameAndOptions($Options{CustomKeyBindings}) };
if ($oldversion<0.9540)
{ $Options{Layout}='default player layout' if $Options{Layout} eq 'default';
$Options{'Layout_default player layout'}=delete $Options{Layout_default};
}
delete $Options{$_} for grep m/^PLUGIN_MozEmbed/,keys %Options; #for versions <=1.0
delete $Options{$_} for grep m/^PLUGIN_WebContext_Disable/,keys %Options;
delete $Options{$_} for grep m/^Layout(?:LastSeen)?_/, keys %Options;
delete $Options{RecentFilters}; #don't bother upgrading them
$Options{FilenameSchema}= [split /\x1D/,$Options{FilenameSchema}];
$Options{FolderSchema}= [split /\x1D/,$Options{FolderSchema}];
@@ -1534,7 +1531,6 @@ sub ReadSavedTags #load tags _and_ settings
else
{ my %lines;
my $section;
no warnings 'utf8'; # to prevent 'utf8 "\xE9" does not map to Unicode' type warnings about path and file which are stored as they are on the filesystem #FIXME find a better way to read lines containing both utf8 and unknown encoding
while (<$fh>)
{ if (m/^\[([^]]+)\]/) {$section=$1; next}
next unless $section;
@@ -1549,6 +1545,7 @@ sub ReadSavedTags #load tags _and_ settings
$Options{ArtistSplit}||=' & |, |;';
$re_artist=qr/$Options{ArtistSplit}/;
$Options{Labels}=[ split "\x1D",$Options{Labels} ] unless ref $Options{Labels}; #for version <1.1.2 #DELME in v1.1.3/4
if ($oldversion<1.1003) { delete $Options{$_} for grep m/^Layout(?:LastSeen)?_/, keys %Options } #for version <1.1.2 #DELME in v1.1.3/4

Post_Options_init();

@@ -1628,12 +1625,11 @@ sub SaveTags #save tags _and_ settings
$tooold=pop @sessions if @sessions>20;
$Options{Sessions}=join ' ',@sessions;
}
for my $key (grep m/^Layout_/, keys %Options) #cleanup options for layout that haven't been seen for a while
{ $key=~s/^Layout_//;
my $key2='LayoutLastSeen_'.$key;
if (exists $Layout::Layouts{$key}) { delete $Options{$key2}; }
elsif (!$Options{$key2}) { $Options{$key2}=$DAYNB; }
elsif ($Options{$key2}<$tooold) { delete $Options{$_} for $key,$key2; }
for my $key (keys %{$Options{Layouts}}) #cleanup options for layout that haven't been seen for a while
{ my $lastseen=$Options{LayoutsLastSeen}||={};
if (exists $Layout::Layouts{$key}) { delete $lastseen->{$key}; }
elsif (!$lastseen->{$key}) { $lastseen->{$key}=$DAYNB; }
elsif ($lastseen->{$key}<$tooold) { delete $_->{$key} for $Options{Layout},$lastseen; }
}

my $error;
@@ -2576,9 +2572,8 @@ sub WEditList
{ my $name=$_[0];
my ($window)=grep exists $_->{editing_listname} && $_->{editing_listname} eq $name, Gtk2::Window->list_toplevels;
if ($window) { $window->present; return; }
SaveList($name,[]) unless $Options{SavedLists}{$name}; #create new list if doesn't exists
$SongList::Common::EditList=$Options{SavedLists}{$name}; #list that will be used by SongList/SongTree in 'editlist' mode
$window=Layout::Window->new('EditList',undef,'UseDefaultState,KeepSize');
$SongList::Common::EditList=$name; #list that will be used by SongList/SongTree in 'editlist' mode
$window=Layout::Window->new('EditList',UseDefaultState=>1,KeepSize=>1);
$SongList::Common::EditList=undef;
$window->{editing_listname}=$name;
Watch($window, SavedLists => sub #close window if the list is deleted, update title if renamed
@@ -3218,13 +3213,10 @@ sub pixbox_button_press_cb # zoom picture when clicked

sub PopupContextMenu #FIXME rename to BuildContextMenu or BuildMenu
{ my ($mref,$args,$appendtomenu)=@_;
my $menu_callback=sub
{ my $sub=$_[1];
$sub->( $args );
};
my $menu= $appendtomenu || Gtk2::Menu->new;
for my $m (@$mref)
{ next if $m->{ignore};
next if $m->{type} && index($args->{type}, $m->{type})==-1;
next if $m->{mode} && index($m->{mode}, $args->{mode})==-1;
next if $m->{notmode} && index($m->{notmode}, $args->{mode})!=-1;
next if $m->{isdefined} && !defined $args->{ $m->{isdefined} };
@@ -3237,8 +3229,10 @@ sub PopupContextMenu #FIXME rename to BuildContextMenu or BuildMenu
next if $m->{onlymany} && ( !$args->{ $m->{onlymany} } || @{ $args->{ $m->{onlymany}} }<2 );
next if $m->{test} && !$m->{test}($args);

if (my $mod=$m->{change_input}) { $args={ %$args, @$mod };next } #modify $args for next menu entries

my $label=$m->{label};
$label=&$label($args) if ref $label;
$label=$label->($args) if ref $label;
my $item;
if ($m->{separator})
{ $item=Gtk2::SeparatorMenuItem->new;
@@ -3320,7 +3314,7 @@ sub PopupContextMenu #FIXME rename to BuildContextMenu or BuildMenu
$item->set_submenu($submenu);
}
else
{ $item->signal_connect (activate => $menu_callback, $m->{code} );
{ $item->signal_connect (activate => sub { $m->{code}->($args); });
}
$menu->append($item);
}
@@ -5187,7 +5181,7 @@ sub PrefLayouts
my $layoutS=NewPrefCombo(LayoutS=> Layout::get_layout_list('S'), text =>_"Search window layout :", sizeg1=>$sg1,sizeg2=>$sg2, tree=>1);

#fullscreen button
my $fullbutton=NewPrefCheckButton(AddFullscreenButton => _"Add a fullscreen button",\&AddFullscreenButton,_"Add a fullscreen button to layouts that can accept extra buttons");
my $fullbutton=NewPrefCheckButton(AddFullscreenButton => _"Add a fullscreen button", sub { Layout::WidgetChangedAutoAdd('Fullscreen'); },_"Add a fullscreen button to layouts that can accept extra buttons");


my $icotheme=NewPrefCombo(IconTheme=> GetIconThemesList(), text =>_"Icon theme :", sizeg1=>$sg1,sizeg2=>$sg2, cb => \&LoadIcons);
@@ -5197,11 +5191,6 @@ sub PrefLayouts
return $vbox;
}

sub AddFullscreenButton #FIXME put this sub somewhere else
{ if ($Options{AddFullscreenButton}) {ExtraWidgets::AddWidget('fullscreen_button','button',sub{$_[0]->NewObject('Fullscreen')});}
else { ExtraWidgets::RemoveWidget('fullscreen_button'); }
}

sub set_layout
{ my $old=$MainWindow;
$old->SaveOptions;
@@ -5966,7 +5955,7 @@ sub Progress
sub PresentWindow
{ my $win=$_[1];
$win->present;
$win->set_skip_taskbar_hint(FALSE);
$win->set_skip_taskbar_hint(FALSE) unless $win->{skip_taskbar_hint};
}

sub PopupLayout
@@ -6099,11 +6088,9 @@ sub ShowHide
#warn "hiding\n";
for my $win ($MainWindow,$BrowserWindow,$ContextWindow)
{ next unless $win;
my ($x,$y)=$win->get_position;
#warn "hiding($x,$y)\n";
$win->{saved_position}=[$x,$y];
$win->{saved_position}=join 'x',$win->get_position;
$win->iconify;
$win->{skip_taskbar_hint}=1 if $win->get_skip_taskbar_hint;
$win->{skip_taskbar_hint}=$win->get_skip_taskbar_hint;
$win->set_skip_taskbar_hint(TRUE);
$win->hide;
}
@@ -6116,7 +6103,7 @@ sub ShowHide
my $scrh=$screen->get_height;
for my $win ($ContextWindow,$BrowserWindow,$MainWindow)
{ next unless $win;
my ($x,$y)= $win->{saved_position} ? @{delete $win->{saved_position}} : $win->get_position;
my ($x,$y)= $win->{saved_position} ? split('x', delete $win->{saved_position}) : $win->get_position;
my ($w,$h)= $win->get_size;
#warn "move($x,$y)\n";
if ($x+$w<0 || $y+$h<0 || $x>$scrw || $y>$scrh)

0 comments on commit af17bc1

Please sign in to comment.
You can’t perform that action at this time.