Itk - the [incr Tk] extension

itcl::class C {
    inherit itk::Widget

    itk_option define -bar bar Bar 2
    protected method foo {} {puts FOO}
    constructor args {
        itk_initialize {*}$args
    }
}
itcl::configbody C::bar {
    foo
}
C .c
.c configure -bar 2



FOO
Error in startup script: ItclObjectCmd cannot get context object (NULL)
    while executing
"foo"
    (while configuring option "-bar" for widget "::.c")
    invoked from within
".c configure -bar 2"
    (file "/home/dgp/pb.tcl" line 15)

Fixed by adapting Itcl 4.1's new itclObjMethodType to
copy some of the same shenanigans at work in procedure
methods.