Descrição
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
Scripts recomendados
tkFind
Renomeando arquivos de forma padronizada
Calculadora em Tcl/Tk
Visualizador de imagem
Script em Tcl para descompactar arquivos
Comentários
| Nenhum comentário foi encontrado. |
Indicar para um amigo
Escrever um script