param - abre aplicativos com parâmetros no Blackbox e outros

Publicado por Perfil removido (última atualização em 25/11/2009)

[ Hits: 3.997 ]

Download param




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.

  



Esconder código-fonte

#!/bin/sh 
# \
exec wish "$0" "[email protected]"

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

Calculadora com funções básicas

Calculadora em Tcl/Tk

Script em Tcl para descompactar arquivos

Cadeias aleatórias

Script lixeira em Tcl


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts