Tk Source Code

View Ticket
Login
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)