Author: coke Date: Tue Jul 29 05:45:35 2008 New Revision: 29842 Modified: trunk/languages/tcl/src/class/tclconst.pir
Log: [tcl] revert patch, use 'String' as our object's base class once more to avoid problems. Leave a note. Modified: trunk/languages/tcl/src/class/tclconst.pir ============================================================================== --- trunk/languages/tcl/src/class/tclconst.pir (original) +++ trunk/languages/tcl/src/class/tclconst.pir Tue Jul 29 05:45:35 2008 @@ -12,7 +12,9 @@ =cut .sub class_init :anon :load - $P0 = get_class 'TclString' + # While it is tempting to inherit directly from TclString, if we do that + # we lose the predefined MMD is_equal that works with the existing structure. + $P0 = get_class 'String' $P1 = subclass $P0, 'TclConst' $P0 = new 'Hash' @@ -247,7 +249,7 @@ done: # Finally, delegate to our parent's set_string - $P0 = getattribute self, ['TclString'], 'proxy' + $P0 = getattribute self, ['String'], 'proxy' $P0 = value .end
