mktransgif.tcl

来自「这是一个Linux下的集成开发环境」· TCL 代码 · 共 12 行

#!/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"
    }
}