[Xotcl] NX list properties

Hello, is it possible to list only properties without variables of an instance, object? For example if I use *$obj info vars* command it will give me all variables and properties names.

For example, is it possible to do it like that?

package require nx nx::Class create rClass { :property {prop1 "rprop"} }

nx::Class create tClass { :property {prop1 "tprop1"} :property {prop2:object, required} :variable cf "aaaa.ini"

:method init {} {
    puts "Init"
}

:public method a {} {
    return "Object is: ${:obj} | Config file is: ${:cf}"
}

} set t [tClass new -prop2 [rClass new]]

foreach sl [$t info lookup variables] { if {[lindex [$t info variable definition $sl] 1] eq "property"} { puts "[$t info variable name $sl] is a property" } elseif {[lindex [$t info variable definition $sl] 1] eq "variable"} { puts "[$t info variable name $sl] is a variable" } }