Bug #74145 for Tk: Size of CheckBuuton On Windows/Linux

Thu Jan 19 05:01:07 2012 DJIBEL [...] cpan.org - Ticket created

Subject:

Size of CheckBuuton On Windows/Linux

Dear, I have try this code On Windows and Linux system : #!/usr/bin/perl use warnings; use strict; use Tk; use Tk::JPEG; use utf8; my $main = new MainWindow( -title => 'Tk::CheckButton', -background => 'white', ); $main->minsize( 300, 100 ); my $ObjImage = $main->Photo( -file => 'image.jpg' ); my $c = $main->Checkbutton ( -image => $ObjImage, -width => 60, )->pack; MainLoop; The behaviour is different in Windows and Linux system. On Windows, it is OK. On Linux, the size of button is the same with the size of image or very big. How to resolve this problem ? N.B. On Windows : ActivePerl 5.14.2, Tk 804.030 On Linux : perl 5.10.1, Tk 804.030 I have join a image file. Best Regards, djibel

Subject:

checkbutton-windows-linux.png

Download checkbutton-windows-linux.png
image/png 51.8k

Sun Nov 17 16:46:41 2013 SREZIC [...] cpan.org - Correspondence added

On 2012-01-19 05:01:07, DJIBEL wrote: Show quoted text

> Dear, > > I have try this code On Windows and Linux system : >

[...] Show quoted text

> > The behaviour is different in Windows and Linux system. > On Windows, it is OK. > On Linux, the size of button is the same with the size of image or very big. > > How to resolve this problem ? > > N.B. > On Windows : ActivePerl 5.14.2, Tk 804.030 > On Linux : perl 5.10.1, Tk 804.030 >

Hi djibel, a similar Tcl/Tk script: set image [image create photo -file image.gif] checkbutton .c -image $image pack .c shows the same behavior with 8.4. But it is fixed with 8.5. So I can try to look into the changes between 8.4 and 8.5, and use this patch for Perl/Tk. Regards, Slaven

Sun Nov 17 16:46:41 2013 The RT System itself - Status changed from 'new' to 'open'

Sun Jan 26 14:24:03 2014 DJIBEL [...] cpan.org - Correspondence added

Le Dim 17 Nov 2013 16:46:41, SREZIC a écrit : Show quoted text

> On 2012-01-19 05:01:07, DJIBEL wrote:

> > Dear, > > > > I have try this code On Windows and Linux system : > >

> [...]

> > > > The behaviour is different in Windows and Linux system. > > On Windows, it is OK. > > On Linux, the size of button is the same with the size of image or > > very big. > > > > How to resolve this problem ? > > > > N.B. > > On Windows : ActivePerl 5.14.2, Tk 804.030 > > On Linux : perl 5.10.1, Tk 804.030 > >

> > Hi djibel, > > a similar Tcl/Tk script: > > set image [image create photo -file image.gif] > checkbutton .c -image $image > pack .c > > shows the same behavior with 8.4. But it is fixed with 8.5. So I can > try to look into the changes between 8.4 and 8.5, and use this patch > for Perl/Tk. > > Regards, > Slaven

Thank you !

Mon Feb 03 09:36:18 2014 m.nooning [...] comcast.net - Correspondence added

From:

m.nooning [...] comcast.net

Just hoping to provide more clues. The original script works as it should on my Windows, too, v5.16.2, but has the same larger check button when run from my Cygwin XWin Server window (v5.14.2). Something wrong is in common with Linux and Cygwin.