[Xotcl] XOTcl-next

[Murr, Florian]

Dear XOTcl-guys!
The script below might illustrate another XOTcl bug.
tested with:
   Tcl8.4.16 + XOTcl1.5.6
   Tcl8.5.0 + XOTcl1.5.6

regards
Florian




#
************************************************************************
******
puts "Tcl[set ::tcl_patchLevel]"  ;# Tcl8.4.16
puts "XOTcl [package require XOTcl]" ;# XOTcl 1.5.5 1.5.6
namespace import xotcl::*
package require Tk
#
########################################################################
######
Class X  -slots {
    Attribute create q
}
#
************************************************************************
******
#fm  The printout here is not what I would expect!
#fm  expected:  ::b fun .w
#fm  but got:   ::b next .w
X instproc fun {w} {  puts "[self] [info level 0]";  button $w.b;
return $w.b }
#
************************************************************************
******
#
########################################################################
######
Class ::X::Y  -superclass ::X
#
************************************************************************
******
::X::Y instproc fun {w} {
    pack [next $w]
}
#
########################################################################
######
::X::Y create ::b
toplevel .w
::b fun .w