Início / coding / Perguntas / 78902431
Accepted
georgtree
Asked: 2024-08-22 23:46:10 +0800 CST

Rastrear variável de objetos específicos em Tcl (TclOO)

  • 772

Minha pergunta é: é possível rastrear variável de determinado objeto? Por exemplo, tenho 5 objetos da mesma classe e preciso verificar se determinada variável em cada objeto foi alterada e chamar um procedimento específico que é atualizado no widget Tk que corresponde a esse objeto específico. Fiquei um pouco preso porque sei que podemos adicionar rastreamento à variável global, mas não tenho certeza de como rastrear a variável dentro de um objeto específico, especialmente se ela não puder existir até que a escrita ocorra. Desde já agradeço, Jorge.

tcl

1 respostas

  1. Best Answer

    O varnamemétodo padrão (normalmente não exportado, portanto normalmente só pode ser usado via my) deve fornecer algo que você possa usar traceou um widget Tk.

    oo::class create Example {
    variable xyz
    constructor {script} {
        trace add variable [my varname xyz] write $script
    }
    method test {} {
        set xyz 123
    }
}

Example create eg {apply {args {
    puts "Foo: $args"
}}}
eg test

    Observe que neste caso específico, você não precisa varnameporque traceresolve o nome da variável usando regras locais. Mas você faria isso se estivesse usando vwaitum widget Tk.

    Um caso relacionado comum é quando você deseja que o rastreamento chame um método (não exportado) do objeto. Nesse caso, você faz o retorno de chamada do trace com algo assim:

    trace add variable $varName write [namespace code {my CallbackMethod}]

    O Tcl 8.7/9.0 tem um callbackcomando para facilitar isso.

    trace add variable $varName write [callback CallbackMethod]
    • 2

relate perguntas