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

Perl/Tk focus i <Tab>

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

[ Pregleda: 3605 | Odgovora: 3 ] > FB > Twit

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 - pre 200 meseci
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
 
Odgovor na temu

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

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

Sajt: freeshell-reviews.com


+4 Profil

icon Re: Perl/Tk focus i <Tab>18.04.2005. u 23:14 - pre 200 meseci
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

NIKADA NE UZIMATI HOSTING NA GO DADDY!


 
Odgovor na temu

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 - pre 200 meseci
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?
 
Odgovor na temu

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 - pre 200 meseci
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
 
Odgovor na temu

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

[ Pregleda: 3605 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

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