Index: tests/disposition.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r6eee126915e363e7bdc5d2e43a1157b791247e30 --- tests/disposition.test (.../disposition.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/disposition.test (.../disposition.test) (revision 6eee126915e363e7bdc5d2e43a1157b791247e30) @@ -1414,3 +1414,28 @@ # TODO: what todo with object parameter inspection for names with # alias, forward... "names" do not always correspond with vars set. +nx::test case class-configure-default { + + # Background: when class is created, it is created with a "default" + # superclass of "::nx::Object". This is defined in the slot for + # superclass in nx.tcl + + nx::Class create P + ? {Q info superclass} ::nx::Object + + # + # When we pass the superclass a different value, this is certainly used. + # + nx::Class create Q -superclass P + ? {Q info superclass} ::P + + # + # When we call configure on the superclass, we do not want the + # default to be used to reset it to ::nx::Object. Therefore the + # configure uses the default for parameters with METHOD_INVOCATION + # only, when the object is not yet initialized. + # + Q configure + ? {Q info superclass} ::P + +} \ No newline at end of file