in reply to Re^2: Tk::Columns only 10 lines visible
in thread Tk::Columns only 10 lines visible

A small note on style/maintainability

yes, its often easier to go all-globals with Tk code, but you can still use regular argument passing/returning functions for the non-gui/non-Tk parts, like SUB_READ_HISTORY($fromfile,\@intoThisGlobal)

speaking of SUB_READ_HISTORY, adding SUB_ is kind of redundant :) but I understand you may have your reasons -- you might be interested in perlstyle, http://damienlearnsperl.blogspot.com/2009/03/perl-naming-convention-for-subroutine.html

And for future reference NOTE: Tk TUTORIALS: perl Tk help, RFC: Learning Perl/Tk, Perl/Tk: For Beginners, Re^3: Tkx Search for dialog box for text input , Re: TclTk interface with Perl code, is it possible? , Re^2: GUI toolkit+designer for the perl newbie , Re: Easier GUI, Re: Should I use Perl/TK?, Re^2: need a popup gui stdin, Tk Tree Tutorial ( http://www.rtapo.com/tutorials/tk_tree.html ), some Tkx tutorial links, Tutorial http://theoryx5.uwinnipeg.ca/perltk/ and http://www.perl.com/pub/1999/10/perltk/, http://perltk.org/, http://web.archive.org/web/20100310202528/http://theoryx5.uwinnipeg.ca/perltk/, How to RTFM Tk Tutorials

  • Comment on Re^3: Tk::Columns only 10 lines visible

Replies are listed 'Best First'.
Re^4: Tk::Columns only 10 lines visible
by norealenemy (Initiate) on Apr 18, 2013 at 11:15 UTC

    Thanks a lot. I know my code is ugly; my colleague calls it "kindergarten code". I will take a look into the mentioned resources.

    The sub READ_HISTORY is very shorten in this example. I use the variables global, as in the real tool there is also a current.csv and I work with the informations from both files global in the complete script.

    I forced myself to add SUB in every sub as I started code with subs. It's redundant but for me it was much more easier to understand. I will force myself know to save four characters in every sub in future. ;-)

    Again thanks a lot I spent at least two days try and error and also at least one day reading/searchin the net; You solved the problem within a few minutes!

[reply]

In Section Seekers of Perl Wisdom