Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Make string comparison Tcl8.3-compatible. |
---|---|
Timelines: | family | ancestors | descendants | both | bwidget |
Files: | files | file ages | folders |
SHA1: |
f4931fa5ce818fb3a83f32ff42680485 |
User & Date: | adrianmedranocalvo 2015-10-07 07:17:50 |
Context
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 | |
06:42 |
widget.tcl: Make Widget::configure invoke the command on the configured
namespace of the included subwidget, instead of in it subclass.
This case was missing in check-in [3b6bda131cc2cdc44ba13da00b39e0e36d6f5334]. check-in: e69f8fb3e7 user: adrianmedranocalvo tags: bwidget | |
Changes
Changes to widget.tcl.
︙ | ︙ | |||
867 868 869 870 871 872 873 | # +----------+---------+------------------+----------------+-context-+ # | :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 | | | | | 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 | # +----------+---------+------------------+----------------+-context-+ # | :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] |
︙ | ︙ |