In MatchEntryMListbox.pm, you have:

    my $scrolled_mlistbox = $popup_frame->Scrolled(
        qw/MListbox -selectmode browse -scrollbars oe/
        );
[download]

Change scrollbars setting from oe to e, your GUI looked fine. I understand that oe is a valid setting, but...

    my $scrolled_mlistbox = $popup_frame->Scrolled(
        qw/MListbox -selectmode browse -scrollbars e/
        );
[download]

But this is not a bug with Tk::MListbox, as this works:

use Tk;
use Tk::MListbox;

my $mw = MainWindow->new();
$ml=$mw->Scrolled("MListbox", -scrollbars=>"oe", -columns=>[[-text=>'H
+eading1', -sortable=>0], [-text=>'Heading2']])->pack();

MainLoop;
[download]

Ok, changing from oe to e didnt make any difference here at all. First Column is still small, and doesnt seem to be affected at all. Thanks for trying though.

First, when you distribute custom modules for testing, you should keep them in the working directory for easy cleanup and prevention of garbage collecting in PERL5LIB. So you could have just created a directory in your script directory, called Tk, put your custom module in it, and put " use lib '.' " in your test script.

Having done that, when I run your test script, I get

"$full_path" requires explicit package name......
[download]

Now that brings us to what is probably causing it. I'm just guessing here, but you are probably getting the default width for MListbox, not what you are passing in as the population hash. Why? Read "perldoc Tk::Derived" and pay close attention to the Populate sub

 sub Populate {
       my( $self, $args ) = @_;

       my $flag = delete $args->{-flag};
          if( defined $flag ) {
           # handle -flag => xxx which can only be done at create
           # time the delete above ensures that new() does not try
           # and do  $self->configure( -flag => xxx );
               }
......
.......
[download]

Hey,

"First, when you distribute custom modules for testing, you should keep them in the working directory for easy cleanup and prevention of garbage collecting in PERL5LIB. So you could have just created a directory in your script directory, called Tk, put your custom module in it, and put " use lib '.' " in your test script."

Ok, gonna do that next time then. Thanks.


"Having done that, when I run your test script, I get "$full_path" requires explicit package name...... "

Ok, crap. I fixed that problem on the zip, but I guess you got it before I did that... Sorry about that. Those things bugs me, when you get some test example, and the example isnt even working! (well, atleast this kind of error is annoying).

And about the problem. Well, Im not sure what I'm supposed to do with the Tk::Derived...
Also, I dont understand how the width is in the mlistbox widget (according to Data::Dumper), but still seems to have no affect. And, since the other width's works fine (doing the  columnInsert('end', -width => $width, -text => $text);) I mean, since the others work, it doesnt seem to be lost... if not somehow _just the first_ is poped out or deleted somehow and size is set to 1 (or something like that). But it all seems like contradictions... gonna do some more testings here, when Im calm down... :)

Tk::Derived is a module to help you correctly make custom widgets, which inherit problem-free from parent widgets.

I may have been "guessing" at the root-source of the problem, and like pg suggested, I got your window to display properly by setting the scrollbar to 's' in the module. 'oe' didn't work for me.

---

I'm not really a human, but I play one on earth. flash japh

Why was there no initial investigation done by yourself?

Come again? Well, I've tested around. Even set the $width in columnInsert('end', -width => $width, -text => $text); to a fix size... no luck.. And this is where it should be the problem, so to speak... but even when I did a print Dumper($mlistbox), it said width = 20... I'm having hard time figuring what the problem could be at this point... can't be that the widget needs an update, and as seen, no wrong value... using latest Tk, v804.027...