[Xotcl] XOTcl-next

From: Murr, Florian <florian.murr_at_siemens.com>
Date: Wed, 2 Jan 2008 15:10:26 +0100

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