Visualizador de imagem
Publicado por tiago 07/04/2006
[ Hits: 6.473 ]
Num ta muito bom , mas da pra ver algumas imagens :)
Precisa do tkimg --> http://sourceforge.net/projects/tkimg/
#!/usr/bin/wish ######################################### # # # Autor: Tiago Nascimento Marques # # JID: tiagotnm@amessage.info # # Msn: tiago-nm@hotmail.com # # E-mail: tiagotux@gmail.com # # # ######################################### package require Img set fig "Nenhum arquivo" menu .menu menu .menu.file .menu add cascade -label "Arquivo" -menu .menu.file -underline 0 .menu.file add command -label "Abrir" -command {abrir} -accelerator "<Control-a>" .menu.file add separator .menu.file add command -label "Imprimir" -command {imprimir} -accelerator "<Control-p>" .menu.file add command -label "Sair" -command {exit} -accelerator "<Esc>" . configure -menu .menu ################################################ # BIND # ################################################ bind all <Control-p> {imprimir} bind all <Control-a> {abrir} bind all <Key-Escape> {exit} label .lbl -background white ################################################## if {$argv != ""} { set file [ lindex $argv 0 ] image create photo jpg -file [ file join $file ] .lbl configure -image jpg set x [ image width jpg ] set y [ image height jpg ] .lbl configure -width $x -height $y set meio "x" set res $x$meio$y wm geometry . $res+0+0 wm title . "TkView - $file" } #################################################### # PROCEDURES # #################################################### proc abrir {} { global fig dir initdir set tipos { { "Extenções de imagem" {.jpg .jpeg .bmp .gif .png .xpm} } } set imagem [ tk_getOpenFile -filetypes $tipos -parent . ] if {$imagem != ""} { set fig $imagem image create photo jpg -file [ file join $fig ] .lbl configure -image jpg set x [ image width jpg ] set y [ image height jpg ] .lbl configure -width $x -height $y set meio "x" set res $x$meio$y wm geometry . $res+0+0 wm title . "TkView - $fig" } } proc imprimir {} { toplevel .p wm title .p "Imprimir - " wm geometry .p 300x170+0+0 label .p.lblnum -text "Número de cópias" spinbox .p.spi -from 1 -to 50 -textvariable valor button .p.btok -text "Ok" -command { exec lpr-cups -# $valor $fig destroy .p } proc arg {$argv} { } button .p.btcancel -text "Cancelar" -command { destroy .p} pack .p.lblnum .p.spi pack .p.btok pack .p.btcancel } wm title . "TkView - $fig" wm geometry . 1024x708+0+0 . configure -background white pack .lbl
Calculadora com funções básicas
Crivo de Eratóstenes Simples em Tcl (sem Tk)
Script em Tcl para descompactar arquivos
Nenhum comentário foi encontrado.
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Não to conseguindo resolver este problemas ao instalar o playonelinux (1)
Excluir banco de dados no xampp (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta