Nabble - Gtk+ - Perl

Updated Gtk2-Perl docs available

2009-12-18T23:17:57Z

Hi,

I'd like to announce that updated Gtk2-Perl documentation is now
available for viewing and downloading at
http://gtk2-perl.sourceforge.net/doc/.

Note that there are now two different sets of documentation posted, a
set generated with Marek::Pod::HTML (what's been posted on the website
previously, but with some minor stylesheet tweaks) and another set
created with Pod::ProjectDocs. However, the downloadable version of
Marek::Pod::HTML doesn't include the tweaked stylesheet, you'll have
to download that from the website and correctly munge your filesystem
paths if you want it :)

Going forward, the plan is to keep the Marek::Pod::HTML-style
documentation as the "official" documentation, and then move towards
making all of the documentation available via the CPAN website instead
of on the Gtk2-Perl website.

Please let me know if you have any questions about the above.

Thanks,

Brian
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Remove Multiple Rows from Gtk2::ListStore

2009-12-18T18:25:40Z

> Not sure if it is the "right" way to do it but it works for me.

Actually doesn't work unless I disconnect the model from the tree view before and after the removal.

So now I'm using the following:

my $model = $tv_sources->get_model;
my $selection = $tv_sources->get_selection;
my @paths = $selection->get_selected_rows;

# Disconnect tree view from data model.
$tv_sources->set_model(undef);

# Convert paths to row references
my @rowrefs;
foreach my $p (@paths)
{
my $treerowreference = Gtk2::TreeRowReference->new ($model, $p);
push (@rowrefs, $treerowreference);
}

# Remove rows based on row references
for (my $i = 0; $i < scalar(@paths); $i++)
{
my $treerowreference = Gtk2::TreeRowReference->new ($model, $paths[$i]);
my $path = $rowrefs[$i]->get_path;
my ($iter) = $model->get_iter($path);
$model->remove($iter);
}

$tv_sources->set_model($model);

Prior to this removing 2 of the 3 rows in the treeview was working. Adding 4 rows and then trying to remove each alternate row was producing strange results until adding the set_model(undef/$model) lines.

Again possibly not the best way to do it but *now* it seems to work correctly.

__________________________________________________________________________________
See what's on at the movies in your area. Find out now: http://au.movies.yahoo.com/session-times/

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Remove Multiple Rows from Gtk2::ListStore

2009-12-18T18:04:23Z

> That likely happens because by removing rows you made one of the later paths
> refer to non-existant rows so that $model->get_iter($path) returns undef. One
> quick hack that might make this work is to iterate over the @paths in reverse
> order. But to be safe you should follow the doc's advice[1] of converting the
> paths to Gtk2::TreeRowReferences (which listen to changes in the model and adapt
> accordingly).

Thank you for pointing me towards this. I am using the following code:

my $model = $tv_sources->get_model;
my $selection = $tv_sources->get_selection;
my @paths = $selection->get_selected_rows;

# Convert paths to row references
my @rowrefs;
foreach my $p (@paths)
{
my $treerowreference = Gtk2::TreeRowReference->new ($model, $p);
push (@rowrefs, $treerowreference);
}

# Remove rows based on row references
for (my $i = 0; $i < scalar(@paths); $i++)
{
my $treerowreference = Gtk2::TreeRowReference->new ($model, $paths[$i]);
my $path = $rowrefs[$i]->get_path;
my ($iter) = $model->get_iter($path);
$model->remove($iter);
}

Not sure if it is the "right" way to do it but it works for me.

Was just wondering whether I need to do something like:

$tv_sources->set_model($model);

after the removals are finished Or is this unnecessary because row references are being used?

Thanks again for all the help.

__________________________________________________________________________________
See what's on at the movies in your area. Find out now: http://au.movies.yahoo.com/session-times/

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: GStreamer position querying

2009-12-17T14:49:44Z

Chris Bartak <chrisbartak@...> writes:
>
> Glib::Timeout ... and forgot to return TRUE

Try the new you-beaut Glib::SOURCE_CONTINUE and Glib::SOURCE_REMOVE
to help get true or false the right way round :-).
(When ready to depend on Glib 1.220 and up.)
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: GStreamer position querying

2009-12-17T14:22:14Z

That's exactly what happened. I didn't realize my last expression in the subroutine (after commenting stuff out while troubleshooting) was being evaluated as a non-zero value. It makes perfect sense now.

Thanks again for your help.

On Thu, Dec 17, 2009 at 3:36 PM, Torsten Schoenfeld <kaffeetisch@...> wrote:

On 17.12.2009 22:28, Chris Bartak wrote:

I was using a Glib::Timeout (in a Gtk main loop) to call the subroutine that
was doing the querying, and forgot to return TRUE. I didn't catch it because
the Timeout wasn't removed after the first iteration failed to return TRUE,
which is supposed to be the behavior of Timeout. I'm still puzzled why the
Timeout didn't get removed.

When there's no explicit return statement, a sub routine returns the value of the last expression evaluated. Maybe that happened in your case?

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: GStreamer position querying

2009-12-17T13:36:16Z

On 17.12.2009 22:28, Chris Bartak wrote:
> I was using a Glib::Timeout (in a Gtk main loop) to call the subroutine that
> was doing the querying, and forgot to return TRUE. I didn't catch it because
> the Timeout wasn't removed after the first iteration failed to return TRUE,
> which is supposed to be the behavior of Timeout. I'm still puzzled why the
> Timeout didn't get removed.

When there's no explicit return statement, a sub routine returns the
value of the last expression evaluated. Maybe that happened in your case?
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Remove Multiple Rows from Gtk2::ListStore

2009-12-17T13:31:12Z

Zettai Muri <zettaimuri@...> writes:
>
> Gtk-WARNING **: The model has been modified from within gtk_tree_selection_selected_foreach.

You know that's pretty slack really. I suppose doing better would be
difficult.

Torsten Schoenfeld <kaffeetisch@...> writes:
>
> Gtk2::TreeRowReferences

On further thought I like that better than what I did. Mine can go into
an infinite loop in degenerate circumstances. I think I'll change to
rowrefs.
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: GStreamer position querying

2009-12-17T13:28:19Z

Torsten,

Thanks for your quick help. Sorry for not checking the tarball for examples. It hadn't occured to me. I'll look there first next time.

I tried the example, and it worked. This prompted me to refactor my code a bit, and in doing so, found an error which, when fixed, seemed to fix the problem.

I was using a Glib::Timeout (in a Gtk main loop) to call the subroutine that was doing the querying, and forgot to return TRUE. I didn't catch it because the Timeout wasn't removed after the first iteration failed to return TRUE, which is supposed to be the behavior of Timeout. I'm still puzzled why the Timeout didn't get removed.

Thanks for your help, and for your work on the bindings.

Chris

On Thu, Dec 17, 2009 at 2:12 PM, Torsten Schoenfeld <kaffeetisch@...> wrote:

On 17.12.2009 20:52, Chris Bartak wrote:

I'm trying to write a specialized audio player using Gtk2-perl and
GStreamer, and have run into a problem querying the position of the stream.
I've tried using a playbin, and when I couldn't query that, I tried setting
up the elements and pipeline manually. While both methods play audio fine,
neither one will allow me to query for position. Here's the playbin version
of my code:

if ($playbin->query($query_time)){
my ($time_format,$time) = $query_time->position;
print "$time\n";
}

In the GStreamer tarball, there's examples/manual/query.pl that does exactly this, and it works for me. Does it work for you?

My Gtk version is 2.18.3 as provided by Gtk2->get_version_info (which Ubuntu
calls 1:1.221-4), Perl is 5.10.0.

Gtk2 is not really relevant for this, but anyway: Gtk2->get_version_info returns the version number of the gtk+ C library that the Perl module Gtk2 is linked against. That Ubuntu version 1:1.221-4 is the version of the Perl module Gtk2.
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: GStreamer position querying

2009-12-17T12:12:17Z

On 17.12.2009 20:52, Chris Bartak wrote:

> I'm trying to write a specialized audio player using Gtk2-perl and
> GStreamer, and have run into a problem querying the position of the stream.
> I've tried using a playbin, and when I couldn't query that, I tried setting
> up the elements and pipeline manually. While both methods play audio fine,
> neither one will allow me to query for position. Here's the playbin version
> of my code:
>
> if ($playbin->query($query_time)){
> my ($time_format,$time) = $query_time->position;
> print "$time\n";
> }

In the GStreamer tarball, there's examples/manual/query.pl that does
exactly this, and it works for me. Does it work for you?

> My Gtk version is 2.18.3 as provided by Gtk2->get_version_info (which Ubuntu
> calls 1:1.221-4), Perl is 5.10.0.

Gtk2 is not really relevant for this, but anyway: Gtk2->get_version_info
returns the version number of the gtk+ C library that the Perl module
Gtk2 is linked against. That Ubuntu version 1:1.221-4 is the version of
the Perl module Gtk2.
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

GStreamer position querying

2009-12-17T11:52:50Z

Hi,

I'm trying to write a specialized audio player using Gtk2-perl and GStreamer, and have run into a problem querying the position of the stream. I've tried using a playbin, and when I couldn't query that, I tried setting up the elements and pipeline manually. While both methods play audio fine, neither one will allow me to query for position. Here's the playbin version of my code:

if ($playbin->query($query_time)){
my ($time_format,$time) = $query_time->position;
print "$time\n";
}

It turns out querying the playbin is returning FALSE. Can anyone tell me if querying of elements is broken, or am I misunderstanding how to execute a query for position?

My Gtk version is 2.18.3 as provided by Gtk2->get_version_info (which Ubuntu calls 1:1.221-4), Perl is 5.10.0.

Thanks.

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Remove Multiple Rows from Gtk2::ListStore

2009-12-16T12:49:28Z

Torsten Schoenfeld <kaffeetisch@...> writes:
>
> converting the paths to Gtk2::TreeRowReferences

I think GtkTreeSelection may have roughly that internally. Another
possibility would be that ListStore is "iters persist", so convert paths
to iters and the iters stay good.

In my Gtk2::Ex::TreeViewBits I made the few lines below, deleting the
first of get_selected_rows() repeatedly. It probably ends up O(N^2),
but should be safe against anyone mucking about with the selection or
the rows from within the various delete signals.

I can't remember why I return $removed_path. Must have seemed like a
good idea for something -- but then I didn't document it. :-) Maybe
it's to say if anything was in fact removed ...

sub remove_selected_rows {
my ($treeview) = @_;
my $model = $treeview->get_model;
my $selection = $treeview->get_selection;
my $removed_path;
while (my ($path) = $selection->get_selected_rows) {
my $iter = $model->get_iter ($path)
|| do {
carp 'Oops, selected row path "',$path->to_string,'" has no iter';
return;
};
$model->remove ($iter);
$removed_path = $path;
}
return $removed_path;
}
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Remove Multiple Rows from Gtk2::ListStore

2009-12-16T11:44:54Z

On 16.12.2009 20:24, Zettai Muri wrote:

> So then I tried:
>
> my @paths = $selection->get_selected_rows;
> foreach my $p (@paths)
> {
> my $iter = $model->get_iter($p);
> $model->remove($iter);
> }
>
> But when I select multiple rows and try to remove them it gives this error:
> *** unhandled exception in callback:
> *** variable not allowed to be undef where GtkTreeIter is wanted at line 654.

That likely happens because by removing rows you made one of the later
paths refer to non-existant rows so that $model->get_iter($path) returns
undef. One quick hack that might make this work is to iterate over the
@paths in reverse order. But to be safe you should follow the doc's
advice[1] of converting the paths to Gtk2::TreeRowReferences (which
listen to changes in the model and adapt accordingly).

[1]
<http://library.gnome.org/devel/gtk/stable/GtkTreeSelection.html#gtk-tree-selection-get-selected-rows>
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Remove Multiple Rows from Gtk2::ListStore

2009-12-16T11:38:09Z

Hello.

> Could someone show me the best way to remove multiple rows?

GtkTreeView tutorial offers nice explanation of pitfalls when it comes
to removing multiple rows from store. It's code samples are written in
C, but I'm sure you'll be able to understand the principles:
http://scentric.net/tutorial/sec-treemodel-remove-many-rows.html

Tadej

--
Tadej Borovšak
tadeboro.blogspot.com
tadeboro@...
tadej.borovsak@...
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Remove Multiple Rows from Gtk2::ListStore

2009-12-16T11:24:36Z

Hi All,

I am having some trouble removing multiple rows. I have a button called Remove that when clicked I want to be able to remove any selected rows.

At first I tried this:

$selection->selected_foreach(sub {

my ($model,$path,$iter) = @_;

$model->remove($iter);
});

But this gives the following warning:
Gtk-WARNING **: The model has been modified from within gtk_tree_selection_selected_foreach.
This function is for observing the selections of the tree only. If you are trying to get all selected items from the tree, try using
gtk_tree_selection_get_selected_rows instead.

So then I tried:

my @paths = $selection->get_selected_rows;
foreach my $p (@paths)
{
my $iter = $model->get_iter($p);
$model->remove($iter);
}

But when I select multiple rows and try to remove them it gives this error:
*** unhandled exception in callback:
*** variable not allowed to be undef where GtkTreeIter is wanted at line 654.

Line 654: $model->remove($iter);

Could someone show me the best way to remove multiple rows?

Many thanks,

ZM.

__________________________________________________________________________________
See what's on at the movies in your area. Find out now: http://au.movies.yahoo.com/session-times/

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: GStreamer on windows

2009-12-13T00:16:59Z

On Sat, Dec 12, 2009 at 11:57 PM, Jeffrey Ray <jeffrey@...> wrote:
> Right - that was my first step after getting that error message. There is no
> gstreamer-*.pc file anywhere in that directory or below. From what I
> understand because package-config wasn't used - as it is a linux utility.

pkg-config is a Gtk/Gnome utility, not a Linux utility. If you're
using Gtk/Gnome on *ANY* platform, you will be dealing with
pkg-config. A *.pc file is a plaintext file that helps set up the
compiling machine's environment so that you can compile and link
against the libraries for Gtk/Gnome (and friends).

> I also i tried adding the bin and lib sub directories of c:/gstreamer, where
> the dll's exist to that PKG_CONFIG_PATH variable to no avail.

*.dll files != *.pc files. PKG_CONFIG_PATH is only used to point to a
directory containing *.pc files.

You need to find the gstreamer-0.10.pc file. There's a -dev package
on the website you linked earlier, have you installed it yet? Your
.pc file is probably in there.

Thanks,

Brian
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: GStreamer on windows

2009-12-12T23:57:14Z

Brian Manning wrote:

> On Sat, Dec 12, 2009 at 11:23 PM, Jeffrey Ray <jeffrey@...> wrote:
>
>> Has anybody installed the gstreamer perl bindings on a windows system ? I
>> get this error (running camelbox on vista):
>>
>> Package gstreamer-0.10 was not found in the pkg-config search path.
>> Perhaps you should add the directory containing `gstreamer-0.10.pc'
>> to the PKG_CONFIG_PATH environment variable
>>
>
> ExtUtils::PkgConfig is looking for the file 'gstreamer-0.10.pc' and
> can't find it.
>
>
>> I have GStreamer binaries installed from here
>> http://www.gstreamer-winbuild.ylatuya.es/doku.php?id=start
>>
>
> Where does this package install the file gstreamer-0.10.pc'? You need
> to set PKG_CONFIG_PATH in your environment to point to this directory,
> then run 'perl Makefile.PL' over again. It should then get past this
> error message and hopefully create a Makefile for you to build with.
>
> Thanks,
>
> Brian
>

Right - that was my first step after getting that error message. There
is no gstreamer-*.pc file anywhere in that directory or below. From what
I understand because package-config wasn't used - as it is a linux utility.

I also i tried adding the bin and lib sub directories of c:/gstreamer,
where the dll's exist to that PKG_CONFIG_PATH variable to no avail.
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: GStreamer on windows

2009-12-12T23:34:09Z

On Sat, Dec 12, 2009 at 11:23 PM, Jeffrey Ray <jeffrey@...> wrote:
> Has anybody installed the gstreamer perl bindings on a windows system ? I
> get this error (running camelbox on vista):
>
> Package gstreamer-0.10 was not found in the pkg-config search path.
> Perhaps you should add the directory containing `gstreamer-0.10.pc'
> to the PKG_CONFIG_PATH environment variable

ExtUtils::PkgConfig is looking for the file 'gstreamer-0.10.pc' and
can't find it.

> I have GStreamer binaries installed from here
> http://www.gstreamer-winbuild.ylatuya.es/doku.php?id=start

Where does this package install the file gstreamer-0.10.pc'? You need
to set PKG_CONFIG_PATH in your environment to point to this directory,
then run 'perl Makefile.PL' over again. It should then get past this
error message and hopefully create a Makefile for you to build with.

Thanks,

Brian
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

GStreamer on windows

2009-12-12T23:23:35Z

Has anybody installed the gstreamer perl bindings on a windows system ?
I get this error (running camelbox on vista):

Package gstreamer-0.10 was not found in the pkg-config search
path.
Perhaps you should add the directory containing
`gstreamer-0.10.pc'
to the PKG_CONFIG_PATH environment
variable
No package 'gstreamer-0.10'
found
at Makefile.PL line
41
*** can not find package gstreamer-0.10 >=
0.10.0
*** check that it is properly installed and available in
PKG_CONFIG_PATH
at Makefile.PL line
41

There are very few references on google to gstreamer/perl - and the ones
that do exist often exist just to say that they aren't many references.

I have GStreamer binaries installed from here
http://www.gstreamer-winbuild.ylatuya.es/doku.php?id=start

I remember a similar error I believe when starting down the road to
getting gtk on my system, which ended with me being happy with camelbox.

Does anyone have this working/can give me tops on where to start?

Thank you much.

-Jeff
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

gperl_try_convert_enum() from perl

2009-12-12T14:54:14Z

I wanted to check if GdkCursorType has the 'blank-cursor' value
available, new in 2.16 or some such. Is there a perl-level interface to
gperl_try_convert_enum()?

I got the effect I wanted just by using blank-cursor with an eval to
catch when unavailable, but I thought it might be cleaner to enquire
what's available. I know I can do Gtk2::Gdk::CursorType->list_values
and grep (and in fact I did that for some .t test code), but wondered
"why can't someone else do it" :-), when gperl_try_convert_enum is there
ready.

Did I ask this before a long time ago? Or was it about flags instead of
enums, or something.
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Execute associated image viewer or media player on button click

2009-12-09T01:00:37Z

>xdg-open is by far the easiest way to open a file no matter which
>desktop the user is running. In old linuxes that command wasn't
>available but today it seems to be available. This is also why I posted
>the alternative gnome-open which is always available but is desktop
>specific.
>>
>xdg-open is a shell script so you an peek and see how they do to detect which desktop is running. But why going through all the hassle when xdg-open does everything? :)

Thanks for taking the time to answer the extra questions. Looks like xdg-open is the way to go.

__________________________________________________________________________________
Win 1 of 4 Sony home entertainment packs thanks to Yahoo!7.
Enter now: http://au.docs.yahoo.com/homepageset/

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Execute associated image viewer or media player on button click

2009-12-08T23:04:07Z

On Tue, Dec 8, 2009 at 10:04 PM, Zettai Muri <zettaimuri@...> wrote:

And thanks for the linux information.

Is xdg-open file the best way to go rather than checking whether or not the user is using KDE/Gnome?

xdg-open is by far the easiest way to open a file no matter which desktop the user is running. In old linuxes that command wasn't available but today it seems to be available. This is also why I posted the alternative gnome-open which is always available but is desktop specific.

Just out of interest is there a way to confirm which desktop they are using? Some clever variable like the $^O one for checking the OS?

xdg-open is a shell script so you an peek and see how they do to detect which desktop is running. But why going through all the hassle when xdg-open does everything? :)

--
Emmanuel Rodriguez

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Execute associated image viewer or media player on button click

2009-12-08T13:04:20Z

>On Tue, Dec 8, 2009 at 3:38 PM, Dov Grobgeld <dov.grobgeld@...> wrote:
>
>You don't say under what system you need this.

My apologies, potentially I would like it to work on both windows and linux.

>>
>>On windows you would simply do:
>>
>> system("foo.png")
>>
>>and you would call the viewer associated with .png files.
>>
>>(This works for url's as well as just running it through system, runs the prefered user browser).
>>

Thanks for this.

>>On Linux there is no such system default, but the specifics depend on your desktop.
>>
>In linux you can do:
> xdg-open file
>or
>gnome-open file
>

And thanks for the linux information.

Is xdg-open file the best way to go rather than checking whether or not the user is using KDE/Gnome? Just out of interest is there a way to confirm which desktop they are using? Some clever variable like the $^O one for checking the OS?

__________________________________________________________________________________
Win 1 of 4 Sony home entertainment packs thanks to Yahoo!7.
Enter now: http://au.docs.yahoo.com/homepageset/

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Execute associated image viewer or media player on button click

2009-12-08T09:34:11Z

On Tue, Dec 8, 2009 at 3:38 PM, Dov Grobgeld <dov.grobgeld@...> wrote:

You don't say under what system you need this.

On windows you would simply do:

system("foo.png")

and you would call the viewer associated with .png files.

(This works for url's as well as just running it through system, runs the prefered user browser).

On Linux there is no such system default, but the specifics depend on your desktop.

In linux you can do:
xdg-open file
or
gnome-open file

--
Emmanuel Rodriguez

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Execute associated image viewer or media player on button click

2009-12-08T06:38:19Z

You don't say under what system you need this.

On windows you would simply do:

system("foo.png")

and you would call the viewer associated with .png files.

(This works for url's as well as just running it through system, runs the prefered user browser).

On Linux there is no such system default, but the specifics depend on your desktop.

Regards,
Dov

On Tue, Dec 8, 2009 at 13:45, Zettai Muri <zettaimuri@...> wrote:

Hi All,

I have 2 buttons in my program. One labelled 'Play' and the other 'View'. Is there a way to call the associated image viewer or media player when a file has been found and then the button is clicked?

Not sure if I should be asking here or on a Perl forum.

Many thanks for any suggestions.

ZM.

__________________________________________________________________________________
Win 1 of 4 Sony home entertainment packs thanks to Yahoo!7.
Enter now: http://au.docs.yahoo.com/homepageset/

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Execute associated image viewer or media player on button click

2009-12-08T03:45:10Z

Hi All,

I have 2 buttons in my program. One labelled 'Play' and the other 'View'. Is there a way to call the associated image viewer or media player when a file has been found and then the button is clicked?

Not sure if I should be asking here or on a Perl forum.

Many thanks for any suggestions.

ZM.

__________________________________________________________________________________
Win 1 of 4 Sony home entertainment packs thanks to Yahoo!7.
Enter now: http://au.docs.yahoo.com/homepageset/

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Gtk-Perl Rocks! I wanna help!

2009-12-07T12:02:40Z

> Yes, documentation would be a good way to get started. The test suite could
> also need some love:
> lists a few open bug reports about failing tests. And finally, if you want to
> get your hands really dirty, you could try wrapping some of new API that
> appeared in gtk+ 2.18:
> .
>
> If you want to tackle any of this, please let us know if you encounter any
> problem.

I saw another thread about including the documentation in the distribution. I was wondering if we could format the pod in a way similar to podtemplate.pod (attached to this email)? I suppose I was thinking if we did it this way then one day we could probably generate html similar to:

http://library.gnome.org/devel/pygtk/stable/class-gtkaboutdialog.html
http://library.gnome.org/devel/gtk/stable/GtkAboutDialog.html

No worries if I'm completely out of the ball park, was interesting learning about pods.

Regards,

ZM.

__________________________________________________________________________________
Win 1 of 4 Sony home entertainment packs thanks to Yahoo!7.
Enter now: http://au.docs.yahoo.com/homepageset/

Gtk2::AboutDialog

Gtk2::AboutDialog

Display information about an application

Synopsis

Gtk2::AboutDialog->new
get_artists
set_artists ($artists)
get_authors
set_authors ($authors)
get_comments
set_comments ($comments)
get_copyright
set_copyright ($copyright)
get_documenters
set_documenters ($documenters)
get_license
set_license ($license)
get_logo
get_logo_icon_name
set_logo_icon_name ($icon_name)
set_logo ($logo)
get_program_name
set_program_name ($name)
get_translator_credits
set_translator_credits ($translator_credits)
get_version
set_version ($version)
get_website
get_website_label
set_website_label ($website_label)
set_website ($website)
get_wrap_license
set_wrap_license ($wrap_license)

Hierarchy

Glib::Object

+Glib::InitiallyUnowned

+-Gtk2::Object

+--Gtk2::Widget

+---Gtk2::Container

+----Gtk2::Bin

+-----Gtk2::Window

+------Gtk2::Dialog

+-------Gtk2::AboutDialog

Implemented Interfaces

Glib::Object::_Unregistered::AtkImplementorIface

Gtk2::Buildable

Properties

'artists' (Glib::Strv : readable / writable / private) List of people who have contributed artwork to the program
'authors' (Glib::Strv : readable / writable / private) List of authors of the program
'comments' (string : readable / writable / private) Comments about the program
'copyright' (string : readable / writable / private) Copyright information for the program
'documenters' (Glib::Strv : readable / writable / private) List of people documenting the program
'license' (string : readable / writable / private) The license of the program
'logo' (Gtk2::Gdk::Pixbuf : readable / writable / private) A logo for the about box. If this is not set, it defaults to gtk_window_get_default_icon_list()
'logo-icon-name' (string : readable / writable / private) A named icon to use as the logo for the about box.
'program-name' (string : readable / writable / private) The name of the program. If this is not set, it defaults to g_get_application_name()
'translator-credits' (string : readable / writable / private) Credits to the translators. This string should be marked as translatable
'version' (string : readable / writable / private) The version of the program
'website' (string : readable / writable / private) The URL for the link to the website of the program
'website-label' (string : readable / writable / private) The label for the link to the website of the program. If this is not set, it defaults to the URL
'wrap-license' (boolean : readable / writable / private) Whether to wrap the license text.

Description

he GtkAboutDialog offers a simple way to display information about a program like its logo, name, copyright, website and license. It is also possible to give credits to the authors, documenters, translators and artists who have worked on the program. An about dialog is typically opened when the user selects the About option from the Help menu. All parts of the dialog are optional.

About dialog often contain links and email addresses. GtkAboutDialog supports this by offering global hooks, which are called when the user clicks on a link or email address, see gtk_about_dialog_set_email_hook() and gtk_about_dialog_set_url_hook(). Email addresses in the authors, documenters and artists properties are recognized by looking for <user@host>, URLs are recognized by looking for http://url, with url extending to the next space, tab or line break.

Constructor

Gtk2::AboutDialog->new

Returns: a new Gtk2::AboutDialog

Methods

get_artists

Returns: a list of the names of the program artists

Since 2.6

set_artists ($artists)

$artists: a list of the names of the program artists

Since 2.6

Url and Email Hooks

When setting the website and email hooks for the Gtk2::AboutDialog widget, you should remember that the order is important: you should set the hook functions before setting the website and email URL properties, like this:

  $about_dialog->set_url_hook(\&launch_web_browser);
  $about_dialog->set_website($app_website);

otherwise the AboutDialog will not display the website and the email addresses as clickable.

Copyright

This software is licensed under the LGPL. See Gtk2 for a full notice.

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

poderise.pl (374 bytes) Download Attachment
podtemplate.pod (7K) Download Attachment

Re: how do I close the dialog and at the same time run a subroutine in the background

2009-12-05T14:50:13Z

Juhász Péter <peter.juhasz83@...> writes:
>
> Gtk2->main_iteration() while Gtk2->events_pending(); # Inserted line

Or try just a $dialog->get_display->flush.
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: Gtk2::FileFilter by mime type

2009-12-05T12:07:26Z

>>>you can add multiple rules to a filter, but in this case I'd check the
>>>>OS you're running on to decide what to use, e.g.:
>>
>>>> if ($^O eq 'MSWin32') {
>>>> $filter->add_pattern('*.mp3');
>>>> }
>>>> else {
>>>> $filter->add_mime_type('audio/mp3');
>>>> }
>>
>
>This is probably the best solution.

Thank you very much for this.

__________________________________________________________________________________
Win 1 of 4 Sony home entertainment packs thanks to Yahoo!7.
Enter now: http://au.docs.yahoo.com/homepageset/

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: how do I close the dialog and at the same time run a subroutine in the background

2009-12-05T02:59:39Z

On Fri, 2009-12-04 at 20:29 +0800, lointaineimage wrote:

> I want to destroy the dialog and call a subroutine when I click the
> "yes" button,here is part of my code ,but it doesn't work well,the
> dialog is closed until the subroutine is finished.waiting for your
> help,thanks!
>
> here is part of my code:
> #=========================================
> my $dialog =Gtk2::MessageDialog->new
> ($window,'destroy-with-parent','something to confirm','yes-no',");
> my $response = $dialog->run;
> if($response eq "yes"){
> $dialog->destroy;
> &mysubroutine;
> }
>
> _______________________________________________
> gtk-perl-list mailing list
> gtk-perl-list@...
> http://mail.gnome.org/mailman/listinfo/gtk-perl-list

I think this would do the trick:

#...
$dialog->destroy;

Gtk2->main_iteration() while Gtk2->events_pending(); # Inserted line

&mysubroutine;
#...

Péter Juhász

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: how do I close the dialog and at the same time run a subroutine in the background

2009-12-05T02:42:37Z

Hello.

You're experiencing this because dialog hiding and destruction needs
idle main loop to do it's work. You subroutine blocks your application
until it returns and only then application control is returned to main
loop.

In order to have this kind of functionality, you'll either have to use
separate thread for your subroutine or chunk your work into smaller
pieces and execute them inside idle calls (I would advice you to use
threads).

Tadej

--
Tadej Borovšak
tadeboro.blogspot.com
tadeboro@...
tadej.borovsak@...
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

how do I close the dialog and at the same time run a subroutine in the background

2009-12-04T04:29:54Z

I want to destroy the dialog and call a subroutine when I click the
"yes" button,here is part of my code ,but it doesn't work well,the
dialog is closed until the subroutine is finished.waiting for your
help,thanks!

here is part of my code:
#=========================================
my $dialog =Gtk2::MessageDialog->new
($window,'destroy-with-parent','something to confirm','yes-no',");
my $response = $dialog->run;
if($response eq "yes"){
$dialog->destroy;
&mysubroutine;
}

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: GLib/perl and GArray, GType

2009-12-03T09:10:18Z

On Feb 5, 2009, at 2:42 PM, Torsten Schoenfeld wrote:

> Wouter Verhelst wrote:
>>> I seem to be misunderstanding the GParamSpecGType docs when they talk about how is_a_type works when it's G_TYPE_NONE.
>
> I don't quite understand what you're talking about here, muppet. The test cases in your patch all work fine for me, even those that are commented out can be made to work. I attach an updated patch with more tests. Commit?

I appear to have been on crack. Yes, commit.

>> Doesn't seem to work the way it should. When I do this:
>> $model->set("type" => "Nspos::Db::Order");
>> the warning message looks like this:
>> Glib-GObject-WARNING **: value "((gpointer) 0x1c)" of type `GType' is invalid or out of range for property `type' of type `GType' at (...)
>
> This is the error message you get when you try set a GType property to a GType that is not a descendant of the GType property's is_a_type (that is, the fourth argument to Glib::ParamSpec->gtype). So, in your example, it seems that "Nspos::Db::Order" is not a descendant of "type"'s is_a_type -- at least as far as Glib's type system is concerned.
> Index: GParamSpec.xs
> ===================================================================
> --- GParamSpec.xs (revision 1083)
> +++ GParamSpec.xs (working copy)
> @@ -263,6 +263,9 @@ BOOT:
> #if GLIB_CHECK_VERSION(2,4,0)
> gperl_register_param_spec (G_TYPE_PARAM_OVERRIDE, "Glib::Param::Override");
> #endif
> +#if GLIB_CHECK_VERSION(2,10,0)
> + gperl_register_param_spec (G_TYPE_PARAM_GTYPE, "Glib::Param::GType");
> +#endif
>
> =for enum Glib::ParamFlags
> =cut
> @@ -569,6 +572,23 @@ scalar (class, name, nick, blurb, flags)
> ### GParamSpec* g_param_spec_value_array (const gchar *name, const gchar *nick, const gchar *blurb, GParamSpec *element_spec, GParamFlags flags)
>
>
> +#if GLIB_CHECK_VERSION(2, 10, 0)
> +
> +=for apidoc
> +=for arg is_a_type The name of a class whose subtypes are allowed as values of the property. Use C<undef> to allow any type.
> +=cut
> +GParamSpec*
> +g_param_spec_gtype (class, name, nick, blurb, is_a_type, flags)
> + const gchar *name
> + const gchar *nick
> + const gchar *blurb
> + const gchar_ornull *is_a_type
> + GParamFlags flags
> + C_ARGS:
> + name, nick, blurb, is_a_type ? gperl_type_from_package (is_a_type) : G_TYPE_NONE, flags
> +
> +#endif
> +
>
> ####
> #### accessors
> @@ -1198,3 +1218,36 @@ get_default_value (GParamSpec * pspec_un
> ## G_TYPE_PARAM_POINTER, "Glib::Param::Pointer" -- no members
> ## G_TYPE_PARAM_OBJECT, "Glib::Param::Object" -- no members
> ## G_TYPE_PARAM_OVERRIDE, "Glib::Param::Override" -- no public members
> +
> +
> +MODULE = Glib::ParamSpec PACKAGE = Glib::Param::GType
> +
> +#if GLIB_CHECK_VERSION(2, 10, 0)
> +
> +=for section DESCRIPTION
> +
> +=head1 DESCRIPTION
> +
> +This object describes a parameter which holds the name of a class known to the
> +GLib type system. The name of the class is considered to be the common
> +ancestor for valid values. To create a param that allows any type name,
> +specify C<undef> for the package name. Beware, however, that although
> +we say "any type name", this actually refers to any type registered
> +with Glib; normal Perl packages will not work.
> +
> +=cut
> +
> +=for apidoc
> +If C<undef>, then any class is allowed.
> +=cut
> +const gchar_ornull *
> +is_a_type (GParamSpec * pspec_gtype)
> + CODE:
> + GParamSpecGType * p = G_PARAM_SPEC_GTYPE (pspec_gtype);
> + RETVAL = p->is_a_type == G_TYPE_NONE
> + ? NULL
> + : gperl_package_from_type (p->is_a_type);
> + OUTPUT:
> + RETVAL
> +
> +#endif
> Index: t/e.t
> ===================================================================
> --- t/e.t (revision 1083)
> +++ t/e.t (working copy)
> @@ -5,7 +5,7 @@
> use strict;
> use utf8;
> use Glib ':constants';
> -use Test::More tests => 243;
> +use Test::More tests => 259;
>
> # first register some types with which to play below.
>
> @@ -210,6 +210,56 @@ foreach (@params) {
>
>
> #
> +# Since this is conditional on version, we don't want to overcomplicate
> +# the testing logic above.
> +#
> +SKIP: {
> + skip "GParamSpecGType is new in glib 2.10.0", 16
> + unless Glib->CHECK_VERSION (2, 10, 0);
> + @params = ();
> +
> + $pspec = Glib::ParamSpec->gtype ('object', 'Object Type',
> + "Any object type",
> + Glib::Object::,
> + G_PARAM_READWRITE);
> + isa_ok ($pspec, 'Glib::Param::GType');
> + isa_ok ($pspec, 'Glib::ParamSpec');
> + is ($pspec->is_a_type, 'Glib::Object');
> + push @params, $pspec;
> +
> + $pspec = Glib::ParamSpec->gtype ('type', 'Any type', "Any type",
> + undef, G_PARAM_READWRITE);
> + isa_ok ($pspec, 'Glib::Param::GType');
> + isa_ok ($pspec, 'Glib::ParamSpec');
> + is ($pspec->is_a_type, undef);
> + push @params, $pspec;
> +
> + Glib::Type->register ('Glib::Object' => 'Baz', properties => \@params);
> +
> + my $baz = Glib::Object::new ('Baz');
> + isa_ok ($baz, 'Glib::Object');
> + is ($baz->get ('object'), undef);
> + is ($baz->get ('type'), undef);
> +
> + $baz = Glib::Object::new ('Baz', object => 'Bar', type => 'Glib::ParamSpec');
> + isa_ok ($baz, 'Glib::Object');
> + is ($baz->get ('object'), 'Bar');
> + is ($baz->get ('type'), 'Glib::ParamSpec');
> +
> + $baz->set (type => 'Bar');
> + is ($baz->get ('type'), 'Bar');
> + $baz->set (type => 'Glib::ParamSpec');
> + is ($baz->get ('type'), 'Glib::ParamSpec');
> +
> + $baz->set (object => 'Glib::Object');
> + is ($baz->get ('object'), 'Glib::Object');
> + $baz->set (object => 'Glib::InitiallyUnowned');
> + is ($baz->get ('object'), 'Glib::InitiallyUnowned');
> +}
> +
> +
> +
> +#
> # verify that NULL param specs are handled gracefully
> #
>
> Index: GValue.xs
> ===================================================================
> --- GValue.xs (revision 1083)
> +++ GValue.xs (working copy)
> @@ -1,6 +1,6 @@
> /*
> - * Copyright (C) 2003-2005 by the gtk2-perl team (see the file AUTHORS for
> - * the full list)
> + * Copyright (C) 2003-2009 by the gtk2-perl team (see the file AUTHORS for the
> + * full list)
> *
> * This library is free software; you can redistribute it and/or modify it
> * under the terms of the GNU Library General Public License as published by
> @@ -118,6 +118,15 @@ gperl_value_from_sv (GValue * value,
> g_value_set_string(value, SvGChar(sv));
> break;
> case G_TYPE_POINTER:
> +#if GLIB_CHECK_VERSION(2, 10, 0)
> + /* The fundamental type for G_TYPE_GTYPE is
> + * G_TYPE_POINTER, so we have to treat this
> + * specially. */
> + if (G_VALUE_TYPE (value) == G_TYPE_GTYPE) {
> + g_value_set_gtype (value, gperl_type_from_package (SvGChar (sv)));
> + break;
> + }
> +#endif
> g_value_set_pointer (value,
> INT2PTR (gpointer, SvIV (sv)));
> break;
> @@ -222,6 +231,18 @@ _gperl_sv_from_value_internal (const GVa
> return newSVGChar (g_value_get_string (value));
>
> case G_TYPE_POINTER:
> +#if GLIB_CHECK_VERSION(2, 10, 0)
> + /* The fundamental type for G_TYPE_GTYPE is
> + * G_TYPE_POINTER, so we have to treat this
> + * specially. */
> + if (G_VALUE_TYPE (value) == G_TYPE_GTYPE) {
> + GType gtype = g_value_get_gtype (value);
> + return newSVGChar (
> + gtype == G_TYPE_NONE
> + ? NULL
> + : gperl_package_from_type (gtype));
> + }
> +#endif
> return newSViv (PTR2IV (g_value_get_pointer (value)));
>
> case G_TYPE_BOXED:
> _______________________________________________
> gtk-perl-list mailing list
> gtk-perl-list@...
> http://mail.gnome.org/mailman/listinfo/gtk-perl-list

--
One, two, free, four, five, six, sebben, eight, nine, ten, elebben, twull, fourteen, sickteen, sebbenteen, eightteen, elebbenteen, fiffeen, elebbenteen!
-- Zella, aged three, counting to twenty.

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: X instance name

2009-11-30T12:48:08Z

On Mon, Nov 30, 2009 at 12:47:37PM +0100, Mario Kemper wrote:

> You can use $window->set_wmclass ($wmclass_name, $wmclass_class) for
> this.
> http://gtk2-perl.sourceforge.net/doc/pod/Gtk2/Window.html#_window_set_wmclass_
>
> But the documentation recommends to avoid this function for special
> reasons, see:
> http://library.gnome.org/devel/gtk/stable/GtkWindow.html#gtk-window-set-wmclass
>
> If you want to check the current values of a window you can use the tool
> 'xprop'. You have to look for WM_CLASS(STRING).
> I've quickly checked some of the windows gscan2pdf creates and I can't
> see any difference to other applications here.

Thanks! Exactly the information that I was looking for and too stupid
to find.

Regards

Jeff

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

signature.asc (204 bytes) Download Attachment

POD in tarballs (was Re: Gtk2::Assistant and Button Access)

2009-11-30T03:54:22Z

>>> On 2009/11/29 at 11:44 PM, Torsten Schoenfeld <kaffeetisch@...> wrote:
> On 11/26/2009 01:42 AM, Jeffrey Ray wrote:
>> I think the documentation should be included in the distribution. I
>> think most perl users expect to be able to say perldoc Gtk2::xxx and get
>> a response - and to be able find documentation for a >module on CPAN.
>> is that I think alot of the things you can find here
>> http://gtk2-perl.sourceforge.net/doc/pod/index.html should be made
>> included with the Gtk2-perl distribution so that I can perldoc
>> Gtk2::Assistant and get some documentation
>>
>> I'm willing to help make this happen if it is decided to include the pod
>
> Yes, I think it would be worth a try. We used to take pride in the
> small size of our tarballs, but with today's bandwidth availability, I'm
> unsure whether tarball size still matters that much.
>
> To make this happen, you would need to find a way to hook the POD
> generation into 'make dist'. The Makefile code for the POD generation
> is created in Glib::MakeHelper::postamble_docs_full().
>

If its on Windows, then there is a bug with later versions of MakeMaker if I remember correctly. I usually just do before I install or make a ppm:

dmake $(INST_LIB)/$(FULLEXT)/index.pod

So on Windows with ActivePerl I have both html and pod docs. I can send my build scripts if anybody are interested.

Regards

Martin

Vrywaringsklousule / Disclaimer: http://www.nwu.ac.za/it/gov-man/disclaimer.html

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Re: X instance name

2009-11-30T03:47:37Z

You can use $window->set_wmclass ($wmclass_name, $wmclass_class) for
this.
http://gtk2-perl.sourceforge.net/doc/pod/Gtk2/Window.html#_window_set_wmclass_

But the documentation recommends to avoid this function for special
reasons, see:
http://library.gnome.org/devel/gtk/stable/GtkWindow.html#gtk-window-set-wmclass

If you want to check the current values of a window you can use the tool
'xprop'. You have to look for WM_CLASS(STRING).
I've quickly checked some of the windows gscan2pdf creates and I can't
see any difference to other applications here.

Regards
Mario

Am Montag, den 30.11.2009, 10:06 +0100 schrieb Jeffrey Ratcliffe:

> Does anyone know how to set the X instance name from Perl?
>
> There's a bug[1] open against gscan2pdf and I haven't a clue what I
> can do about it.
>
> Regards
>
> Jeff
>
> [1] http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=554023
> _______________________________________________
> gtk-perl-list mailing list
> gtk-perl-list@...
> http://mail.gnome.org/mailman/listinfo/gtk-perl-list

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@...
http://mail.gnome.org/mailman/listinfo/gtk-perl-list