diff options
author | lluís gómez i bigordà <lluisbigorda@users.sourceforge.net> | 2008-05-23 20:46:28 +0000 |
---|---|---|
committer | lluís gómez i bigordà <lluisbigorda@users.sourceforge.net> | 2008-05-23 20:46:28 +0000 |
commit | a8f804837c21d71a6fa5adc127d9b64eb23c47ad (patch) | |
tree | c36a4a759da03c03f12d20fbed31b9f391b95263 /colorgrid/base64.tcl | |
parent | ef9eed1eaa214df28cb65e51f1cdd8c01f33e1f5 (diff) |
changed the code to be in a single file colorgrid.c
moved the help patch to a more common name
svn path=/trunk/externals/pdvjtools/; revision=9871
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 |