X-Recipient: archive-cygwin AT delorie DOT com
X-SWARE-Spam-Status: No, hits=-3.2 required=5.0	tests=BAYES_00,RP_MATCHES_RCVD,SPF_HELO_PASS
X-Spam-Check-By: sourceware.org
To: cygwin AT cygwin DOT com
From: duane <duaneg AT gazelle-design DOT com>
Subject: Re: perl-Tk is broken
Date: Sat, 31 Dec 2011 17:32:31 +0000 (UTC)
Lines: 146
Message-ID: <loom.20111231T182410-445@post.gmane.org>
References: <1760155521 AT web DOT de> 	 <786EBDA1AC46254B813E200779E7AD361E71D0 AT srv1163ex1 DOT flightsafety DOT com> 	 <h3nu0n$vmn$1 AT ger DOT gmane DOT org> 	 <6910a60907220121p329e2b58l3d36ec1625f5562a AT mail DOT gmail DOT com> 	 <h4ajkg$3ut$1 AT ger DOT gmane DOT org> 	 <6910a60907240440u19e44d47nc1a23bc2075f730c AT mail DOT gmail DOT com> 	 <h4d1p9$mkj$1 AT ger DOT gmane DOT org> <6910a60907241354q16c8fc15h9635b52b2634c392 AT mail DOT gmail DOT com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
User-Agent: Loom/3.14 (http://gmane.org/)
X-IsSubscribed: yes
Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Id: <cygwin.cygwin.com>
List-Subscribe: <mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive: <http://sourceware.org/ml/cygwin/>
List-Post: <mailto:cygwin AT cygwin DOT com>
List-Help: <mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender: cygwin-owner AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
Delivered-To: mailing list cygwin AT cygwin DOT com


Has Reini Urban <rurban <at> x-ray.at> writes:

> 
> 2009/7/24 Wolfgang Goetz:
> > Reini Urban wrote:
> >> 2009/7/23 Wolfgang Goetz:
> >>> Reini Urban wrote:
> >>>> 2009/7/16 Wolfgang Goetz:
> >>>>> cygwin.c:173: error: redefinition of 'wlen'
> >>>> Please try the official cygwin/cygwin.c from
> >>>> 
http://github.com/rurban/perl/raw/49c38585884a547ae094a6be3f8a37db3018e48d/cygw
in/cygwin.c
> >>> 1) copying this file right behind the 'rsync' of perl-current.
> >>> patch applies,
> >>> build fails.
> >>>
> >>> the 'tar cfz' of perl-current is named perl-5.10.0.tar.gz
> >>> PANIC! perl-current-`date +..`.tgz may be ok
> >>> why not using the stable tgz from cpan?
> >>> current will not achieve a consistent build over time.
> >>
> >> Because 5.10.0 stable is not stable as agreed by everyone on p5p.
> >
> > full ack.
> >
> >> I added some patches which came in over time, so it's really more a perl-
5.10.05
> >> Similar to the ActiveState 5.10 release
> >
> > but according to your build script you are using *perl-current* via
> > rsync as the base to be patched. Every time you call the build there is
> > a different version!
> 
> Hmm, I'll check my build scripts again for the new update, 1.7 only.
> I use this new build system to test all the older and newer releases also,
> the cygwin release version is only picked up on ./build all
> 
> > using a 'stable'/'released' tarball and applying patches
> > is the golden way.´
> 
> perl is different. 5.8.8 is too old, 5.8.9 is better, but our 5.10.x and
> dave's 5.10-1 rc is best so far.
> Only Dave and blead is still missing the important
> "Bug#55162 File::Spec::case_tolerant performance" patch
> I think I have some insight on p5p.
> 
> > example: gentoo is on a year 2006 version:
> > (normally the gentoo's are bleading edge. here: not)
> 
> >>> http://matrix.cpantesters.org/?dist=Tk+804.028_501
> >>> ohjeh.. perl 5.8.8 is yellow for cygwin.
> >>> there seems to be no interest at all for the moment.
> >>
> >> I had some spare time some time ago to fix most of the issues, it 
compiles now ,
> >> just the event loop still needs to be reconfigured.
> >
> > is /usr/bin/widget working for you?  all examples?
> > the funny thing in my (better: my companies) environment:
> > 'widget' solely throws errors. under debugger control all is fine.
> > This smells like optimization/parameter flaws for me.
> > (mainly the -O3, maybe more)
> 
> No,
> It's just the wrong eventloop configuration.
> A simple fix, but it needs at least a day to dig through it again and test 
it.
> I mailed Slaven to do that, but he also had no time yet.

=====================================================
Has this been fixed?  I am seeing the same warning ...

cget() does not seem to work properly, and I am wondering
if it is connected ...

the following code works correctly using -d but fails
without running the debugger (only an issue under cygwin):


$ ./test5.pl
hix
Use of uninitialized value $id in hash element 
at /usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/After.pm line 40.
hi0
hi1
hi2
hi3
Use of uninitialized value $txt in concatenation (.) or string at ./test5.pl 
line 31.
txt=

$ ./test5.pl

Loading DB routines from perl5db.pl version 1.32
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(./test5.pl:9):   (my $script = $0) =~ s/^.*\/([^\/]+)$/$1/;
  DB<1> r
hix
hi0
hi1
hi2
hi3
txt=raised
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.  
  DB<1> q

========================================================

#!/usr/bin/perl -w -d
use Tk;
#use warnings;
#use strict;

(my $script = $0) =~ s/^.*\/([^\/]+)$/$1/;

print "hix\n";
my $mw = MainWindow->new();
print "hi0\n";
$mw->title($script);
print "hi1\n";

my $canvas = $mw->Canvas(
    -scrollregion => [ 400, 400, 400, 400 ],
    -relief       => 'sunken',

    -confine=>0,
    );

print "hi2\n";
$canvas->pack(-expand => 'yes', -fill => 'both');
print "hi3\n";
$canvas->configure(-relief=>"raised");
my $txt = $canvas->cget("-relief");
print "txt=$txt\n";







--
Problem reports:       http://cygwin.com/problems.html
FAQ:                   http://cygwin.com/faq/
Documentation:         http://cygwin.com/docs.html
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple