File Coverage

blib/lib/Gtk2/Ex/MenuItem/Subclass.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

# Copyright 2007, 2008, 2009, 2010, 2011, 2012 Kevin Ryde

# This file is part of Gtk2-Ex-WidgetBits.
#
# Gtk2-Ex-WidgetBits 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-WidgetBits 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-WidgetBits.  If not, see .

package Gtk2::Ex::MenuItem::Subclass;
use 5.008;
use Gtk2;
use strict;
use warnings;

# Not sure about exporting.  Would be a way to take just new_with_label()
# and new_with_mnemonic() and leave key/value new().  Maybe a tag
# ":all_except_new".
#
# use base 'Exporter';
# our @EXPORT_OK = qw(new new_with_label new_with_mnemonic);
# our %EXPORT_TAGS = (all => \@EXPORT_OK);

# uncomment this to run the ### lines
#use Smart::Comments;

our $VERSION = 48;

BEGIN {
  if (Gtk2::MenuItem->find_property('label')) {
    eval "\n#line ".(__LINE__+1)." \"".__FILE__."\"\n" . <<'HERE' or die;

# GtkMenuItem in 2.16 up has "label" and "use-underline" properties which do
# the AccelLabel creation stuff.
#
sub new_with_label {
  my ($class, $str) = @_;
  ### MenuItem-Subclass new_with_label()
  return $class->Glib::Object::new (@_ > 1
                                    ? (label => $str)
                                    : ());
}
sub new_with_mnemonic {
  my ($class, $str) = @_;
  return $class->Glib::Object::new (@_ > 1
                                    ? (label => $str,
                                       use_underline => 1)
                                    : ());
}
1
HERE


  } else {
    eval "\n#line ".(__LINE__+1)." \"".__FILE__."\"\n" . <<'HERE' or die;

sub new_with_label {
  my ($class, $str) = @_;
  my $self = $class->Glib::Object::new;
  if (@_ > 1) {
    # Replicate C code from
    #     gtk_menu_item_new_with_label()
    #     gtk_check_menu_item_new_with_label()
    #
    my $label = Gtk2::AccelLabel->new ($str);
    $label->set_alignment (0, 0.5);
    $self->add ($label);
    $label->set_accel_widget ($self);
    $label->show;
  }
  return $self;
}

sub new_with_mnemonic {
  my ($class, $str) = @_;
  my $self = $class->Glib::Object::new;
  if (@_ > 1) {
    # Replicate C code from
    #     gtk_menu_item_new_with_mnemonic()
    #     gtk_check_menu_item_new_with_mnemonic()
    #
    my $label = Gtk2::AccelLabel->Glib::Object::new; # no initial label string
    $label->set_text_with_mnemonic ($str);
    $label->set_alignment (0, 0.5);
    $self->add ($label);
    $label->set_accel_widget ($self);
    $label->show;
  }
  return $self;
}
1
HERE
  }

  *new = \&new_with_mnemonic;
}

1;
__END__