Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Perl/Tk focus i <Tab>

[es] :: Perl :: Perl/Tk focus i <Tab>

[ Pregleda: 2019 | Odgovora: 3 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

misa vranje
Milos Stanojevic
Vranje

Član broj: 15298
Poruke: 127
*.verat.net.



Profil

icon Perl/Tk focus i <Tab>18.04.2005. u 22:35

Kako da kada udarim TAB u Entry-ju da ne predje iz njega na sledeci element nego da samo izvrsi neku funkciju i ostane u tom Entryju?
Evo primer slicnog problema(u njemu hocu da Tab radi isto sto i F2 a on to naravno ne radi):

#!/usr/bin/perl -w
use strict;
use Tk;

my $main=new MainWindow;
my $entry=$main->Entry->pack;
my $label=$main->Label(-text=>'text')->pack;
my $entry2=$main->Listbox->pack;
$entry->bind('<Tab>',\&work);
$entry->bind('<F2>',\&work);
sub work{
$label->configure(-text=>$entry->get);
$entry->focus
}
MainLoop

pomoc hitno potrebna
18.04.2005. u 22:35 

Mitrović Srđan
bloodzero
Majur //: Šabac

Član broj: 10261
Poruke: 2745
*.gromnet.net.

Sajt: www.bonnellstreet.com


Profil

icon Re: Perl/Tk focus i <Tab>18.04.2005. u 23:14
nisam na linu sad pa sam trazio po nekim svojim starim primerima za bind i focus

Code:
my $class = ref $b; 
$b->bind($class, '<TAB>' => [\&func, 2]);


...bi bilo za bind
Tony Melendez:
http://video.google.com/videoplay?docid=-
3819862628517136815&q=tony+melendez

Ne Brže Od Života!
http://www.shouldiusetablesforlayout.com/ :)
18.04.2005. u 23:14 

misa vranje
Milos Stanojevic
Vranje

Član broj: 15298
Poruke: 127
217.26.66.*



Profil

icon Re: Perl/Tk focus i <Tab>19.04.2005. u 20:27
Hvala ti blood ali mi ipak nisi pomogao.
Znam ja da napravim 'obican' dogadjaj(pogledaj kod koji sam ostavio) ali mi je problem samo oko Tab tastera.Isprobaj kod koji sam ostavio i videces u cemu je problem.Zelim da mi se ,u tom slucaju, Tab ponasa isto kao i F2.Kako to da izvedem?
19.04.2005. u 20:27 

misa vranje
Milos Stanojevic
Vranje

Član broj: 15298
Poruke: 127
*.verat.net.



Profil

icon Re: Perl/Tk focus i <Tab>28.04.2005. u 20:39
Resio sam problem uz pomoc stapa i kanapa.Naravno resenje nije najbolje ali zadovoljava moje potrebe.Primer koda koji radi to sto sam zeleo:

#!/usr/bin/perl -w
use strict;
use Tk;

my $main=new MainWindow;
my $entry=$main->Entry->pack;
my $listbox=$main->Listbox->pack;
$entry->bind('<Tab>',\&tab);

$entry->bind('<Return>',\&prelazak);
sub tab{
print "Uhvatio sam tab a nisam izasao :)\n";
$entry->bind('<FocusOut>',sub {$entry->focus});
$entry->bind('<FocusIn>',sub{
$entry->bind('<FocusOut>',sub{});
$entry->bind('<FocusIn>',sub{});
})
}
sub prelazak{
print "Pomeram fokus sa Enter umesto sa Tab\n";
$listbox->focus
}
MainLoop
28.04.2005. u 20:39 

[es] :: Perl :: Perl/Tk focus i <Tab>

[ Pregleda: 2019 | Odgovora: 3 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.