Bwidget Source Code
View Ticket
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.
Ticket UUID: 43f93e0a97a134c5317200c47b5c1c9c3f45c9a
Title: Remove unneeded upvar
Type: RFE Version: 1.9.7
Submitter: anonymous Created on: 2014-05-14 10:08:26
Subsystem: (unused) Assigned To: nobody
Priority: 5 Medium Severity: Minor
Status: Closed Last Modified: 2014-05-21 07:37:52
Resolution: Accepted Closed By: oehhar
    Closed on: 2014-05-21 07:37:52
Description:
From: Adrián Medraño Calvo <[email protected]>

---
 bwidget-1.9.7/widget.tcl | 1 -
 1 file changed, 1 deletion(-)

diff --git a/bwidget-1.9.7/widget.tcl b/bwidget-1.9.7/widget.tcl
index 6a40832..348c5f9 100755
--- a/bwidget-1.9.7/widget.tcl
+++ b/bwidget-1.9.7/widget.tcl
@@ -435,7 +435,6 @@ proc Widget::create { class path {rename 1} } {
 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
 
-- 
1.9.2
User Comments: oehhar added on 2014-05-21 07:37:52:

Committed by checkin [6e550c5f21] Thank you, Harald