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

Perl/Tk focus i <Tab>

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

[ Pregleda: 2479 | 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

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: 2796
*.gromnet.net.

Sajt: freeshell-reviews.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

NIKADA NE UZIMATI HOSTING NA GO DADDY!
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
Laptopovi

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: 2479 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

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