| Server IP : 162.0.209.157 / Your IP : 3.137.175.83 [ Web Server : LiteSpeed System : Linux premium178.web-hosting.com 4.18.0-513.24.1.lve.2.el8.x86_64 #1 SMP Fri May 24 12:42:50 UTC 2024 x86_64 User : balaoqob ( 2395) PHP Version : 8.0.30 Disable Function : NONE Domains : 1 Domains MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /usr/lib64/tcl8.6/Tix8.4.3/bitmaps/ |
Upload 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"
}
}