Re^3: Perl/Tk: gridInfo() returns a wrong row number

Maybe, ;-)

my $startpoint = 0; my $endpoint = 99;
if ( $type eq 'row ){ $startpoint =1, $endpoint = 100 }

foreach my $field ( $startpoint..$endpoint  
.....
.....
[download]

I was musing over it last night, and guessed it has to do with column headers getting counted as a row, maybe ? :-)

As to Tk having one author, it's not true IIRC. Tk is just a Perl port of TCL/Tk, and TCL/Tk was a hodgepodge collection of widgets, written by different groups, with no true 1,0 coherence to some programming style standards. So different widgets, can have methods which are not consistent across widget families.

Tk was just meant to be easy to use. If you want some real consistency in widget design, move up to Perl-Gtk2. All of it's widgets descend from well laid out ancestors, so the style remains the same across widgets.

Plus, the original author of Tk, Nick Simmons is gone to bit heaven, and Mr. Reszic who knows enough to handle the module, is a very busy man and dosn't support the old Tk with full time vigor. However, he might look at that as a bug, file a bug report. He will probably say that fixing it in the c code, will break something else, so just hack around it, with a few lines of code.

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku

Comment on Re^3: Perl/Tk: gridInfo() returns a wrong row number Download Code

Replies are listed 'Best First'.
Re^4: Perl/Tk: gridInfo() returns a wrong row number by Shumkar (Novice) on Aug 13, 2010 at 19:20 UTC
Thank you for your reply, Zentara. >I was musing over it last night, and guessed it has to do with column headers getting counted as a row, maybe ? :-) When I commented out the code constructing column headers, nothing changed. >If you want some real consistency in widget design, move up to Perl-Gtk2. All of it's widgets descend from well laid out ancestors, so the style remains the same across widgets. Unfortunately, I have no enough time to study Gtk2. It's already more than a year that I'm writing this gui on Tk (in free time by evening); imagine how much time will it take from me - total rewriting all the code :) >so just hack around it, with a few lines of code. Yes, I'll do it. I have already begun to do it, before creating this page on perlmonks, but then I thought, may be it's not a bug, may be I don't understand something...	[reply]

Replies are listed 'Best First'.

Re^4: Perl/Tk: gridInfo() returns a wrong row number
by Shumkar (Novice) on Aug 13, 2010 at 19:20 UTC

>I was musing over it last night, and guessed it has to do with column headers getting counted as a row, maybe ? :-)

When I commented out the code constructing column headers, nothing changed.

>If you want some real consistency in widget design, move up to Perl-Gtk2. All of it's widgets descend from well laid out ancestors, so the style remains the same across widgets.

Unfortunately, I have no enough time to study Gtk2. It's already more than a year that I'm writing this gui on Tk (in free time by evening); imagine how much time will it take from me - total rewriting all the code :)

>so just hack around it, with a few lines of code.

Yes, I'll do it. I have already begun to do it, before creating this page on perlmonks, but then I thought, may be it's not a bug, may be I don't understand something...

[reply]