Re: Gtk2::Gdk::Window->foreign_new, help needed

[zentara <zentara1 sbcglobal net>]

On Wed, 02 Jul 2008 20:23:32 +0200
Mario Kemper <mario kemper googlemail com> wrote:

> Hello folks, 
>
> i am trying to get the native window ids of my running x-session and
> handle them in my perl code using Gtk2::Gdk::Window->foreign_new but
> this is misleading into an error:
> Gdk-CRITICAL **: gdk_window_foreign_new_for_display: assertion
> `GDK_IS_DISPLAY (display)'
>
> Here is my code snippet:

> I think a am doing something totally wrong here, but i can't figure it
> out.
> I've already had that code running, but i do not know what changed :-(

> Thanks in advance
> Mario

Sorry if this is a multiple post, my mailer seemed to send it, but I never
received it from the list?  Maybe the magic pixel fairy deemed it useless? :-)

This rings a little bell, reminding me of when I tried grabbing screenshots
thru wininfo ids.  And since you said it was working, but now it dosn't, may be a clue
that you have the same glitch.  The glitch was you needed to run the capture script from the
same virtual desktop as the window to-be-captured.  Now Gnome2::Wnck
does have the ability to switch you to the virtual desktop, I was using X11::WMCtrl

This was my hacking script when I did it

#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;
use X11::WMCtrl;
use Data::Dumper;

my $wmctrl = X11::WMCtrl->new;

printf("window manager is %s\n", $wmctrl->get_window_manager->{name});

my @windows = $wmctrl->get_windows;

my $wid;  # x window id
my $host; # virtual desktop

foreach my $app(@windows){
         my $title = $app->{title};
          if( $title =~ /Mozilla/i){
          print "$title\n";
          print Dumper(\$app),"\n\n";
          
          $wid = $app->{id};
          $host = $app->{host};

         }
   }

$wmctrl->switch($host);
#must be on same virtual desktop as the browser

#works
my $blob = `import -window $wid jpg:`;   

#my $blob = `import -`;  #postscript produced
#print "$blob\n";
# now $blob is in memory and you can do what you
# want with it.

my $output = Image::Magick->new(magick=>'jpg');
$output->BlobToImage( $blob );
$output->Resize(geometry=>'160x120');
$output->Write( $0.'.jpg');

exit;
# png works too


__END__

zentara


-- 
I'm not really a human, but I play one on earth.
http://zentara.net/CandyGram_for_Mongo.html