Check-in [d961175fd9]
Overview
Comment:Fix bug where children were wrapped and string concatencated rather than adding new items
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: d961175fd9fa1dc2c845ff37bbfda09d88bdcf528b067c6ba5d544793d8b3264
User & Date: rkeene on 2019-09-20 17:49:43
Other Links: manifest | tags
Context
2019-09-20
17:49
Add make targets for our synthetic and random demos check-in: ca3a163ab4 user: rkeene tags: trunk
17:49
Fix bug where children were wrapped and string concatencated rather than adding new items check-in: d961175fd9 user: rkeene tags: trunk
17:28
Improved child detection in the face of file name mangaling check-in: 30c469fcf7 user: rkeene tags: trunk
Changes

Modified lib/xvfs/xvfs.tcl from [5097fc8869] to [f096c687f1].

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
	}