ok
Direktori : /proc/thread-self/root/usr/lib64/tcl8.5/Tix8.4.3/bitmaps/ |
Current File : //proc/thread-self/root/usr/lib64/tcl8.5/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" } }