From 3c050000c6918b77a353583999e6e810aa675fda Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?llu=C3=ADs=20g=C3=B3mez=20i=20bigord=C3=A0?=
 <lluisbigorda@users.sourceforge.net>
Date: Wed, 24 Oct 2007 20:37:21 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r8875, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/externals/pdvjtools/; revision=8876
---
 colorgrid/base64.tcl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 colorgrid/base64.tcl

(limited to 'colorgrid/base64.tcl')

diff --git a/colorgrid/base64.tcl b/colorgrid/base64.tcl
new file mode 100644
index 0000000..26ad408
--- /dev/null
+++ b/colorgrid/base64.tcl
@@ -0,0 +1,29 @@
+ 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
-- 
cgit v1.2.1