From 2f7be1cb2e4bef94793d7121d117aa7699414700 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Fri, 6 Jan 2023 09:13:24 +1000 Subject: oo.tcl: fix error in defaultconstructor $classname is not accessible, so use [info level 0] Fixes #248 Signed-off-by: Steve Bennett --- oo.tcl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'oo.tcl') diff --git a/oo.tcl b/oo.tcl index 988b879..4fefa9c 100644 --- a/oo.tcl +++ b/oo.tcl @@ -77,12 +77,13 @@ proc class {classname {baseclasses {}} classvars} { lindex [split $p " "] 1 }] } - # Pre-defined some instance methods + # Pre-define some instance methods $classname method defaultconstructor {{__vars {}}} { set __classvars [$self classvars] foreach __v [dict keys $__vars] { if {![dict exists $__classvars $__v]} { - return -code error "$classname, $__v is not a class variable" + # level 3 because defaultconstructor is called by new + return -code error -level 3 "[lindex [info level 0] 0], $__v is not a class variable" } set $__v [dict get $__vars $__v] } -- cgit v1.1