view release on metacpan or  search on metacpan

devel/composite.pl  view on Meta::CPAN

                    100,100,          # width,height
                    0,                # border
                   );

  # my $window2 = $X->new_rsrc;
  # $X->CreateWindow ($window2,
  #                   $X->root,         # parent
  #                   'InputOutput',
  #                   0,                # depth, from parent
  #                   'CopyFromParent', # visual
  #                   0,0,              # x,y
  #                   100,100,          # width,height
  #                   0,                # border
  #                  );
  # $X->MapWindow ($window2);
  # $X->QueryPointer($X->{'root'}); # sync

  # $X->CompositeRedirectWindow ($window, 'Automatic');
  # $X->QueryPointer($X->{'root'}); # sync
  #
  # $X->CompositeRedirectWindow ($window, 'Automatic');
  # $X->QueryPointer($X->{'root'}); # sync
  #
  # $X->CompositeUnredirectWindow ($window, 'Automatic');
  # $X->QueryPointer($X->{'root'}); # sync
  #
  # $X->CompositeUnredirectWindow ($window, 'Automatic');
  # $X->QueryPointer($X->{'root'}); # sync

  # $X->CompositeUnredirectWindow ($window, 'Automatic');
  # $X->QueryPointer($X->{'root'}); # sync

  # my $region = $X->new_rsrc;
  # $X->CompositeCreateRegionFromBorderClip ($region, $window);
  # $X->QueryPointer($X->{'root'}); # sync


  $X->MapWindow ($window);
  $X->QueryPointer($X->{'root'}); # sync
  sleep 1;

  $X->CompositeRedirectWindow ($window, 'Automatic');
  $X->QueryPointer($X->{'root'}); # sync

  # $X->CreatePixmap ($pixmap,
  #                   $X->root,
  #                   $X->root_depth,
  #                   100,100);  # width,height

  {
    my $pixmap = $X->new_rsrc;
    $X->CompositeNameWindowPixmap ($window, $pixmap);
    $X->QueryPointer($X->{'root'}); # sync
  }
  {
    my $pixmap = $X2->new_rsrc;
    $X2->CompositeNameWindowPixmap ($window, $pixmap);
    $X2->QueryPointer($X->{'root'}); # sync
  }

  my $overlay_window = $X->CompositeGetOverlayWindow ($window);
  $X->QueryPointer($X->{'root'}); # sync
  ### overlay_window: sprintf '%X', $overlay_window

  {
    my $overlay_window = $X2->CompositeGetOverlayWindow ($window);
    $X2->QueryPointer($X2->{'root'}); # sync
    ### overlay_window: sprintf '%X', $overlay_window
  }

  $X->CompositeReleaseOverlayWindow ($overlay_window);
  $X->QueryPointer($X->{'root'}); # sync


  exit 0;
}