modules/ico/ico0.tcl

0 # ico.tcl --
3 # Win32 ico manipulation code
17 #	set icos [::ico::getIconList $file]
18 #	set img  [::ico::getIcon $file 1 -format image]
23 namespace eval ::ico {
24     namespace export getIconList getIcon writeIcon copyIcon transparentColor clearCache EXEtoICO
59 proc ::ico::getIconList {file args} {
91 proc ::ico::getIcon {file index args} {
131 proc ::ico::writeIcon {file index bpp data args} {
184 proc ::ico::copyIcon {f1 i1 f2 i2 args} {
205 # transparentColor --
216 proc ::ico::transparentColor {img color} {
255 proc ::ico::clearCache {{file {}}} {
277 proc ::ico::EXEtoICO {exeFile icoFile} {
290 	set ico $ICONS($file,$i,data)
291 	eval [list lappend dir] $ico
292 	append data [read $fh [eval calcSize $ico 40]]
325 proc ::ico::fileext {file} {
330 proc ::ico::parseOpts {acc opts} {
343 proc ::ico::formatColor {r g b} {
349 proc ::ico::translateColors {colors} {
362 proc ::ico::getdword {fh} {
367 proc ::ico::getword {fh} {
372 proc ::ico::getulong {fh} {
377 proc ::ico::getushort {fh} {
383 proc ::ico::bputs {fh format args} {
388 proc ::ico::createImage {colors {name {}}} {
416 proc ::ico::getIconAsColorList {w h bpp palette xor and} {
493 proc ::ico::getAndMaskFromColors {colors} {
508 proc ::ico::getXORFromColors {bpp colors} {
568 proc ::ico::getColorListFromImage {img} {
591 proc ::ico::getPaletteFromColors {colors} {
616 proc ::ico::calcSize {w h bpp {offset 0}} {
625 proc ::ico::readDIB {fh} {
658 proc ::ico::readDIBFromData {data loc} {
699 proc ::ico::getIconListICO {file} {
729 proc ::ico::getIconListICODATA {data} {
756 proc ::ico::getIconListBMP {file} {
765 proc ::ico::getIconListEXE {file} {
781 proc ::ico::getRawIconDataICO {file index} {
804 proc ::ico::getRawIconDataICODATA {data index} {
811     # Move to ico location
823 proc ::ico::getRawIconDataBMP {file {index 0}} {
852 proc ::ico::getRawIconDataEXE {file index} {
870 proc ::ico::writeIconICO {file index w h bpp palette xor and} {
954 proc ::ico::writeIconICODATA {file index w h bpp palette xor and} {
966 proc ::ico::writeIconBMP {file index w h bpp palette xor and} {
978 proc ::ico::writeIconEXE {file index w h bpp palette xor and} {
999 proc ::ico::SearchForIcos {file {index -1}} {
1025 proc ::ico::SearchForIcosNE {fh file index} {
1061 proc ::ico::SearchForIcosPE {fh file index} {
1119 interp alias {} ::ico::getIconListDLL    {} ::ico::getIconListEXE
1120 interp alias {} ::ico::getRawIconDataDLL {} ::ico::getRawIconDataEXE
1121 interp alias {} ::ico::writeIconDLL      {} ::ico::writeIconEXE
1122 interp alias {} ::ico::getIconListICL    {} ::ico::getIconListEXE
1123 interp alias {} ::ico::getRawIconDataICL {} ::ico::getRawIconDataEXE
1124 interp alias {} ::ico::writeIconICL      {} ::ico::writeIconEXE
1126 proc ::ico::showaux {files} {
1131 	after 50 [list ::ico::showaux [lrange $files 1 end]]
1136 proc ::ico::Show {file args} {
1202 package provide ico 0.3.1