Import build of Tcl/Tk 8.6.10
This commit is contained in:
@@ -1,14 +1,14 @@
|
||||
#
|
||||
# $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"
|
||||
}
|
||||
}
|
||||
|
||||
#
|
||||
# $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"
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user