Permalink
Browse files

fixed bug in gorilla::saveas

  • Loading branch information...
1 parent 65c1774 commit 928c724ede8c8abb653109bee96f654643616ced @zdia committed Dec 22, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 sources/gorilla.tcl
View
@@ -4448,6 +4448,7 @@ proc gorilla::SaveAs {} {
# The actual data are saved. Now take care of a backup file
+ set ::gorilla::fileName $fileName
set message [ gorilla::SaveBackup $::gorilla::fileName ]
if { $message ne "GORILLA_OK" } {
@@ -4461,7 +4462,7 @@ proc gorilla::SaveAs {} {
. configure -cursor $myOldCursor
set ::gorilla::dirty 0
$::gorilla::widgets(tree) item "RootNode" -tags black
- set ::gorilla::fileName $fileName
+
wm title . "Password Gorilla - $nativeName"
$::gorilla::widgets(tree) item "RootNode" -text $nativeName

0 comments on commit 928c724

Please sign in to comment.