TCL/TK replacing Gif/png pictures with base64 encoding

In implementing the TCL program, when you encounter a similar need to add an icon to the menu bar, if you directly refer to the icon, these icons need to be archived in the appropriate folder. If you encode these images base64, you can avoid this problem by referencing them.
Note: Base64 need to install Tcllib.

1 Package require Base642 SetFileID [Open"Mypic.gif"Rdonly]3Fconfigure $fileID-translation Binary4 SetRawData [Read $fileID]5 Close $fileID6 SetEncodeddata [Base64::encode $rawData]7 Setmypic [Image Create Photo-Data $encodedData]8Label. L1-Image $myPic9Pack. L1

Detailed introduction of the principle

TCL/TK replacing Gif/png pictures with base64 encoding