Visualizador de imagem
Publicado por tiago 07/04/2006
[ Hits: 6.620 ]
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
Corretagem 0.1 - calcula corretagem padrão de operações da Bovespa
Nenhum coment�rio foi encontrado.
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Alguém já usou o framework Avalonia para desenvolver interfaces de usu... (4)
Ajuda Pra Melhoria do NFTABLES. (8)
Sinto uma leve lentidão ao arrastar, miniminizar e restauras as janela... (2)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (7)