Differences From Artifact [5097fc8869]:

• File lib/xvfs/xvfs.tcl — part of check-in [30c469fcf7] at 2019-09-20 17:28:10 on branch trunk — Improved child detection in the face of file name mangaling (user: rkeene, size: 7650) [annotate] [blame] [check-ins using]

To Artifact [f096c687f1]:

• File lib/xvfs/xvfs.tcl — part of check-in [d961175fd9] at 2019-09-20 17:49:43 on branch trunk — Fix bug where children were wrapped and string concatencated rather than adding new items (user: rkeene, size: 7655) [annotate] [blame] [check-ins using]

44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

	foreach item $list {
		lappend row "\"[sanitizeCString $item]\""
		
		set rowString [join $row {, }]
		set rowString "${prefix}${rowString}"
		if {[string length $rowString] > $width} {
			set row [list]
			lappend lines $rowString
			unset rowString
		}
	}
	if {[info exists rowString]} {
		lappend lines $rowString
	}
	

|

44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

	foreach item $list {
		lappend row "\"[sanitizeCString $item]\""
		
		set rowString [join $row {, }]
		set rowString "${prefix}${rowString}"
		if {[string length $rowString] > $width} {
			set row [list]
			lappend lines "${rowString},"
			unset rowString
		}
	}
	if {[info exists rowString]} {
		lappend lines $rowString
	}