Ticket UUID: | 8b1cc43f740e54b1148e332fde8f6566b40a1f78 | |||
Title: | tabs: numeric justification is not working | |||
Type: | Bug | Version: | revised_text | |
Submitter: | bll | Created on: | 2017-07-04 22:18:23 | |
Subsystem: | 18. [text] | Assigned To: | nobody | |
Priority: | 1 Zero | Severity: | Minor | |
Status: | Deleted | Last Modified: | 2017-07-05 18:59:52 | |
Resolution: | Invalid | Closed By: | fvogel | |
Closed on: | 2017-07-05 18:59:52 | |||
Description: |
From the test script, it can be seen in the 'c' and 'e' characters that right,center,left are working. Numeric is not aligned to the decimal point. package require Tk set fixedFont {"Courier New" -12} frame .f -width 100 -height 20 pack .f -side left text .t -font $fixedFont -width 60 -height 10 pack .t -expand 1 -fill both .t delete 1.0 end .t tag configure x -tabs [list 30 left 60 right 90 left 120 right 140 left] .t tag configure z -tabs [list 30 numeric 60 numeric 90 numeric 120 numeric 140 left] .t tag configure c -tabs [list 30 center 60 center 90 center 120 center 140 left] .t tag configure y -tabs [list 30 60 90 120 140] .t insert 1.0 "a\tb\tc\td\te\tmixed\n" .t insert 2.0 "1.5\t1.4\t1.3\t1.2\t1.1\tnumeric\n" .t insert 3.0 "a\tb\tc\td\te\tcenter\n" .t insert 4.0 "a\tb\tc\td\te\tleft\n" .t tag add x 1.0 2.0 .t tag add z 2.0 3.0 .t tag add c 3.0 4.0 .t tag add y 4.0 end | |||
User Comments: |
bll added on 2017-07-05 00:54:03:
And the other question is, when was the last time this worked? Did it ever? bll added on 2017-07-04 23:37:40: Does Tcl supply access to the radix separator? (localeconv(), struct lconv lc, lc->decimal_point) |