Posted to tcl by aku at Tue Mar 25 19:40:13 GMT 2008view pretty
package ifneeded img::base 1.3 [list load [file join $dir libtkimg1.3.so]] package ifneeded Img 1.3 { # Compatibility hack. When asking for the old name of the package # then load all format handlers and base libraries provided by tkImg. # Actually we ask only for the format handlers, the required base # packages will be loaded automatically through the usual package # mechanism. # When reading images without specifying it's format (option -format), # the available formats are tried in reversed order as listed here. # Therefore file formats with some "magic" identifier, which can be # recognized safely, should be added at the end of this list. package require img::window package require img::tga package require img::ico package require img::pcx package require img::sgi package require img::sun package require img::xbm package require img::xpm package require img::ps package require img::jpeg package require img::png package require img::tiff package require img::bmp package require img::ppm package require img::gif package require img::pixmap package provide Img 1.3 } package ifneeded img::bmp 1.3 [list load [file join $dir libtkimgbmp1.3.so]] package ifneeded img::gif 1.3 [list load [file join $dir libtkimggif1.3.so]] package ifneeded img::ico 1.3 [list load [file join $dir libtkimgico1.3.so]] package ifneeded img::jpeg 1.3 [list load [file join $dir libtkimgjpeg1.3.so]] package ifneeded img::pcx 1.3 [list load [file join $dir libtkimgpcx1.3.so]] package ifneeded img::pixmap 1.3 [list load [file join $dir libtkimgpixmap1.3.so]] package ifneeded img::png 1.3 [list load [file join $dir libtkimgpng1.3.so]] package ifneeded img::ppm 1.3 [list load [file join $dir libtkimgppm1.3.so]] package ifneeded img::ps 1.3 [list load [file join $dir libtkimgps1.3.so]] package ifneeded img::sgi 1.3 [list load [file join $dir libtkimgsgi1.3.so]] package ifneeded img::sun 1.3 [list load [file join $dir libtkimgsun1.3.so]] package ifneeded img::tga 1.3 [list load [file join $dir libtkimgtga1.3.so]] package ifneeded img::tiff 1.3 [list load [file join $dir libtkimgtiff1.3.so]] package ifneeded img::window 1.3 [list load [file join $dir libtkimgwindow1.3.so]] package ifneeded img::xbm 1.3 [list load [file join $dir libtkimgxbm1.3.so]] package ifneeded img::xpm 1.3 [list load [file join $dir libtkimgxpm1.3.so]]