Create an object/Native demonstration: Difference between revisions

Content added Content deleted
(→‎{{header|zkl}}: added Tcl)
(→‎{{header|Tcl}}: removed redundant backup variable)
Line 765: Line 765:
<lang Tcl>proc protect _var {
<lang Tcl>proc protect _var {
upvar 1 $_var var
upvar 1 $_var var
⚫
trace add variable var {write unset} [list protect0 $var]
set backup $var
⚫
trace add variable var {write unset} [list protect0 $backup]
}
}
proc protect0 {backup name1 name2 op} {
proc protect0 {backup name1 name2 op} {
Retrieved from "https://rosettacode.org/wiki/Create_an_object/Native_demonstration"