Tcl Source Code

There is one function, which is needed in itcl-ng but I think it should be in the TclOO Source code: calling a class method without an object context. This is mostly used for the equivalent of the C++ static class method invocation, which in itcl is called a "class proc".

As it mostly does the same as TclOO's InvokeProcedure method and it uses TclOO internal stuff, I think it should be added to TclOO source code.

A prototype implementation, which is used at the moment in itcl-ng is in the attachment.

I've attached a Tcl script that allows the declaration of class methods, and which also supports class variables.

File Added - 337678: class.tcl

How does a class method work? Is it just like invoking a method on the class object?

If so, can do it like this:
oo::class create Foo {
    constructor {} {
        interp alias {} [namespace current]::Foo->my {} [info object namespace Foo]::my
    }
    forward foo Foo->my foo
    self method foo {args} {
        puts "[self], $args"
    }
}

Arguably there's a need for a neater way to do this so that more of the machinery is hidden, but this will work. (Note that this is a real class method; none of the object-specific state variables or methods are visible at all. The method can be invoked just the same on the class object.)

Logged In: YES 
user_id=79902
Originator: NO

Reducing priority; this can be addressed after the TIP#257 vote.

File Added - 261069: classmethodinvoke2.c

Logged In: YES 
user_id=558925
Originator: YES

I have added a slightly modified version of the function, which allows me to use it on a second place for itcl ensembles (which are nevertheless mostly running as namespace ensembles already).
File Added: classmethodinvoke2.c

File Added - 261064: classmethodinvoke.c