NEVERSLEEP
Programmer
Greetings all,
Im having a trouble with a perl/Tk app of mine
im trying to ...well let me explain first
$nb is a Notebook widget
$entry is a Entry widget ($p1->Entry ...)
so im trying to set the focus on $entry each time
$p1 is raised i thought it would have been easy ...
but i didn't found a ->FOCUS method ...
so below is what i tried it works but .. only if there
is some value in this $entry so before i go defined or not ...
is there just a SETFOCUS method ?
thanks
my $p1 = $nb->add(
'Page1',
-label => 'Page One',
-raisecmd => sub {$entry->icursor(length $entry->get);}
); ---------------------------------------
someone knowledge ends where
someone else knowledge starts
Im having a trouble with a perl/Tk app of mine
im trying to ...well let me explain first
$nb is a Notebook widget
$entry is a Entry widget ($p1->Entry ...)
so im trying to set the focus on $entry each time
$p1 is raised i thought it would have been easy ...
but i didn't found a ->FOCUS method ...
so below is what i tried it works but .. only if there
is some value in this $entry so before i go defined or not ...
is there just a SETFOCUS method ?
thanks
my $p1 = $nb->add(
'Page1',
-label => 'Page One',
-raisecmd => sub {$entry->icursor(length $entry->get);}
); ---------------------------------------

someone knowledge ends where
someone else knowledge starts