ZerethShell
File Manager
SQL Manager
/
lib64
/
tcl8.6
/
Tix8.4.3
/
bitmaps
mktransgif.tcl
# # $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" } }
Kaydet
Vazgeç