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