tests/perl/module-winlist

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use lib `fvwm-perllib dir`;
   5 use FVWM::Module;
   6 use IO::File;
   7
   8 my $run_xmessage = 0;
   9 my $module = new FVWM::Module(
  10         Name => "FvwmPerlBasedWinList",
  11         Mask => M_WINDOW_NAME | M_END_WINDOWLIST,
  12         EnableOptions => { "x" => \$run_xmessage },
  13 );
  14 my $fh = $run_xmessage
  15         ? new IO::File "| xmessage -geometry 240x300 -title 'Window List' -file -"
  16         : \*STDERR;
  17
  18 # Register the event handlers
  19 $module->add_handler(M_WINDOW_NAME, sub {
  20         my ($self, $event) = @_;
  21         printf $fh " 0x%07lx | %s\n", $event->_win_id, $event->_name;
  22 });
  23
  24 # This one signals that the module should be terminated
  25 $module->add_handler(M_END_WINDOWLIST, sub {
  26         print $fh "-----------+--------------------\n";
  27         close $fh;
  28         $module->terminate;
  29 });
  30
  31 print $fh "-----------+--------------------\n";
  32 print $fh " Window id | Name\n";
  33 print $fh "-----------+--------------------\n";
  34
  35 # Ask fvwm to send us its list of windows
  36 $module->send("Send_WindowList");
  37
  38 # Enter the main loop
  39 $module->event_loop;