Ever want to embed [image]s directly into your [Tcl] code, eliminating the need to carry a bunch of [GIF] files along with your application? [Jeff Godfrey] writes on comp.lang.tcl, "Yes, this can be done, and quite simply too..." 1. First, you must convert your gif images to [base64] encoded data. You can do this with the base64 package included in [tcllib]: package require base64 set fileID [open "mypic.gif" RDONLY] fconfigure $fileID -translation binary set rawData [read $fileID] close $fileID set encodedData [base64::encode $rawData] (Using the above, it's quite simple to write a program that will encode a group of gif files...) The "encodedData" variable will now contain the image data encoded as a string that can stored in a variable in your script. 2. Now, to use the encoded image, just convert it to a "photo" and pass it to the appropriate widget: set imageData "" set myPic [image create photo -data $imageData] label .l1 -image $myPic pack .l1 So, basically: 1. Encode all of your images and store the encoded strings in your script 2. Convert the encoded strings to photo images and use as needed (as above). 3. Season to taste... You can find some good seasonings at [Tk image Dos and Don'ts] ---- If you have groups of images to convert, you may try the following script. It creates a package with the encoded image data available as procs. # ImgToPkg.tcl # Tcl package generator for image files. # # Usage: tclsh ImgToPkg.tcl > pkgIndex.tcl # # Test the generated package with code like the following with wish: # package require myImgPkg # label .l # pack .l # set img [image create photo -data [::myImgNamespace::imgName1]] # .l configure -image $img # # Paul Obermeier, 2002. package require base64 proc EncodeImgData { fileName } { set fp [open $fileName "r"] fconfigure $fp -translation binary set rawData [read $fp [file size $fileName]] close $fp return [base64::encode $rawData] } proc SaveImgPackage { fileList outFile packageName namespaceName versionNum } { set retVal [catch {open $outFile w} fp] if { $retVal != 0 } { error "Could not open output file $outFile" } fconfigure $fp -translation binary # Write package header. puts $fp "package provide $packageName $versionNum" puts $fp "" # Write namespace header. puts $fp "namespace eval ::$namespaceName {" foreach fileName $fileList { set imgName [file rootname [file tail $fileName]] if { [file readable $fileName] } { puts $fp " namespace export $imgName" } } puts $fp "}" puts $fp "" # Generate namespace procedures. foreach fileName $fileList { set imgName [file rootname [file tail $fileName]] set procName [format "%s::%s" $namespaceName $imgName] puts $fp "proc ::$procName \{\} \{" puts $fp "return \{" puts $fp "[EncodeImgData $fileName]" puts $fp "\}" puts $fp "\} \; \# End of proc $procName" puts $fp "" } close $fp puts "# Put the following line into a pkgIndex.tcl file:" puts "package ifneeded $packageName $versionNum \"source \[file join \$dir $outFile\]\"" } # Test code. Start with tclsh as noted above. set imgFileList [glob *.gif] SaveImgPackage $imgFileList "myImgPkg.tcl" "myImgPkg" "myImgNamespace" "1.2.3" exit 0 ---- [David Bigelow]: I have used this for some time and is quite handy for quick and dirty image encoding. One more alternative -- this one allows you to: 1) Select a directory where your images are located 2) Displays the image contents of the directory 3) Double-Click on Image Name converts - places code into a Text Widget and Previews the New Image. Hope you like it. #====================================================================== # Tcl Source File -- Created with SAPIEN Technologies PrimalSCRIPT(TM) # NAME: base64 Encode Routine # AUTHOR: David Bigelow , Simplified Logic, Inc. # DATE : 10/29/2001 # COMMENT: base64 Image Encoding Application #====================================================================== package require base64 label .l -text "base64 image encoder" pack .l frame .f listbox .lb -width 20 -height 30 text .tb -width 80 -height 30 pack .f -side top -expand y -fill both pack .lb -in .f -side left -expand n -fill y pack .tb -in .f -side left -expand y -fill both bind .lb { catch {destroy .ii} .tb delete 0.0 end set fname [.lb get [.lb curselection]] set fp [open [concat $::dirname/$fname] r] fconfigure $fp -translation binary set encoded [::base64::encode [read $fp]] close $fp .tb insert end "***** CLIP START BELOW *****\n\n" set numlines [llength [split $encoded]] set count 1 foreach item [split $encoded] { # Filter to not include a line continuation on the last line if {$count < $numlines} { .tb insert end "$item\\\n" } else { .tb insert end "$item\n" } incr count } .tb insert end "\n***** END CLIP *****\n" image create photo testimg -data $encoded label .ii -image testimg pack .ii -side top } .tb insert end "[package names]" set ::dirname [tk_chooseDirectory -title "Select Image Directory " -initialdir D:/working] set files [glob -nocomplain $::dirname/*.gif] foreach fname $files { .lb insert end [file tail $fname] } focus -force .tb ---- [Category Graphics]