#!/usr/bin/perl -w
# Copyright 2010 Kevin Ryde
# This file is part of Gtk2-Ex-Xor.
#
# Gtk2-Ex-Xor is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 3, or (at your option) any later
# version.
#
# Gtk2-Ex-Xor is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
# more details.
#
# You should have received a copy of the GNU General Public License along
# with Gtk2-Ex-Xor. If not, see <http://www.gnu.org/licenses/>.
use strict;
use warnings;
use Gtk2;
# uncomment this to run the ### lines
use Smart::Comments;
my $d = Gtk2::Gdk::Display->open (':0');
my $c = Gtk2::Gdk::Cursor->new_for_display ($d,'hand1');
$d->close;
undef $d;
print "$c\n";
exit 0;
{
my $d = Gtk2::Gdk::Display->open (':0');
my $cursor_obj = Gtk2::Gdk::Cursor->new_for_display ($d,'blank-cursor');
my $pspec = Glib::ParamSpec->boxed ('equal', 'equal', 'blurb',
'Gtk2::Gdk::Cursor',
Glib::G_PARAM_READWRITE());
my $cmp = $pspec->values_cmp($cursor_obj,$cursor_obj);
### $cursor_obj
Scalar::Util::weaken ($d);
### $cursor_obj
Scalar::Util::weaken ($cursor_obj);
### $cursor_obj
exit 0;
}
{
my $c = Gtk2::Gdk::Cursor->new ('hand1');
my $pspec = Glib::ParamSpec->boxed ('equal', 'equal', 'blurb',
'Gtk2::Gdk::Cursor',
Glib::G_PARAM_READWRITE());
my $cmp = $pspec->values_cmp($c,$c);
### $cmp
### $c
Scalar::Util::weaken ($c);
### $c
exit 0;
}
{
my $rootwin = Gtk2::Gdk->get_default_root_window;
my $pixmap = Gtk2::Gdk::Pixmap->new ($rootwin, 1, 1, -1);
my $bitmap = Gtk2::Gdk::Pixmap->new ($rootwin, 1, 1, 1);
my $cursor_obj = Gtk2::Gdk::Cursor->new_from_pixmap
($pixmap,
$bitmap,
Gtk2::Gdk::Color->new(0,0,0,0), # fg
Gtk2::Gdk::Color->new(0,0,0,0), # bg
0,0); # x,y hotspot
### $cursor_obj
undef $cursor_obj;
### $cursor_obj
exit 0;
}