It's me back again fellow monks!

I got a long way with multiple widows being opened from menues etc. after your advice yesterday.

I have a window with a BrowseEntry object at the top, then a series of LabEntry objects. I can select the entry I want in the BrowseEntry and use DBI to get it form the database, but how do I fill in teh values in teh LabEntry's?

Gotta be something simple that this simple initiate is missing!

Pardon the code, it is at a very early stage! I am just trying to get a grip of this Tk stuff.

sub doTLUser {
    if (! Exists($tlu)) {
        $tlu = $mainwindow->Toplevel();
        $tlu->title("User Management");

        $lb = $tlu->BrowseEntry(-label => 'Username',
            -variable => \$search_string,)->pack;
        $lb->bind("<Return>", \&do_search);
        $lb->focus;
        $SQL = "SELECT username FROM user;";
        $sth = &Do_SQL;

        while ($username = $sth->fetchrow_array) {
            push @listnames, $username;
        }
        $sth->finish;
        $lb->insert('end', @listnames);

        $tlu->LabEntry(-label => "First Name",
            -labelPack => [-side => "left", -anchor => "w"],
            -width => 20,
            -textvariable => \$user->{firstname})->pack(-side => "top"
+,
                -anchor => "ne");

        $tlu->LabEntry(-label => "Last Name",
            -labelPack => [-side => "left", -anchor => "w"],
            -width => 20,
            -textvariable => \$user->{lastname})->pack(-side => "top",
                -anchor => "ne");

        $tlu->LabEntry(-label => "Password",
            -labelPack => [-side => "left", -anchor => "w"],
            -width => 20,
            -textvariable => \$user->{password})->pack(-side => "top",
                -anchor => "ne");


        $tlu->Button(-text => "Close",
            -command => sub {$tlu->withdraw})->pack(-side => "bottom")
+;
    } else {
        $tlu->deiconify();
        $tlu->raise();
    }
}

#
# do_search
# Take the variable returned by the BrowseEntry and search for it in t
+he database.
#
sub do_search {
    print "String returned: $search_string\n";
    $SQL  = "SELECT username, firstname, lastname, password FROM user 
+WHERE username =\'$search_string\'";
    $sth = &Do_SQL;
    while ($user = $sth->fetchrow_hashref) {
        print "$user->{firstname}\n";
        return;
    }
    print "User not found so enter data\n";
    return;
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.