X-Git-Url: http://www.wagner.pp.ru/gitweb/?a=blobdiff_plain;f=imgcomment;h=8b8f6a51136e60e590f5a3b59bd9315412a14362;hb=HEAD;hp=1b972ac57eea457d6b2107d65d0a7c3b1ea3754a;hpb=c32d5aaa4789c7b9c91277e27ec90a8944e6852d;p=oss%2Fimgwww.git

diff --git a/imgcomment b/imgcomment
index 1b972ac..8b8f6a5 100755
--- a/imgcomment
+++ b/imgcomment
@@ -121,6 +121,9 @@ proc delete_file {index} {
 	}	
 		
 	file delete $filename
+	.info.comment edit reset
+	.info.comment edit modified n
+	
 	if {$index == $filecount-1} {
 		global current
 		set filelist [lrange $filelist 0 [expr $index-1]]