Hi!

How can i use TclOO in Naviserver?

I have tcllib file: init.tcl, and this code:

namespace eval ::test {
    oo::class create greeter {
        method say {} {
            ns_return 200 text/html "Hello"
        }
    }
}

ns_register_proc -noinherit GET /ootest {
    set g [::test::greeter new]
    $g say
}

Then, when i visit: 127.0.0.1/ootest, i get error:

Error: GET /ootest, PeerAddress: 127.0.0.1
invalid command name "::test::greeter"
    while executing
"::test::greeter new"
    invoked from within
"set g [::test::greeter new]"
    while executing callback
ns:tclrequest {
    set g [::test::greeter new]
    $g say
}

So, where should i place classes?


Thanks for help!
Pj.
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
naviserver-devel mailing list
naviserver-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/naviserver-devel

Reply via email to