::xox::test
Class G1

Heritage:
::xotcl::Object
Direct Known Subclasses:
::xox::test::H1,

Class G1
superclass ::xotcl::Object,

Variables
NameDefault ValueClassComment
 
Methods
NameComment
data {index {data ""}}  
nodata {index {nodata ""}}  
   
Methods from ::xotcl::Object
#, ., ?, ?code, ?methods, ?object, abstract, copy, coverageFilter, defaultmethod, extractConfigureArg, filterappend, garbageCollect, get#, getClean#, hasclass, init, methodTag, mixinappend, move, profileFilter, self, setParameterDefaults, shell, tclcmd, traceFilter,
 
Instproc Detail

data

Description:
 
Arguments:
Code:
  ::xox::test::G1 instproc data {index {data ""}}  {
   

        if { "" == "$data" } {

            if { ! [ my exists data($index) ] } {

                set classList [ my info class ]

                set classList [ concat $classList [ $classList info heritage ] ]

                foreach class $classList {

                    if [ $class exists data($index) ] {

                        return [ $class set data($index) ]
                    }
                }

                error "Could not find data in any of $classList!"

            } else {

                return [ my set data($index) ]
            }
        }
            
        if { "" == "$data" } { return [ my set data($index) ] }

        return [ my set data($index) $data ]
    
}

nodata

Description:
 
Arguments:
Code:
  ::xox::test::G1 instproc nodata {index {nodata ""}}  {
   

        if { "" == "$nodata" } {

            if { ! [ my exists nodata($index) ] } {

                set classList [ my info class ]

                set classList [ concat $classList [ $classList info heritage ] ]

                foreach class $classList {

                    if [ $class exists nodata($index) ] {

                        return [ $class set nodata($index) ]
                    }
                }

                error "Could not find nodata in any of $classList!"

            } else {

                return [ my set nodata($index) ]
            }
        }
            
        if { "" == "$nodata" } { return [ my set nodata($index) ] }

        return [ my set nodata($index) $nodata ]
    
}