Index: library/nx/nx.tcl =================================================================== diff -u -r71a3245fb6a6e31e9188cf86d813f30cb8eb3ae7 -rf31c1a01c6a389f693b8db0f2204cbb46180fef1 --- library/nx/nx.tcl (.../nx.tcl) (revision 71a3245fb6a6e31e9188cf86d813f30cb8eb3ae7) +++ library/nx/nx.tcl (.../nx.tcl) (revision f31c1a01c6a389f693b8db0f2204cbb46180fef1) @@ -5,7 +5,7 @@ # Implementation of the Next Scripting Language (NX) object # system, based on the Next Scripting Framework (NSF). # -# Copyright (C) 2010-2014 Gustaf Neumann +# Copyright (C) 2010-2015 Gustaf Neumann # Copyright (C) 2010-2014 Stefan Sobernig # # Vienna University of Economics and Business @@ -2626,6 +2626,12 @@ return [lindex $objs 0] } + #:public object method mapSlot {newslot origin dest} { + # if {[$oldslot cget -domain] eq $origin} {$newslot configure -domain $dest} + # if {[$oldslot cget -manager] eq $oldslot} {$newslot configure -manager $newslot} + # $newslot eval :init + #} + :public method copy {obj {dest ""}} { #puts stderr "[::nsf::self] copy <$obj> <$dest>" set :objLength [string length $obj]