tooledit.tcl suppress leading/trailing whitespace

dngarrett · dngarrett · commit bdb1d17f2024 · 2022-11-28T11:09:29.000-07:00
diff --git a/tcl/tooledit.tcl b/tcl/tooledit.tcl
@@ -802,6 +802,7 @@ proc ::tooledit::writefile {filename} {
   set allheader [concat $::te(autocolumns) $::te(allcolumns) comment]
 
   foreach i $::te(items) {
+    set line ""
     foreach h $allheader {
       set j ""
       set w $::te($h,width)
@@ -812,10 +813,10 @@ proc ::tooledit::writefile {filename} {
       }
       set value [string trim $::te(parm,$i,$h)]
       if {"$value" != ""} {
-        puts -nonewline $fd "$::te($h,tag)$value "
+        set line "$line $::te($h,tag)$value "
       }
     }
-    puts $fd "" ;# new line
+    puts $fd [string trim "$line"]
   }
   watch stop
   close $fd

Original file line number	Diff line number	Diff line change
`@@ -802,6 +802,7 @@ proc ::tooledit::writefile {filename} {`
`802`	`802`	`set allheader [concat $::te(autocolumns) $::te(allcolumns) comment]`
`803`	`803`
`804`	`804`	`foreach i $::te(items) {`
	`805`	`+ set line ""`
`805`	`806`	`foreach h $allheader {`
`806`	`807`	`set j ""`
`807`	`808`	`set w $::te($h,width)`
`@@ -812,10 +813,10 @@ proc ::tooledit::writefile {filename} {`
`812`	`813`	`}`
`813`	`814`	`set value [string trim $::te(parm,$i,$h)]`
`814`	`815`	`if {"$value" != ""} {`
`815`		`- puts -nonewline $fd "$::te($h,tag)$value "`
	`816`	`+ set line "$line $::te($h,tag)$value "`
`816`	`817`	`}`
`817`	`818`	`}`
`818`		`- puts $fd "" ;# new line`
	`819`	`+ puts $fd [string trim "$line"]`
`819`	`820`	`}`
`820`	`821`	`watch stop`
`821`	`822`	`close $fd`