Visualizador de imagem
Publicado por tiago 07/04/2006
[ Hits: 6.333 ]
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
Script em Tcl para descompactar arquivos
Nenhum comentário foi encontrado.
Qual seu hardware e distribuição estão rodando na sua máquina? (1)
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Criar uma base de reconhecimento de HW no VOL (5)
Adaptador Bluetooth USB que funciona no Linux (42)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba