mirror of
https://salsa.debian.org/dskoll/remind.git
synced 2026-04-17 14:59:20 +02:00
Add blank line when *first* creating AppendFile.
This commit is contained in:
@@ -309,6 +309,7 @@ proc Initialize {} {
|
||||
catch {
|
||||
set out [open $ReminderFile w]
|
||||
write_warning_headers $out
|
||||
puts $out ""
|
||||
close $out
|
||||
}
|
||||
}
|
||||
@@ -321,6 +322,7 @@ proc Initialize {} {
|
||||
if {![catch {
|
||||
set out [open $AppendFile "a"]
|
||||
write_warning_headers $out
|
||||
puts $out ""
|
||||
close $out}]} {
|
||||
tk_dialog .error "Created File" "Created blank file `$AppendFile'" info 0 "OK"
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user