Posted to tcl by aku at Tue Mar 25 19:40:13 GMT 2008view raw

  1. package ifneeded img::base 1.3 [list load [file join $dir libtkimg1.3.so]]
  2.  
  3. package ifneeded Img 1.3 {
  4. # Compatibility hack. When asking for the old name of the package
  5. # then load all format handlers and base libraries provided by tkImg.
  6. # Actually we ask only for the format handlers, the required base
  7. # packages will be loaded automatically through the usual package
  8. # mechanism.
  9.  
  10. # When reading images without specifying it's format (option -format),
  11. # the available formats are tried in reversed order as listed here.
  12. # Therefore file formats with some "magic" identifier, which can be
  13. # recognized safely, should be added at the end of this list.
  14.  
  15. package require img::window
  16. package require img::tga
  17. package require img::ico
  18. package require img::pcx
  19. package require img::sgi
  20. package require img::sun
  21. package require img::xbm
  22. package require img::xpm
  23. package require img::ps
  24. package require img::jpeg
  25. package require img::png
  26. package require img::tiff
  27. package require img::bmp
  28. package require img::ppm
  29. package require img::gif
  30. package require img::pixmap
  31.  
  32. package provide Img 1.3
  33. }
  34. package ifneeded img::bmp 1.3 [list load [file join $dir libtkimgbmp1.3.so]]
  35. package ifneeded img::gif 1.3 [list load [file join $dir libtkimggif1.3.so]]
  36. package ifneeded img::ico 1.3 [list load [file join $dir libtkimgico1.3.so]]
  37. package ifneeded img::jpeg 1.3 [list load [file join $dir libtkimgjpeg1.3.so]]
  38. package ifneeded img::pcx 1.3 [list load [file join $dir libtkimgpcx1.3.so]]
  39. package ifneeded img::pixmap 1.3 [list load [file join $dir libtkimgpixmap1.3.so]]
  40. package ifneeded img::png 1.3 [list load [file join $dir libtkimgpng1.3.so]]
  41. package ifneeded img::ppm 1.3 [list load [file join $dir libtkimgppm1.3.so]]
  42. package ifneeded img::ps 1.3 [list load [file join $dir libtkimgps1.3.so]]
  43. package ifneeded img::sgi 1.3 [list load [file join $dir libtkimgsgi1.3.so]]
  44. package ifneeded img::sun 1.3 [list load [file join $dir libtkimgsun1.3.so]]
  45. package ifneeded img::tga 1.3 [list load [file join $dir libtkimgtga1.3.so]]
  46. package ifneeded img::tiff 1.3 [list load [file join $dir libtkimgtiff1.3.so]]
  47. package ifneeded img::window 1.3 [list load [file join $dir libtkimgwindow1.3.so]]
  48. package ifneeded img::xbm 1.3 [list load [file join $dir libtkimgxbm1.3.so]]
  49. package ifneeded img::xpm 1.3 [list load [file join $dir libtkimgxpm1.3.so]]