in reply to Re^4: Extensibility of Tk::TableMatrix
in thread Extensibility of Tk::TableMatrix

I warned that my approach to Tk is a bit different :)

this line: 

$w_t->insert('end', ["row $_;", "$_ bla bla"]) for 'a'..'zzz';

[download]
is rather simple, it is just looping over a list: 
for my $hh ('a'..'zzz') {
  $w_t->insert('end', ["row $hh;", "$hh bla bla"]);
}

[download]
The great advantage of Tcl::Tk over perl/Tk is that in latter you have only those Tk widgets that are happen to be specially adopted for perl, plus pure-perl widgets (and this is not really much)

Tcl::Tk gives you all zoo of tcl/tk widgets and provides you with a perl/Tk syntax. It is really thin glue between perl and tcl/tk

Replies are listed 'Best First'.
Re^6: Extensibility of Tk::TableMatrix
by elef (Friar) on Feb 08, 2011 at 21:11 UTC
    just looping over a list

    I got that (eventually, after posting the question), but I still don't see what it would do. Entering the text into cells would be my guess, but the structure of that command makes no sense to me at all. I guess I will look into the widget's documentation if you think the split/merge features can be coded up with tablelist without devoting the rest of my life to the task.
    Is there any TCL::Tk tutorial you can recommend? Some tablelist sample code would be nice as well.
[reply]
      this chunk of code: 
        $w_t->insert('end', ["row $hh;", "$hh bla bla"]);

      [download]
      will insert at index 'end' a row into tablelist, values are "row $hh;" and "$hh bla bla" into each of 2 cells appropriately

      this comes into play after seeing sample code at http://wiki.tcl.tk/5527 

      .t insert end [list "first row" "another value"]
.t insert end [list "another row" "bla bla"]

      [download]
      Also, Tkx is another way of doing tcl/tk from perl, and for both of these there is a mailing list tcltk@perl.org, which will help you set up and use these approaches

      Regards,
      vkon

[reply]
[d/l]
[select]
        insert at index 'end' a row into tablelist, values are "row $hh;" and "$hh bla bla" into each of 2 cells appropriately

        Oh, ok. If it was done with a for loop and an array for each column, with $w_t->insert('end', ["$col_a[$i];", "$col_b[$i]"]);, then it would have been clear from the start.
        Anyway, thanks for the help so far. I'll look into tablelist and Tcl/Tk when I'm a bit less busy in a few days' time and come back with questions if you don't mind. The author of tablelist appears to be a Hungarian like myself, so maybe I'll pester him if I can find contact info.
[reply]
[d/l]

In Section Seekers of Perl Wisdom