Keresés

Most nincs kedvem visszanézni, hogy is van ez perl-tk-ban, de a nyers tk-s megoldást erre lehet alapozni:
pack [ entry .e1 ]
pack [ entry .e2 ]
pack [ button .b -command { puts [ focus ] } ]

Van i oszlopban j sornyi entry adatbeviteli mező

Szeretném kiiratni egy label-ben, hogy éppen melyik mezőben áll a kurzor (gyorsabban lehessen gépelni, mert egy pillantással fel lehet mérni hol járok)

Win+Linux alatt is menjen.

Hello

 

Perl Programozási nyelvhez értő munkatársakat keresünk naponta kb. 10-15 percet vesz igénybe.

 

Üdvözlettel: Földvári Balázs

Foldvari.balazs@internetholding.hu

06-30-740-78-12

 

 

 

 

 

JKJKFHJKHJKJHK

Koszi. Csak most olvastam el. Bar meg nem is tartok annyira elore a programban :)
drBJ

A nyitógomb command szubjába tegyél bele egy ellenőrzést.
Ha már fut, akkor vegye elő, és tegye ki előre.
Amúgy, ha bezárod, akkor "meg is szűnjön" az ablak.

Pl.:

if ($helpwin) {
$helpwin->focusForce;
$helpwin->raise();
$helpwin->deiconify;
return;
}
$helpwin->OnDestroy(sub {undef $helpwin});

Sziasztok
Windows alatti Perl/Tk programbol szeretnem meghivni a Winhelp-et.
Megy is, de: ujboli hivasra mindig uj ablak nyilik meg a helpnek. Szoval egyre tobb help ablak van.
Winhelpes pm-et nem talaltam.
Mi a teendo, van tippetek? (valami alternativ help megoldas is jo lehet)
Koszi
drBJ

Nem foglalkoztam d&d-pal.

Mit szolsz ehhez?
http://www.perltk.org/articles/Drag-and-Drop.htm

Drag'n'drop opció létezik?

Köszi szépen

#!/usr/bin/perl -w

use Tk;

$top=MainWindow->new();
$top->geometry('400x200+100+100');
$lbl=$top->Label(-text=>'Main window')->pack;

$top2=MainWindow->new();
$top2->geometry('500x300+200+200');
$lbl2=$top2->Label(-text=>'2. Main window')->pack;

MainLoop;
-----------------------------------

#!/usr/bin/perl -w

use Tk;

$top=MainWindow->new();
$top->geometry('400x200+100+100');
$lbl=$top->Label(-text=>'Main window')->pack;

$top2=$top->Toplevel(qw/-height 100 -width 300 -background red/);

$lbl2=$top2->Label(-text=>'Warning')->pack(-expand=>1);

MainLoop;

Köszi, de az a helyzet, hogy én egy egy "nagy" ablak elé történő "kis" ablak behelyezésre gondoltam, pl mint egy hibaüzenet.

Ezeket probald ki:
$top=MainWindow->new();
$top->geometry('400x200+100+100');
$txt=$top->Text()->place(qw/-width 200 -height 80 -x 200 -y 100 -anchor center/);
$txt->insert(qw/end Itt_a_szoveg_slave/ );
MainLoop;

es ezt:
$top=MainWindow->new();
$top->geometry('400x200+100+100');
$txt=$top->Text()->place(qw/-width 200 -height 80 -x 0 -y 0 -anchor nw/);
$txt->insert(qw/end Itt_a_szoveg_slave/ );
MainLoop;

es ezt:
$top=MainWindow->new();
$top->geometry('400x200+100+100');
$txt=$top->Text()->place(qw/-width 200 -height 80 -x 0 -y 0 -anchor w/);
$txt->insert(qw/end Itt_a_szoveg_slave/ );
MainLoop;

es ezt:
$top=MainWindow->new();
$top->geometry('400x200+100+100');
$txt=$top->Text()->place(qw/-width 200 -height 80 -x 0 -y 200 -anchor sw/);
$txt->insert(qw/end Itt_a_szoveg_slave/ );
MainLoop;

A fentiekben csak a place parameterei valtoznak.

Egy modszer: minden egyes slave-t rakd kulon Frame-be, es a Frame-t pozicionald valamelyik geom. managerrel. Ha ez se jo neked, akkor felreertettelek.

Es a (12)-beli link, az se jo?

Köszi, megnéztem, de az nagyon alap, ott szó sem volt róla.

Inkább ez kell neked:

http://www.oreilly.com/catalog/lperltk/chapter/ch02.html

Nézd meg kovetkezo cimen:
http://www.perl.com/pub/a/1999/10/perltk/

Az ablakon belüli slave pozícionálást nem tudtam összehozni.
Küldenél egy mintát?

Még nem próbáltam, mert nem volt rá szükségem.
Fluxbox wm-et használván nincs szükségem ikonokra.

Az iconimage opció neked egyébként működött már valaha?

Köszi, ezt kerestem.

Az Mwm dekoráció egyébként nekem sem megy.
Azért helyes a bugleírása: :-)):

BUGS

This is a Tix extension which perl/Tk has adopted. It has not been tested as perl/Tk's author has not got round to installing a Motif Window Manager.

On some versions of mwm, the -border will not disappear unless -resizeh is turned off. Also, the -title will not disappear unless all of -title, -menu, -maximize and -minimize are turned off.

:-)

Köszönöm a levelet! Meg fogom nézni.

A $toplevel->geometry(widthxheight+-x+-y) metodussal azt hiszem, tudnál boldogulni.

Illetve ablakon belüli pozícionálással a geometry
managerek foglalkoznak: man Tk::form, ::place, ::pack, ::grid.

Ha még aktív az itt megadott emiled, akkor küldtem egy csomagot Tk demókkal. Benne megtalálod a választ az egér+graf+szöveg problémádra.
(Ja, egy szimlinket nyomj a /usr/local/bin/-be a perl-hez, mert onnan akarja indítani.)

Csá

Utánanézek, de te addig pls. mondd meg nekem, hogyan lehet pozícioinálni az ablakokat, mert erre meg én nem jöttem rá!

Köszi!

Sziasztok!

Nekem az a kerdesem, hogy lehet letiltani ptk-bol az ablak kereteit es a cimsorat.
Sikertelenul probalkoztam a $toplevel->mwmDecoration metodussal.

Masik kerdesem: adva van egy canvasba agyazott text objektum. Hogy tudom megallapitani
a programban, hogy mikor van rajta a kurzor a text-en, es mikor nincs folotte?

Halika!

Ha valaki tudná, akkor mondja el, legyen kedves, miképpen lehet egyéni ikont tenni az ablak fejlécére, illetve ikonizált állpotban a panelgobmhoz.

Köszi

Profi PERL programozót keresek, aki objektum-orientáltan tud PERL-ben írni. Ha mindkettőnknek megfelel, állandó elfoglaltság is lehet belőle.
dstx@yahoo.com

Sziasztok.
Mostanaban foglalkozom Perl/Tk-val, es gondoltam nyitok egy topicot, hatha vannak mas elvetemultek akik ismerik es hasznaljak..

udv
Melak