D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
usr
/
lib64
/
tcl8.6
/
Tix8.4.3
/
bitmaps
/
Filename :
mktransgif.tcl
back
Copy
# # $Id: mktransgif.tcl,v 1.1.1.1 2000/05/17 11:08:46 idiscovery Exp $ # #!/usr/local/bin/tclsh set dont(plusarm.gif) 1 set dont(minusarm.gif) 1 foreach file [glob *.gif] { if ![info exists dont($file)] { puts "giftool -1 -B $file" } }