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