Bwidget Source Code
Check-in [7653b90a74]
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:Correct conditional.
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: 7653b90a746fb642104411dd017f017f0125835c
User & Date: adrianmedranocalvo 2015-10-07 07:26:35
Context
2015-10-18
17:57
BWidget 1.9.9 release check-in: 346e8c2d46 user: oehhar tags: bwidget, bwidget-1-9-9
2015-10-07
07:26
Correct conditional. check-in: 7653b90a74 user: adrianmedranocalvo tags: bwidget
07:17
Make string comparison Tcl8.3-compatible. check-in: f4931fa5ce user: adrianmedranocalvo tags: bwidget
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to widget.tcl.

868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
                    # | :cmd     | :cmd    | herited widget   | window:cmd     |window   |
                    # | :cmd     | *       | subwidget        | window.subpath | window  |
                    # | ""       | :cmd    | herited widget   | window:cmd     | window  |
                    # | ""       | *       | own              | window         | window  |
                    # | *        | :cmd    | own              | window         | current |
                    # | *        | *       | subwidget        | window.subpath | current |
                    if { [string length $subclass] && ! [string equal $subclass ":cmd"] } {
                        if { ! [string equal $subpath ":cmd"] } {
                            set subpath ""
                        }
                        set ns $::BWidget::use(${subclass},namespace);
                        set curval [${ns}::cget $window$subpath $realopt]
                        ${ns}::configure $window$subpath $realopt $newval
                    } else {
                        set curval [$window$subpath cget $realopt]






|







868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
                    # | :cmd     | :cmd    | herited widget   | window:cmd     |window   |
                    # | :cmd     | *       | subwidget        | window.subpath | window  |
                    # | ""       | :cmd    | herited widget   | window:cmd     | window  |
                    # | ""       | *       | own              | window         | window  |
                    # | *        | :cmd    | own              | window         | current |
                    # | *        | *       | subwidget        | window.subpath | current |
                    if { [string length $subclass] && ! [string equal $subclass ":cmd"] } {
                        if { [string equal $subpath ":cmd"] } {
                            set subpath ""
                        }
                        set ns $::BWidget::use(${subclass},namespace);
                        set curval [${ns}::cget $window$subpath $realopt]
                        ${ns}::configure $window$subpath $realopt $newval
                    } else {
                        set curval [$window$subpath cget $realopt]