Bwidget Source Code
Check-in [3b0b4ecf4f]
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:Don't invoke unqualified upvar in callers scope. Ticket [046fa04231]
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: 3b0b4ecf4f147d105f468043ba8620186c7dc4fb
User & Date: oehhar 2014-05-21 07:03:45
References
2014-05-21
07:05 Closed ticket [046fa04231]: Don't invoke unqualified upvar plus 7 other changes artifact: 6ec8000701 user: oehhar
Context
2014-05-21
07:14
Don't double creation of temporary widget for default values retrieval. Use result of _get_tkwidget_options instead. Ticket [393b67ab19] check-in: 5a776453e1 user: oehhar tags: bwidget
07:03
Don't invoke unqualified upvar in callers scope. Ticket [046fa04231] check-in: 3b0b4ecf4f user: oehhar tags: bwidget
2013-12-12
18:20
scrollframe.tcl: Make -constrainedwidth 1 and -constrainedheight 1 work together. Patch by Simon Bachmann. Ticket [2fa44401d5] check-in: 89e6f27a6a user: oehhar tags: bwidget
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7




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

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

	2013-10-17 Harald Oehlmann <[email protected]>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2014-05-21 Harald Oehlmann <[email protected]>

        widget.tcl: Don't invoke unqualified upvar in callers
        scope. Patch by Andreas Kupries. Ticket [046fa04231]

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

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

	2013-10-17 Harald Oehlmann <[email protected]>

Changes to widget.tcl.

1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
#
# Results:
#	Creates a reference to newVarName in the calling proc.
proc Widget::getVariable { path varName {newVarName ""} } {
    variable _class
    set class $_class($path)
    if {![string length $newVarName]} { set newVarName $varName }
    uplevel 1 [list upvar \#0 ${class}::$path:$varName $newVarName]
}

# Widget::options --
#
#       Return a key-value list of options for a widget.  This can
#       be used to serialize the options of a widget and pass them
#       on to a new widget with the same options.






|







1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
#
# Results:
#	Creates a reference to newVarName in the calling proc.
proc Widget::getVariable { path varName {newVarName ""} } {
    variable _class
    set class $_class($path)
    if {![string length $newVarName]} { set newVarName $varName }
    uplevel 1 [list ::upvar \#0 ${class}::$path:$varName $newVarName]
}

# Widget::options --
#
#       Return a key-value list of options for a widget.  This can
#       be used to serialize the options of a widget and pass them
#       on to a new widget with the same options.