Bwidget Source Code
Check-in [05484b2c6d]
Not logged in

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

Overview
Comment:label.tcl configuring foreground color caused error when themed [Bug 3292977]
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: 05484b2c6db626fe13403f7d01f9a796ebeee833
User & Date: oehhar 2011-04-26 08:24:28.000
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
Unified Diff 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
# ------------------------------------------------------------------------------
#  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



|







1
2
3
4
5
6
7
8
9
10
11
# ------------------------------------------------------------------------------
#  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
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
    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
            }







|







134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
    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
            }