O
Visual Tcl
O tcl/tk como já vimos, é uma linguagem de "scripting"
que torna as coisas bem mais fáceis quando queremos criar uma
GUI (interface gráfica do usuário), quer em um sistema Linux,
e derivativos do Unix, quer em outros mais populares como o
Windows da Microsoft(MR) ou MacOS da Apple(MR).
Os
que advogam o Delphi(MR) porque tcl não é visual estão
redondamente enganados. A diferença é que o tcl é apenas a
linguagem, consideravelmente mais poderosa que o pascal
usado no Delphi, e quanto a ferramentas visuais existem
várias disponíveis para projetar interfaces no tcl/tk.
Examinemos
mais de perto o Visual Tcl, criado por Stewart Allen. Ele é
bastante intuitivo para ser aprendido em poucas horas, sem
limitar o programador no acesso às funções do tcl.
Após
iniciado o programa, a barra de menu principal nos dá acesso
às suas funções básicas. Primeiramente devemos criar um toplevel com
File->New (aplicações
mais complexas podem ter vários toplevels, inclusive) e
usando a barra de ferramentas podemos escolher que objetos
gostaríamos de introduzir na nossa interface. Escolheremos
nesse primeiro exemplo um botão
(desenho com um "B" em forma de botão), clicando na
barra de ferramentas.
Depois
podemos ajustar sua posição segurando o botão da esquerda
do mouse e arrastando-o para a posição desejada.
Feito isso, podemos mudar o texto que irá aparecer no
botão escrevendo na caixa de entrada que fica à esquerda da
barra principal, escolhendo mensagem como seu
texto.
Para
ficar completo nosso primeiro programa, iremos clicar
novamente no toplevel da nossa aplicação
para selecioná-lo e colocaremos outro botão repetindo o
procedimento acima.
Nesse outro botão colocaremos o texto saida.
E está pronta nossa interface!
Agora
devemos criar funcionalidade para a nossa interface. Com um
duplo-clique em cada um desses botões (um de cada vez!)
aparecerá uma janela como a da figura, que permitirá
introduzirmos o código a ser executado quando o botão
correspondente for pressionado.
No botão mensagem colocaremos puts SOSlinux
e no segundo exit.
Agora
podemos testar se tudo está funcionando, salvando
primeiramente o programa (menu "File->Save" e
escolha um nome para o programa) e executando-o com a linha de
comando, a partir de um xterm ou outro terminal em X-Windows,
"wish rograma.tcl" e a nossa janela aparecerá .
Quando
pressionarmos o botão "mensagem", a mensagem
(comando puts) será
mostrada no terminal, apertando saida o programa
será encerrado.
