Escrevi esse "scriptzim" para facilitar umas coisas - que não lembro agora! - no tempo em que usava muito o Blackbox. O uso é colocar o script nos menus, assim:

param firefox
param abiword

Não lembro a sintaxe para aparecer o nome no menu, mas ali no exemplo seria "Firefox" e "Abiword". Aí ele executa o aplicativo e antes abre uma janelinha para digitarmos opções ou a URL do navegador ou nome de arquivo.

Acho que hoje não tem mais serventia, mas está aí... Testem e me digam o que acham.

• Download param
• Enviar nova versão

Esconder código-fonte

#!/bin/sh 
# \
exec wish "$0" "$@"

proc call_exec {app} {
        set par [.e1 get]
        set my_file [open [join "~/. $app _param" ""] w]
        puts -nonewline $my_file $par
        if {$par == ""} {
                exec $app &
        } else {
                exec $app $par &
        }
        exit 0
}

wm geometry . +333+333
label .l1 -text "Enter filename or parameters:"
pack .l1
entry .e1 -width 30
if {[file exists [join "~/. $argv _param" ""]]} {
        set my_file [open [join "~/. $argv _param" ""] "r"]
        set my_param [read $my_file]
        .e1 insert 0 $my_param
}
button .b1 -text "OK" -command { call_exec $argv}
pack .e1 .b1 -side left
focus .e1

Visualizador de imagem

Calculadora com funções básicas

Relógio analógico

Script em Tcl para descompactar arquivos

Crivo de Eratóstenes Simples em Tcl (sem Tk)

Nenhum coment�rio foi encontrado.