cmdr
Check-in [972556826b]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Bump cmdr::table to v0.2. The rewrite to the (no)header logic left the header row in the output, and now even colorized. Noted with the CM website generation, where these color control sequences leaked into HTML output.
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA1:972556826b12aabadc8c0f230b4f0e6ea30eb473
User & Date: aku 2017-09-12 17:24:08
Context
2017-09-12
17:24
Bump cmdr::table to v0.2. The rewrite to the (no)header logic left the header row in the output, and now even colorized. Noted with the CM website generation, where these color control sequences leaked into HTML output. Leaf check-in: 972556826b user: aku tags: trunk
2017-09-02
21:21
Additional tracing of command prefix resolution check-in: 7bf67db33e user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to utilities/table.tcl.

1
2
3
4



5
6
7
8
9
10
11
...
263
264
265
266
267
268
269






270
271
272
273
274
275
276
...
316
317
318
319
320
321
322
323
# -*- tcl -*-
# # ## ### ##### ######## ############# #####################
## Easy table generation




# @@ Meta Begin
# Package cmdr::table 0.1
# Meta author   {Andreas Kupries}
# Meta location https://core.tcl.tk/akupries/cmdr
# Meta platform    tcl
# Meta summary Easy generation of tables
# Meta description Easy generation of tables
................................................................................

	debug.cmdr/table {==> ($thestyle)}
	return $thestyle
    }

    method String {} {
	debug.cmdr/table {}






	set r [report::report [self namespace]::R [M columns] style [my Style]]
	set str [M format 2string $r]
	$r destroy
	return [string trimright $str]
    }

    # # ## ### ##### ######## #############
................................................................................
    }

    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::table 0.1




>
>
>







 







>
>
>
>
>
>







 







|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
...
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
...
325
326
327
328
329
330
331
332
# -*- tcl -*-
# # ## ### ##### ######## ############# #####################
## Easy table generation

# TODO: control colorization a bit more - Allow for global and
# per-table suppression.

# @@ Meta Begin
# Package cmdr::table 0.1
# Meta author   {Andreas Kupries}
# Meta location https://core.tcl.tk/akupries/cmdr
# Meta platform    tcl
# Meta summary Easy generation of tables
# Meta description Easy generation of tables
................................................................................

	debug.cmdr/table {==> ($thestyle)}
	return $thestyle
    }

    method String {} {
	debug.cmdr/table {}

	if {!$myheaders} {
	    # Remove the header row pushed by the constructor.
	    M delete row 0
	}
	
	set r [report::report [self namespace]::R [M columns] style [my Style]]
	set str [M format 2string $r]
	$r destroy
	return [string trimright $str]
    }

    # # ## ### ##### ######## #############
................................................................................
    }

    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::table 0.2