squentin

#!/usr/bin/perl
use warnings;
use strict;
use Glib;
use Glib::Object::Introspection;

Glib::Object::Introspection->setup(basename => 'Gst', version => '1.0', package => 'GStreamer1');
GStreamer1::init_check([ $0, @ARGV ]) or die "Can't initialize gstreamer-1.x\n";
my $reg= GStreamer1::Registry::get();
$reg->lookup_feature('playbin') or die "gstreamer-1.x plugin 'playbin' not found.\n";

squentin

#!/bin/perl
use warnings;
use strict;
use Net::DBus;

my $bus = Net::DBus->session;
my $service = $bus->get_service('org.gmusicbrowser');
my $object = $service->get_object('/org/gmusicbrowser', 'org.gmusicbrowser');

die "Usage : $0 file(with full path) field value\n" unless @ARGV==3;

squentin

# Copyright (C) 2005-2010 Quentin Sculo <squentin@free.fr>
#
# This file is part of Gmusicbrowser.
# Gmusicbrowser is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 3, as
# published by the Free Software Foundation

=gmbplugin DEBUG
name	Debug
title	Debug plugin

squentin

# Copyright (C) 2009 Quentin Sculo <squentin@free.fr>
#
# This file is part of Gmusicbrowser.
# Gmusicbrowser is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 3, as
# published by the Free Software Foundation

=gmbplugin LOG
Log
Logging plugin

squentin

# Copyright (C) 2009 Quentin Sculo <squentin@free.fr>
#
# This file is part of Gmusicbrowser.
# Gmusicbrowser is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 3, as
# published by the Free Software Foundation

=gmbplugin LOG
name	Log
title	Logging plugin

squentin

# Copyright (C) 2010 Quentin Sculo <squentin@free.fr>
#
# This file is part of Gmusicbrowser.
# Gmusicbrowser is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 3, as
# published by the Free Software Foundation

=gmbplugin MPRIS
name	MPRIS v1
title	MPRIS v1 support

squentin

# Copyright (C) 2010      Andrew Clunis <andrew@orospakr.ca>
#                         Daniel Rubin <dan@fracturedproject.net>
#               2005-2009 Quentin Sculo <squentin@free.fr>
#
# This file is part of Gmusicbrowser.
# Gmusicbrowser is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 3, as
# published by the Free Software Foundation

=gmbplugin EPICRATING

squentin

diff --git a/gmusicbrowser.pl b/gmusicbrowser.pl
index 032e597..1df52e3 100755
--- a/gmusicbrowser.pl
+++ b/gmusicbrowser.pl
@@ -757,6 +757,7 @@ our ($RandomMode,$SortFields,$ListMode);
 our ($SongID,$prevID,$Recent,$RecentPos,$Queue); our $QueueAction='';
 our ($Position,$ChangedID,$ChangedPos,@NextSongs,$NextFileToPlay);
 our ($MainWindow,$FullscreenWindow); my $OptionsDialog;
+my @UnmountedFolders;
 my $TrayIcon;

squentin

#!/bin/perl
use warnings;
use strict;
use Net::DBus;

my $bus = Net::DBus->session;
my $service = $bus->get_service('org.gmusicbrowser');
my $object = $service->get_object('/org/gmusicbrowser', 'org.gmusicbrowser');

die "Usage : $0 file(with full path) value\n" unless @ARGV==2;

squentin

diff --git a/gmusicbrowser_layout.pm b/gmusicbrowser_layout.pm
index ee3a576..d0dc82b 100644
--- a/gmusicbrowser_layout.pm
+++ b/gmusicbrowser_layout.pm
@@ -981,7 +981,7 @@ sub CreateWidgets
        {       $widgets->{$_}->signal_connect(scroll_event => \&::ChangeVol)
                        for grep $widgets->{$_}, split /\s+/,$l;
        }
-       $self->signal_connect_after(key_press_event => \&KeyPressed);
+       $self->signal_connect(key_press_event => \&KeyPressed);