Index: library/nx/nx.tcl =================================================================== diff -u -rcaba76f5ac2943f5a3dfd33550cb578132f40c80 -r71015d43732133b53eed552468a6e408d43415eb --- library/nx/nx.tcl (.../nx.tcl) (revision caba76f5ac2943f5a3dfd33550cb578132f40c80) +++ library/nx/nx.tcl (.../nx.tcl) (revision 71015d43732133b53eed552468a6e408d43415eb) @@ -1194,6 +1194,19 @@ createBootstrapVariableSlots ::nx::Slot { } + # Define method "value" as a slot forwarder to allow for calling + # value-less slot methods like e.g. "get" dispite of the arity-based + # forward dispatcher. + ::nx::Slot public method value {obj method prop value:optional pos:optional} { + if {[info exists pos]} { + ${:manager} $prop $obj ${:name} $value $pos + } elseif {[info exists value]} { + ${:manager} $prop $obj ${:name} $value + } else { + ${:manager} $prop $obj ${:name} + } + } + ###################################################################### # configure nx::ObjectParameterSlot ###################################################################### @@ -1306,6 +1319,7 @@ set name ${:name} set domain ${:domain} } + ::nsf::method::forward $domain \ {*}[expr {${:per-object} ? "-per-object" : ""}] \ $name \