Category Archives: Tcl-Tk

Tcl/Tk: Obter chaves e valores de um array set

Posted on 07/11/2007 by Lauro Cesar de Oliveira

Com o comando: array set minha_var { chave {valor} chave2 {valor2} } Criamos uma array com diversas chaves e valores. Exemplo: array set produtos { } set produtos(nome) { Banana Caturra } puts $produtos(nome) # Retorna: Banana Caturra Para listar … Continue reading →

Posted in Tcl-Tk | Tagged , , , , , , | 1 Comment

Tcl/Tk: Substituir strings

Posted on 26/10/2007 by Lauro Cesar de Oliveira

Para manipular Strings em Tcl, utilizamos o comando string. Se precisar substituir ponto por vírgula: set valor { 10.00 } puts [string map -nocase { . , } $valor] # Retorna: 10,00 Podemos substituir várias cadeias de caracteres: set texto … Continue reading →

Posted in Tcl-Tk | Tagged , , , | Leave a comment

Tcl/Tk: Carregando scripts em lote (bibliotecas)

Posted on 23/10/2007 by Lauro Cesar de Oliveira

E possível destinar um diretório para nossos códigos auxiliares ou plugins, e na inicialização do sistema importá-los, utilizando o comando source. Por exemplo, considerando que há vários arquivos .tcl no diretório plugin/ foreach p “[glob plugin/*.tcl]” { source $p }

Posted in Tcl-Tk | Tagged , , , , , , | Leave a comment

Tcl/Tk: Capturando e tratando erros

Posted on 17/10/2007 by Lauro Cesar de Oliveira

Palavras-chave: Tcl/Tk, capturar, erros Quando um procedimento é executando em Tcl, ele retorna 1 (sucesso) ou 0 (falha). É este resultado que faz o interpretador mostrar ou não um erro. Para não mostrar o erro ao usuário, mas detectá-lo e … Continue reading →

Posted in Tcl-Tk | Tagged , , , | 1 Comment

Tcl/Tk: Reduzindo linhas

Posted on 03/10/2007 by Lauro Cesar de Oliveira

Palavras-chave: Tcl/Tk, pack, grid, place A sintaxe padrão para a criação de widgets é: widget toplevel.my_id opções_do_widget pack toplevel.my_id opções_do_pack Mas também é possível reunir tudo em uma só linha: pack [widget toplevel.my_id opções_do_widget] opções_do_pack Por exemplo: label .my_label -text ”Oi Mundo!” -bg … Continue reading →

Posted in Tcl-Tk | Leave a comment