Continuando nosso aprendizado com o Visual Tcl, vejamos como podemos construir um programa para enviar e-mails. Inicialmente devemos construir nossa interface visual, como já fizemos no projeto anterior. (fig1 - interface visual do mailer)

Nesse projeto, usaremos a facilidade de objetos compostos, "Compounds", do visual tcl. Esses objetos são na realidade vários widgets normais do tcl/tk, agrupados de forma mais simples de serem manipulados, mas sem tirar-nos o acesso aos seus componentes. Você poderá também criar seus próprios objetos compostos, inicialmente desenhando sua coleção de objetos e depois invocando o menu "Compound->Create", ou pelo teclado Alt-C. Depois de definir vários objetos compostos, você poderá também salvá-los num arquivo à parte, para poderem ser utilizados em outros projetos, através dos comandos "Compounds->Save Compounds" e "Compounds->Load Compounds".

Escolha a opção "pack" de gerenciamento de geometria (fig.2), pois esta permitirá melhor escolha do tamanho da janela final pelo usuario. No menu "Compound->Insert->System->Label and Entry" você poderá inserir as tres linhas do cabeçalho do mailer. Mude os rótulos para "From:", "To:" e "Subject:", respectivamente, ou, se preferir em português, "De:", "Para:" e "Assunto:".

Ao fazer isso, certifique-se  de que somente o label de cada objeto composto está selecionado. Se você notar que seus objetos não estão enchendo a tela na direção horizontal, é porque você precisa escolher o atributo "-fill x", o que é feito selecionando cada uma dos frames através da janela "Widget tree", como já mostramos anteriormente, e depois modificar o atributo no "Attribute editor".

Coloque agora um widget tipo "text", aonde será introduzida a mensagem a enviar. Para obter melhor estética, faça "ext x pad = 4" e "ext y pad = 10", também no editor de atributos. Uma alternativa é usar o objeto composto "Scrollable Text", mas depois que você aprender a fazer com o "text" padrão, não terá dificuldades em substituí-lo pelo composto. O cuidado a se ter é em relação aos "bindings", que deverão ser dados em função do widget tcl do interior e não o frame, que é somente um tipo de container para agrupar o objeto composto.

Resta-nos agora colocar os botões na parte inferior do mailer. Posicione um frame (fig.3) na parte inferior e no seu interior os botões, com o cuidado de escolher a direção de "packing" para a esquerda, ou seja, "-side left" no editor de atributos. Para ficar um espaço entre o frame e os botões, modifique também o padx e pady dos botões. Usei 10 unidades em ambos, mas fica a seu critério. Finalmente, selecione novamente o frame, através da janela "widget tree" e mude a sua opção "-relief" para "sunken", no lugar do default "flat", o que cria essa borda em volta dos botões.

frame

Resta-nos introduzir a funcionalidade desta interface, mas isso é assunto para a próxima semana... Até lá!

Anteriores

Visual Tcl Parte 3 (28/09/1999)
Visual Tcl Parte 2 (21/09/1999)
O Visual Tcl  (14/09/99)
Programando para Linux (08/09/1999)