diff options
Diffstat (limited to 'colorgrid/base64.tcl')
-rw-r--r-- | colorgrid/base64.tcl | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/colorgrid/base64.tcl b/colorgrid/base64.tcl deleted file mode 100644 index 26ad408..0000000 --- a/colorgrid/base64.tcl +++ /dev/null @@ -1,29 +0,0 @@ - package require base64 - - proc encode {} { - .txt delete 1.0 end - set fileID [open [tk_getOpenFile] RDONLY] - fconfigure $fileID -translation binary - set rawData [read $fileID] - close $fileID - set encodedData [base64::encode $rawData] - .txt insert 1.0 $encodedData - } - - proc clipcopy {} { - clipboard clear - clipboard append [.txt get 1.0 end] - } - - wm title . "Base64 Gif Encoder" - text .txt -wrap none -font "Courier 10" - menu .mbar - . configure -menu .mbar - .mbar add command -label "Encode File" -command encode - .mbar add command -label "Copy2Clipboard" -command clipcopy - .mbar add command -label "Exit" -command {destroy .; exit} - - pack .txt -expand 1 -fill both - - encode - ### End of Script |