Re: Adventures in gtk-perl - tables and windows



On 17/09/2010, Kevin Ryde <user42 zip com au> wrote:
Mike Martin <redtux1 gmail com> writes:

->{table}->child_get_property($w,'left-attach');

Yes.

I cant find any way to get the X11 name from GDK,

$win->property_get, but it's a little icky :).  I forget what you're
supposed to pass for the length parameter.  I limit on how huge a chunk
you want to grab in one go, or something.


use strict;
use warnings;
use Gtk2 '-init';
my $s=Gtk2::Gdk::Screen->get_default or die print $!;

my $display = $s->get_display;
my $atom_string = Gtk2::Gdk::Atom->intern('STRING');
my $atom_wm_name = Gtk2::Gdk::Atom->intern('WM_NAME');

foreach my $w ($s->get_window_stack){
  my $xid=$w->get_xid;
  my $win = Gtk2::Gdk::Window->foreign_new_for_display ($display, $xid);

  my ($type_atom, $format, $data)
    = $win->property_get ($atom_wm_name, $atom_string, 0, 9999, 0);
  print "$data\n";
}



Thanks for that - very useful

On a related note have you came across issues with using raise/show
etc on GDKwindows

The only thing that seems to work is maximise/unmaximise

Everything throws up a Resource temporarily unavailable from X with
the task bar icon flashing.



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]