--- 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
}