# HG changeset patch
# User viric@llimona
# Date 1162399731 -3600
# Node ID 533cbe2b7f3cd861e61ca958d8c42ceaa3166e3e
# Parent  063a30048b605320359c17f428dc38a6a091d19f
GPL license added



diff -r 063a30048b60 -r 533cbe2b7f3c tkccrypt
--- a/tkccrypt	Wed Nov 01 17:44:49 2006 +0100
+++ b/tkccrypt	Wed Nov 01 17:48:51 2006 +0100
@@ -1,4 +1,23 @@
 #!/usr/bin/wish
+# encoding: utf-8
+#
+# Tkccrypt - a frontend for Peter Selinger's ccrypt
+# Copyright (C) 2006 Lluís Batlle i Rossell
+# 
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+#
 
 text .text -relief sunken -bd 2 -yscrollcommand ".scroll set" -setgrid 1 \
 	-height 30 -undo 1 -autosep 1
@@ -27,7 +46,7 @@
 
 set actualpass ""
 set actualfile ""
-wm title . "tkcrypt - New File"
+wm title . "tkccrypt - New File"
 
 proc askpassword { op entries } {
 	set tl [toplevel .pass]
@@ -90,7 +109,7 @@
 	set actualpass ""
 	set actualfile ""
 	.text delete 1.0 end
-	wm title . "tkcrypt - New File"
+	wm title . "tkccrypt - New File"
 }
 
 proc openfile { } {
@@ -126,7 +145,7 @@
 
 	set actualpass $pass
 	set actualfile $file
-	wm title . "tkcrypt - $file"
+	wm title . "tkccrypt - $file"
 }
 
 proc savefile { {file ""} {pass ""} } {
@@ -163,7 +182,7 @@
 	set env(PASS) ""
 	set actualpass $pass
 	set actualfile $file
-	wm title . "tkcrypt - $file"
+	wm title . "tkccrypt - $file"
 	tk_messageBox -type ok -message "File \"$file\" saved!" \
 			-icon info
 }