Gtk2-Ex-Dashes

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

examples/settings.pl
examples/simple.pl
examples/vertical.pl
lib/Gtk2/Ex/Dashes.pm
lib/Gtk2/Ex/Dashes/MenuItem.pm
Makefile.PL
MANIFEST			This list of files
MANIFEST.SKIP
SIGNATURE
t/Dashes-load.t
t/Dashes-weaken.t
t/Dashes.t
t/MenuItem-load.t
t/MenuItem-weaken.t
t/MenuItem.t
t/MyTestHelpers.pm
xt/0-examples-xrefs.t
xt/0-file-is-part-of.t
xt/0-META-read.t
xt/0-no-debug-left-on.t
xt/0-Test-ConsistentVersion.t
xt/0-Test-DistManifest.t
xt/0-Test-Pod.t
xt/0-Test-Synopsis.t

SIGNATURE  view on Meta::CPAN

SHA256 b1c0a005d3e47f9d27348a3707b75d66268bff0d4536b699493651f1c6bbc3d2 devel/run.pl
SHA256 bf1dd66d8686559a0a877927406af7bdf59275867a73ece4a55bca528696839c devel/screenshot.pl
SHA256 3509cc6716e94bb7b1ed155a8ac56a8235bd57d3a8c1ef2fa0980d1ef35458f1 devel/tearoff.pl
SHA256 7900258bfeb87c16d6962f5815e7761dc9f1ea12ae690684366d1cc6ab5d1b85 devel/vert.pl
SHA256 6f7e33f011e3a08c0da6c5020b32db23808a8d4e71df046fe563265122371ff8 examples/settings.pl
SHA256 4447ccb3483609df86d875fd11499ca8f9d1b1ae176cd825a8c9ce65d082e8a5 examples/simple.pl
SHA256 2b3e8056919b6e5ba9a06947bbe97ac67ae1a39afb974410e96c1fc2c452cda5 examples/vertical.pl
SHA256 d9f34b9bf19d229154a864400780044e4faaa24c8b6c7c1161938cad24748a9c lib/Gtk2/Ex/Dashes.pm
SHA256 4f91936177488a785f5cacf143a0b2f8a7578ff307d2ec9778fc817118a83180 lib/Gtk2/Ex/Dashes/MenuItem.pm
SHA256 a0f27a15cefe5797ed0e7d88c21d017d023c1e4ea415927d79ad7878ebc5e890 t/Dashes-load.t
SHA256 761b7845d72b0f9eaba6ca1cfeb75e383b7aa553f53f075f6d2f429de88f69a0 t/Dashes-weaken.t
SHA256 5f3cbb9f24120eafd07a7d4e3eb7e1ff77bcfecc4dbe4be6150f1ee183944963 t/Dashes.t
SHA256 1a62506b039eccdd65ce16249378854436255b1e56827d43962b5b5ad97e2793 t/MenuItem-load.t
SHA256 586714d334835ab91a047a0680383f09e318d8141dbfcb6405481cc8e4e0c9aa t/MenuItem-weaken.t
SHA256 0bc3128cef3260c635521dd98e0e4259ca685ac8621901d5336b18228710cd5d t/MenuItem.t
SHA256 91cd2bba3e246abf05c342ed549ed6d902e8a77a43b6c9c4e092e4c918732ac0 t/MyTestHelpers.pm
SHA256 ef75312e02ddcfed7095de7eecebc6b7b863d56acd9b64142737ab7a5edb57e3 xt/0-META-read.t
SHA256 f03d4741c4e6dd385c7bafa06118082bad4809a64e28a094635324ef8ab4f3e5 xt/0-Test-ConsistentVersion.t
SHA256 be42622f3841d04240cb1284e6b30e1af81cb0fcb56d29e853c70af656653488 xt/0-Test-DistManifest.t
SHA256 48b441e0c335e93946d913897e342662387788833229c5ba5fac57f0ff3d567c xt/0-Test-Pod.t
SHA256 2e1e1d896a226aeb190cdcfbe83969f634c1be3e7344302e023915e3f7150732 xt/0-Test-Synopsis.t
SHA256 d33b48c1986680cd934565250bd9e3879674dfe6aad69b1717ed76354a29ff44 xt/0-Test-YAML-Meta.t
SHA256 1ae41bbd04e6aba264df79250d525e8b2b2e6b311930ef191c5e432936706cdc xt/0-examples-xrefs.t
SHA256 75a73148514fad2715873d1e02a6fa8e3b9cc43f7aff97aaffac9721c086a319 xt/0-file-is-part-of.t

t/Dashes.t  view on Meta::CPAN

  is ($req->width, 0, 'size_request() horizontal width');
  cmp_ok ($req->height, '>=', 1, 'size_request() horizontal height');

  $dashes->set (orientation => 'vertical');
  $req = $dashes->size_request;
  cmp_ok ($req->width, '>=', 1, 'size_request() vertical width');
  is ($req->height, 0, 'size_request() vertical height');
}

#-----------------------------------------------------------------------------
# weaken()

{
  my $dashes = Gtk2::Ex::Dashes->new;
  require Scalar::Util;
  Scalar::Util::weaken ($dashes);
  is ($dashes, undef, 'garbage collect when weakened');
}

exit 0;

t/MenuItem.t  view on Meta::CPAN

    my $d2 = Gtk2::Ex::Dashes->new;
    my $style2 = Gtk2::Rc->get_style ($d2);
    is ($style2->ythickness, $yt2, 'my_style ythickness');

    $dashes->set_style ($style2);
    is ($dashes->get('ypad'), $yt2, 'ypad with style2');
  }
}

#-----------------------------------------------------------------------------
# weaken()

{
  my $item = Gtk2::Ex::Dashes::MenuItem->new;
  require Scalar::Util;
  Scalar::Util::weaken ($item);
  is ($item, undef, 'garbage collect when weakened');
}

exit 0;

t/MyTestHelpers.pm  view on Meta::CPAN

                                          ? "$obj->{$_}" : '[undef]')}
                              keys %$obj));
  }
  if (eval { require Devel::FindRef }) {
    MyTestHelpers::diag (Devel::FindRef::track($obj, 8));
  } else {
    MyTestHelpers::diag ("Devel::FindRef not available -- ", $@);
  }
}

sub test_weaken_show_leaks {
  my ($leaks) = @_;
  $leaks || return;

  my $unfreed = $leaks->unfreed_proberefs;
  my $unfreed_count = scalar(@$unfreed);
  MyTestHelpers::diag ("Test-Weaken leaks $unfreed_count objects");
  MyTestHelpers::dump ($leaks);

  my $proberef;
  foreach $proberef (@$unfreed) {