# 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 . 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));