Tkx TKX is nog een andere TK-interface.
Download nu

Tkx Rangschikking & Samenvatting

Tkx Tags

Perl-module voorkant koppel tk Tk-interface Tk frontend

Tkx Beschrijving

TKX is nog een andere TK-interface. TKX is nog een andere TK-interface.synopsis gebruik TKX; Mijn $ MW = TKX :: Widget-> Nieuw ("."); $ mw-> new_button (-text => "hallo, wereld", -command => sub {$ mw-> g_destroy;},) -> g_pack; TKX :: MainLoop (); de TKX-module biedt nog een andere TK-interface voor PERL. TK is een GUI-toolkit die is vastgebonden aan de TCL-taal en TKX biedt een brug aan TCL waarmee TK-gebaseerde toepassingen in Perl kunnen worden geschreven. Het belangrijkste idee achter TKX is dat het een zeer dunne wikkel bovenop TCL is, dat wil zeggen dat Je krijgt precies het gedrag dat je hebt gelezen in de documentatie van TCL / TK zonder verrassingen die door de Perl-laag zijn toegevoegd. De volgende functies zijn verstrekt: TKX :: MainLOOP () Hiermee wordt de TK-mainloop ingevoerd en beginnen met het verwerken van evenementen. De functie keert terug wanneer het hoofdvenster is vernietigd. Er is geen retourwaarde.tkx :: EV ($ Field, ...) Dit creëert een object dat indien gepasseerd als het eerste argument voor een callback de overeenkomstige TCL-sjabloonvervangingen zal uitbreiden in het kader van die callback. De beschrijving van TKX :: Foo hieronder leg uit hoe callback-argumenten zijn verstrekt. Het veld $ moet een reeks zijn zoals "% a" of "% x". De beschikbare substituties worden beschreven in de Documentatie van TCL voor de BIND-opdracht.tkx :: Splitlist ($ LIST) Hiermee wordt een TCL-lijst opgezet in Perl-lijst. De afzonderlijke elementen van de lijst worden geretourneerd als afzonderlijke elementen: @a = TKX :: Splitlist (TKX :: SET ("A")); Deze functie zal Croak zijn als het argument geen goed gevormde lijst is of als het in scalaire context is gebeld. Tkx :: foo (@Args) Elke andere functie zal de Foo TCL-functie aanroepen met de opgegeven argumenten. De naam FOO Eerst ondergaan de volgende substituties van ingesloten onderstrepingen: foo_bar -> "foo", "bar" # break in woorden foo__bar -> "foo :: bar" # toegang namespecaces foo___bar -> "foo_bar" # Eigenlijk heeft een '_' nodig. Hierdoor kunnen we de meeste van de TCL-naamruimte in kaart brengen in Perl. Als deze toewijzing niet bij u past, gebruik dan TKX :: I :: CALL ($ FUNC, @ARGS). Dit zal de functie van $ FUNC genoemd zonder naamsubstituties of magie aanroepen. Voorbeelden: TKX :: EXPR ("3 + 3"); Tkx :: pakket_require ("bwidget"); Tkx :: Dynamichelp__add (".", -Text => "Hallo daar"); if (TKX :: TK_WINDOWINGINGSYSTEM () EQ "X11") {...} if (TKX :: TK ___ MessageBox (...) EQ "JA") {...} De argumenten gepasseerd kunnen gewone scalairs, array-referenties zijn, Code referenties of scalaire referenties. Array-referenties worden geconverteerd naar TCL-lijsten. De arrays kunnen andere gewone scala's of arrayverwijzingen bevatten om genestelde lijsten te vormen. Voor TCL API's die callbacks vereisen, kunt u een verwijzing naar een PERL-functie doorgeven. Als alternatief zal een array-referentie met een code-referentie als het eerste element, de terugbellen toestaan om de rest van de elementen als argumenten te ontvangen wanneer deze wordt aangeroepen. Als het tweede element van de array een TKX :: EV () -object is, worden de sjablonen die het bevat, worden uitgebreid op het moment van de calllback. Sommige nummers voorbeelden: TKX :: na (3000, sub {print "HI"}); TKX :: knop (". B", -Command ); TKX :: Bind (".", "", n";}, TKX :: EV ("% a")]); TKX :: Bind (".", "", ); Voor TCL API's die variabelen vereisen die moeten worden aangenomen, kan u een verwijzing naar een perl-scalair passeren. De scalaire zal worden bekeken en op dezelfde manier bijgewerkt als de TCL-variabele. Het TCL-string-resultaat wordt geretourneerd in zowel Scalar- als array-context. TCL-fouten worden gepropageerd als PERL-uitzonderingen. Als de Booleaanse variabele $ TKX :: TRACE is ingesteld op een echte waarde, wordt een spoor van alle opdrachten die zijn doorgegeven aan TCL op Stderr wordt afgedrukt. Deze variabele wordt geïnitialiseerd vanuit de variabele Perl_tkx_trace omgeving. Het spoor is handig voor debugging en als u fouten moet melden aan de TCL-beheerders in termen van TCL-uitspraken. De traceerlijnen worden voorafgegaan met: TKX- $ SEQ- $ TS- $ -bestand- $ regel: waarbij $ SEQ een sequentienummer is, $ TS is een tijdstempel in seconden, aangezien de eerste opdracht is uitgegeven en $ Bestand en $ LINE aangeeft Op welke bronlijn is deze oproep geactiveerd. Alle deze functies kunnen worden geëxporteerd door TKX als u het moe bent van het typen van het TKX :: Prefix. Voorbeeld: gebruik strikt; Gebruik TKX QW (Snel Destroy); Pack (knop ("B", -text => "Druk op mij!", -Command => ); MainLoop; Geen functies worden geëxporteerd door default.Requirements: · Perl-vereisten: · Perl

Tkx Gerelateerde software