namespace eval ::scobj { } ## # @brief Initialise the hdb properties required for generating the GumTree interface and # saving data for script context objects proc ::scobj::hinitprops {sobj args} { if {$args == ""} { set hpath /sics/$sobj hsetprop $hpath nxalias $sobj } else { set hpath /sics/$sobj/$args hsetprop $hpath nxalias ${sobj}_$args } hsetprop $hpath control true hsetprop $hpath data true hsetprop $hpath nxsave true hsetprop $hpath mutable true hsetprop $hpath klass parameter hsetprop $hpath sicsdev $sobj hsetprop $hpath sdsinfo ::nexus::scobj::sdsinfo }