Tkx. TKX é outra interface TK.
Baixe Agora

Tkx. Classificação e resumo

Tkx. Tag

Módulo Perl. a parte dianteira interface tk interface de Tk Frontend TK.

Tkx. Descrição

TKX é ainda outra interface TK. TKX é ainda outra interface TK.Synopsis usa TKX; meu $ mw = tkx :: widget-> novo ("."); $ mw-> new_button (-text => "olá, mundo", -command => sub {$ mw-> g_destroy;},) -> g_pack; TKX :: mainloop (); o módulo TKX fornece outra interface TK para Perl. O TK é um kit de ferramentas GUI vinculado ao idioma TCL, e o TKX fornece uma ponte para o TCL que permite que os aplicativos baseados em TK sejam escritos em Perl.A idéia principal por trás do TKX é que é um invólucro muito fino no topo do TCL, ou seja, que Você recebe é exatamente o comportamento que você leu na documentação do TCL / TK sem surpresas adicionadas pela camada Perl. As seguintes funções são fornecidas: TKX :: mainloop () Isso entrará no TK Mainloop e iniciará eventos de processamento. A função retorna quando a janela principal foi destruída. Não há valor de retorno.tkx :: EV ($ field, ...) Isso cria um objeto que se passou como o primeiro argumento a um retorno de chamada expandirá as substituições correspondentes de modelos TCL no contexto desse retorno de chamada. A descrição de TKX :: foo abaixo explicar como os argumentos de chamada são fornecidos. O campo $ deve ser uma string como "% A" ou "% X". As substituições disponíveis são descritas na documentação do TCL para o BIND Command.tkx :: Splitlist (Lista $) Isso dividirá uma lista de TCL na lista Perl. Os elementos individuais da lista são retornados como elementos separados: @a = tkx :: splitlist (tkx :: set ("A")); Esta função vai croak se o argumento não for uma lista bem formada ou se chamado em Context.tkx :: foo (@args) Qualquer outra função invocará a função Foo TCL com os argumentos dados. O nome Foo primeiro sofrer as seguintes substituições de sublinhamento incorporado: foo_bar -> "foo", "bar" # quebra em palavras foo__bar -> "foo :: bar" # acessar namespaces foo___bar -> "foo_bar" # quando você Na verdade, precisa de um '_' Isso nos permite convenientemente mapear a maior parte do namespace TCL para Perl. Se este mapeamento não atender você, use TKX :: I :: Ligue ($ FUNC, @AAR). Isso invocará a função nomeada por $ FUND sem substituições ou mágicas de nome. Exemplos: TKX :: Expr ("3 + 3"); TKX :: Package_Require ("bwidget"); Tkx :: dynamichelp__add (".", Text => "Olá"); if (tkx :: tk_windowsystem () EQ "x11") {...} if (tkx :: tk ___ MessageBox (...) eq "sim") {...} Os argumentos passados podem ser escalares simples, referências de matriz, Referências de código ou referências escalas. As referências da matriz são convertidas em listas de TCL. As matrizes podem conter outros escalares simples ou referências de matrizes para formar listas aninhadas. Para APIs TCL que requerem retornos de chamada, você pode passar uma referência a uma função Perl. Alternativamente, uma referência de matriz com uma referência de código como o primeiro elemento, permitirá que o retorno receba o restante dos elementos como argumentos quando invocados. Se o segundo elemento da matriz for um objeto TKX :: EV (), os modelos que contêm serão expandidos no momento do calllback. Alguns exemplos de retorno: TKX :: depois (3000, sub {Imprimir "Oi"}); Tkx :: Button (". B", -Command ); TKX :: BIND (".", "", n";}, tkx :: ev ("% a")]); TKX :: BIND ("." "," "Sub {my ($ x, $ y) = @_; imprimir" clicou em $ x $ yn ";}, tkx :: ev ("% x "" % Y "),]); Para as APIs TCL que exigem variáveis a serem aprovadas, você pode passar uma referência a um escalar Perl. O escalar será assistido e atualizado da mesma forma que a variável TCL faria. O resultado do string TCL é retornado no contexto escalar e da matriz. Os erros de TCL são propagados como exceções perl. Se a variável booleana $ TKX :: Trace estiver definida como um valor verdadeiro, então um rastreamento de todos os comandos passados para TCL será impresso em Stderr. Esta variável é inicializada a partir da variável de ambiente perl_tkx_trace. O rastreamento é útil para depuração e se você precisar reportar erros nos manteners TCL em termos de instruções TCL. As linhas de rastreamento são prefixadas com: TKX- $ SEQ- $ TS- $ file- $ linha: onde $ SEQ é um número de seqüência, $ ts é um timestamp em segundos, já que o primeiro comando foi emitido e $ file e $ line indicam Em qual linha de origem essa chamada foi acionada. Todas essas funções podem ser exportadas pelo TKX se você se cansar de digitar o prefixo TKX :: Exemplo: Use rigoroso; use tkx qw (botão mainloop botão destruir); pacote (botão (". B", -Text => "Pressione-me!", -Command => )); Mainloop; Nenhuma função é exportada por padrão.Requirements: · Requisitos de Perl: · Perl.

Tkx. Software Relacionado