mirror of
https://salsa.debian.org/dskoll/remind.git
synced 2026-04-16 06:18:47 +02:00
Write options to a temporary file and then rename
This commit is contained in:
@@ -868,9 +868,9 @@ proc SaveOptions { w } {
|
||||
proc WriteOptionsToFile {} {
|
||||
global ConfigFile
|
||||
global Option OptDescr
|
||||
set problem [catch {set f [open $ConfigFile "w"]} err]
|
||||
set problem [catch {set f [open "$ConfigFile.tmp" "w"]} err]
|
||||
if {$problem} {
|
||||
tk_dialog .error Error "Can't write $ConfigFile: $err" 0 OK
|
||||
tk_dialog .error Error "Can't write $ConfigFile.tmp: $err" 0 OK
|
||||
return
|
||||
}
|
||||
|
||||
@@ -886,6 +886,7 @@ proc WriteOptionsToFile {} {
|
||||
}
|
||||
puts $f ""
|
||||
close $f
|
||||
file rename -force "$ConfigFile.tmp" $ConfigFile
|
||||
}
|
||||
|
||||
#***********************************************************************
|
||||
|
||||
Reference in New Issue
Block a user