home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / Texte / scribus / scribus-1.3.3.9-win32-install.exe / tcl / tix8.1 / bitmaps / mktransgif.tcl < prev    next >
Text File  |  2000-05-17  |  263b  |  15 lines
  1. #
  2. #    $Id: mktransgif.tcl,v 1.1.1.1 2000/05/17 11:08:46 idiscovery Exp $
  3. #
  4. #!/usr/local/bin/tclsh
  5.  
  6. set dont(plusarm.gif)  1
  7. set dont(minusarm.gif) 1
  8.  
  9. foreach file [glob *.gif] {
  10.     if ![info exists dont($file)] {
  11.     puts "giftool -1 -B $file"
  12.     }
  13. }
  14.  
  15.