Tcl-pTk

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

1.06_01  2020-03-12

 * ttkTixNoteBook (RT #132075):
   - add method _identify_unavailable to check if Tile version is too old
     (needs Tcl/Tk 8.5.9 or later, or Tile 0.8.4.0 for Tcl/Tk 8.4)
   - use _identify_unavailable to show error when identify method is called
     and to skip tests in ttkTixNoteBook.t and tkFacelife_notebook.t
     when Tile version is too old
 * Split photo.t into photoTk.t and photoImg.t to separately test formats
   supported either natively by Tk or TkPNG, and those supported by TkImg
   (as photo.t does in Perl/Tk and Tcl::pTk < 0.95)
   - photoTk.t: skip PNG output tests for Tcl/Tk 8.6.5-8.6.6
     (which output invalid PNG files: RT #128803)

1.06  2020-03-10

 * Mark wmStackorder.t as TODO due to unresolved failures (RT #132100)

1.05  2020-03-09

 * Support $toplevel->stackorder method (as used with Perl/Tk)
 * Experimental workaround for regression in Tcl/Tk 8.6.10
   which causes an error when using facelifted LabEntry widgets

t/photoImg.t  view on Meta::CPAN

    'Xcamel.gif' => 'gif',
);
my $image_count = keys %images;

# Formats supported by TkImg
my @kinds_supported = (
    'gif',
    'ppm',
    'bmp',
    'jpeg',
    'png',
    'tiff',
    'xbm',
    'xpm',
);
my $kind_count = scalar @kinds_supported;

my $mw  = MainWindow->new();
$mw->geometry('+100+100');

my $Img_version = $mw->interp->pkg_require('Img');

t/photoTk.t  view on Meta::CPAN

# Test image formats supported by Tk without Img extension

my %images = ('Xcamel.gif' => 'gif');
my $image_count = keys %images;

# Formats supported by Tk 8.4-8.5 without extensions
my %kind_is_supported = (
    'gif'  => 1,
    'ppm'  => 1,
    'png'  => 0,
);
my $kind_count = keys %kind_is_supported;

plan tests => ($image_count*($kind_count * 5 + 1) + 2);

my $mw  = MainWindow->new();
$mw->geometry('+100+100');

# Check for PNG support (TkPNG or Tk 8.6+)
if (
    ($mw->interp->Eval('package vcompare $tk_version 8.6') != -1)
    or $mw->interp->pkg_require('tkpng')
) {
    $kind_is_supported{'png'} = 1;
} else {
    print "# PNG support not found (requires TkPNG or Tk 8.6+).\n"
        . "# PNG tests will be skipped.\n";
}

# Check that the width/height methods work
my $photo = $mw->Photo(-file => 't/Xcamel.gif');
ok($photo->width,  60, "Photo->width method problem");
ok($photo->height, 60, "Photo->height method problem");

my @files = ();

my $row = 0;

 view all matches for this distribution
 view release on metacpan -  search on metacpan