Author Archives: LES

Tcl/Tk: sondagem do sistema com variáveis

Às vezes, ajuda muito poder examinar determinadas condições do sistema enquanto um programa/script é executado, mais ou menos como quem está voando e verifica as condições meteorológicas. Não só em procedimentos de depuração, embora eu ache que estes sejam os casos mais comuns. … Continue reading

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

Tcl/Tk: Introspecção com comando info

introspecção: [Do ingl. introspection.] S. f. 1. Observação da vida interior pelo próprio sujeito; exame que alguém faz dos próprios pensamentos e sentimentos. Dicionário Aurélio – Século XXI Às vezes, ajuda muito poder examinar TUDO que está acontecendo em um … Continue reading

Posted in Tcl-Tk | Tagged , , | 2 Comments

Tcl/Tk: Como copiar e colar (clipboard, área de transferência)

Podemos obter o conteúdo (texto) da área de transferência, mais conhecida por aí como “clipboard”, a mesma que é usada nas operações de copiar-e-colar do ambiente gráfico. Antes, é preciso carregar o pacote Tk. Você pode rodar estes testes com o executável “wish”, … Continue reading

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

Tcl/Tk: Reproduzir sons

A primeira coisa a se fazer é carregar o pacote Snack: % package require sound 2.2 Se o número da versão do pacote for retornado, significa que ele está presente e foi carregado. Se não, é preciso verificar a instalação do … Continue reading

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

Tcl/Tk: Expressões aritméticas sem "expr"

O comando [expr] é um dos que mais desagradam quem está começando a programar em Tcl, por causa da sintaxe: % puts “2 + 2 = [ expr {2+2} ]” 2 + 2 = 4 O comando [unknown], super versátil, … Continue reading

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

Tcl/Tk: Criar vários nomes para um comando (alias)

Além de renomear comandos em Tcl/Tk, também é possível criar “apelidos” para os comandos com o [interp alias]. Por exemplo, o comando [file exists] verifica se um determinado arquivo existe: % if { [file exists “/caminho/do/arquivo.txt”] == 1 } { … Continue reading

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

Tcl/Tk: Renomear e remover comandos

Tcl/Tk tem propriedades camaleônicas. Praticamente tudo pode ser modificado, o que pode resultar na criação de uma linguagem quase inteiramente nova. Por exemplo, se você não gostar do comando nativo [puts] porque está muito acostumado com ‘echo’, pode mudar o … Continue reading

Posted in Tcl-Tk | Tagged , , , , | 5 Comments

Tcl/Tk: Usar o valor do número Pi

Não existe comando nativo em Tcl/Tk que retorne o valor de Pi. Mas o valor de Pi está disponível em muitos lugares, logo é fácil registrar seu valor numa variável ou num procedimento e usá-lo sempre que quiser. Numa variável: … Continue reading

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

Tcl/Tk: Ler o conteúdo de um arquivo (texto)

Para ler/extrair todo o conteúdo de um arquivo de texto, basta: criar um ponteiro para abrir o arquivo; ler o conteúdo *do ponteiro* com o parâmetro “r” (read); fechar o arquivo por meio do ponteiro; imprimir o conteúdo na tela … Continue reading

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