Bwidget Source Code
Check-in [05484b2c6d]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:label.tcl configuring foreground color caused error when themed [Bug 3292977]
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: 05484b2c6db626fe13403f7d01f9a796ebeee833
User & Date: oehhar 2011-04-26 08:24:28
Context
2011-04-26
14:13
notebook.tcl The user frame of the notebook is now a themed frame in themed mode. The set background color does not apply to the user frame in this case. check-in: 08f78b581d user: oehhar tags: bwidget
08:24
label.tcl configuring foreground color caused error when themed [Bug 3292977] check-in: 05484b2c6d user: oehhar tags: bwidget
2011-04-20
11:30
lang/hu.rc by Rezso updated check-in: dfa30f0e1c user: oehhar tags: bwidget
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7




2011-04-20 Harald Oehlmann <[email protected]>

	lang/hu.rc by Rezso updated

2011-04-20 Harald Oehlmann <[email protected]>

    * font.tcl, lang/*.rc: Add translation possibility
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2011-04-26 Harald Oehlmann <[email protected]>

	label.tcl configuring foreground color caused error when
	themed [Bug 3292977]

2011-04-20 Harald Oehlmann <[email protected]>

	lang/hu.rc by Rezso updated

2011-04-20 Harald Oehlmann <[email protected]>

    * font.tcl, lang/*.rc: Add translation possibility

Changes to label.tcl.

1
2
3
4
5
6
7
8
9
10
11
...
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
# ------------------------------------------------------------------------------
#  label.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: label.tcl,v 1.10.2.2 2010/11/21 19:35:48 oehhar Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - Label::create
#     - Label::configure
#     - Label::cget
#     - Label::setfocus
#     - Label::_drag_cmd
................................................................................
    set res [Widget::configure $path $args]

    set cfg  [Widget::hasChanged $path -foreground fg]
    set cst  [Widget::hasChanged $path -state state]

    if {$::Widget::_theme} {
        if { $cfg } {
            $path.l configure -fg $fg
        }
        if { $cst } {
            if { $state == "normal" } {
                $path.l state !disabled
            } else {
                $path.l state disabled
            }


|







 







|







1
2
3
4
5
6
7
8
9
10
11
...
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
# ------------------------------------------------------------------------------
#  label.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: label.tcl,v 1.10.2.3 2011/04/26 08:24:28 oehhar Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - Label::create
#     - Label::configure
#     - Label::cget
#     - Label::setfocus
#     - Label::_drag_cmd
................................................................................
    set res [Widget::configure $path $args]

    set cfg  [Widget::hasChanged $path -foreground fg]
    set cst  [Widget::hasChanged $path -state state]

    if {$::Widget::_theme} {
        if { $cfg } {
            $path.l configure -foreground $fg
        }
        if { $cst } {
            if { $state == "normal" } {
                $path.l state !disabled
            } else {
                $path.l state disabled
            }