Bwidget Source Code
Check-in [6e550c5f21]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:Remove unneeded upvar. Ticket [43f93e0a97]
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: 6e550c5f21467375ff1adf88f5d8cb7529304afa
User & Date: oehhar 2014-05-21 07:36:55
References
2014-05-21
07:37 Closed ticket [43f93e0a97]: Remove unneeded upvar plus 7 other changes artifact: 96434ae607 user: oehhar
Context
2014-05-21
07:46
remove apparently unused procedure Widget::syncoptions and all calls. Ticket [3c2b8eafc6] check-in: cc45806c6f user: oehhar tags: bwidget
07:36
Remove unneeded upvar. Ticket [43f93e0a97] check-in: 6e550c5f21 user: oehhar tags: bwidget
07:32
New procedure Widget::which (as in [namespace which]), that returns the fully qualified name for a widget option or widget variable. Ticket [a8705e5fd9] check-in: 97c7fd38ff user: oehhar tags: bwidget
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

6
7
8
9
10
11
12



13
14
15
16
17
18
19
        widget.tcl: Don't double creation of temporary widget for
        default values retrieval. Use result of _get_tkwidget_options
        instead. By Adrian Medrano Calvo. Ticket [393b67ab19]

        widget.tcl: New procedure Widget::which (as in [namespace which]),
        that returns the fully qualified name for a widget option or
        widget variable. By Adrian Medrano Calvo. Ticket [a8705e5fd9]





2013-12-13 Harald Oehlmann <[email protected]>

	scrollframe.tcl: Make -constrainedwidth 1 and
	-constrainedheight 1 work together.
	Patch by Simon Bachmann. Ticket [2fa44401d5]






>
>
>







6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
        widget.tcl: Don't double creation of temporary widget for
        default values retrieval. Use result of _get_tkwidget_options
        instead. By Adrian Medrano Calvo. Ticket [393b67ab19]

        widget.tcl: New procedure Widget::which (as in [namespace which]),
        that returns the fully qualified name for a widget option or
        widget variable. By Adrian Medrano Calvo. Ticket [a8705e5fd9]

        widget.tcl: Remove unneeded upvar. By Adrian Medrano Calvo.
        Ticket [43f93e0a97]


2013-12-13 Harald Oehlmann <[email protected]>

	scrollframe.tcl: Make -constrainedwidth 1 and
	-constrainedheight 1 work together.
	Patch by Simon Bachmann. Ticket [2fa44401d5]

Changes to widget.tcl.

431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
# ----------------------------------------------------------------------------
#  Command Widget::addmap
# ----------------------------------------------------------------------------
proc Widget::addmap { class subclass subpath options } {
    upvar 0 ${class}::opt classopt
    upvar 0 ${class}::optionExports exports
    upvar 0 ${class}::optionClass optionClass
    upvar 0 ${class}::map classmap
    upvar 0 ${class}::map$subpath submap

    foreach {option realopt} $options {
        if { ![string length $realopt] } {
            set realopt $option
        }






<







431
432
433
434
435
436
437

438
439
440
441
442
443
444
# ----------------------------------------------------------------------------
#  Command Widget::addmap
# ----------------------------------------------------------------------------
proc Widget::addmap { class subclass subpath options } {
    upvar 0 ${class}::opt classopt
    upvar 0 ${class}::optionExports exports

    upvar 0 ${class}::map classmap
    upvar 0 ${class}::map$subpath submap

    foreach {option realopt} $options {
        if { ![string length $realopt] } {
            set realopt $option
        }