Issues with Display of Selections

We try this script:

set font [list [font configure TkFixedFont -family] -14]
pack [text .t -font $font -width 20 -height 5]
for {set i 1} {$i < 5} {incr i} { .t insert end "This is line $i\n" }
.t tag add sel 2.0 4.0
focus .t

This is the result:

active inactive
    

This looks bad when the widget does not have the focus. The color of option -selectforeground does not fit with the background color of an inactive selection (this color will be given with option -inactiveselectbackground). There is no reason that the readability will suffer when the widget is losing the focus, and it's not usual at all.

In next step we redefine the selection colors:

set font [list [font configure TkFixedFont -family] -14]
pack [text .t -font $font -width 20 -height 5]
.t configure -selectbackground blue -selectforeground #c3c3c3
for {set i 1} {$i < 5} {incr i} { .t insert end "This is line $i\n" }
.t tag add sel 2.0 4.0
focus .t

Giving this result:

active inactive
    

Here the result with inactive selection is even more worse. It's quite unlikely that the user want's this result. The obvious suspicion is that an option -inactiveselectforeground is needed (see Additional Widget Option '-inactiveselectforeground').