Index: generic/predefined.xotcl =================================================================== diff -u -re8f814e896b7aac8326f9abef3a5e759b2a4ed18 -rf71845baf5b995318b585981109bdf114d95eb2f --- generic/predefined.xotcl (.../predefined.xotcl) (revision e8f814e896b7aac8326f9abef3a5e759b2a4ed18) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision f71845baf5b995318b585981109bdf114d95eb2f) @@ -84,7 +84,10 @@ # provide a placeholder for the bootup process. The real definition # is based on slots, which are not available at this point. - ::xotcl::Object method objectparameter {} {;} + ::xotcl::Object method objectparameter {} { + #puts stderr "XXXX-objectparameter for [self] - INITIAL" + return "" + } # # create class and object for nonpositional argument processing @@ -318,6 +321,7 @@ # Provide the a slot based mechanism for building an object # configuration interface from slot definitions ::xotcl::Object method objectparameter {} { + #puts stderr "XXXX-objectparameter for [self]" set parameterdefinitions [list] # don't call [my info slotobjects], since filters on [self] # modifying the result (such as in the regression test) will cause