The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# Copyright 2007, 2008, 2010 Kevin Ryde

# This file is part of Chart.
#
# Chart 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.
#
# Chart 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 Chart.  If not, see <http://www.gnu.org/licenses/>.

package App::Chart::Gtk2::Ex::GtkGCBits;
use strict;
use warnings;
use Carp;
use Gtk2;

sub get_for_widget {
  my $class = shift;
  my $widget = shift;
  my $window = $widget->window || croak 'Widget not realized';
  return Gtk2::GC->get ($window->get_depth, $widget->get_colormap, @_);
}

1;
__END__

#   require App::Chart::Gtk2::Ex::GtkGCobj;
#   my $solid_gc = ($graph->{'solid_gc'} ||= App::Chart::Gtk2::Ex::GtkGCobj->new
#                   (widget     => $graph,
#                    foreground => $style->fg ($state),
#                    line_style => 'solid',
#                    line_width => 0));