::xox::test
Class G

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

Class G
superclass ::xotcl::Object,

Variables
NameDefault ValueClassComment
 
Methods
NameComment
data {{data ""}}  
nodata {{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::G instproc data {{data ""}}  {
   

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

            if { ! [ my exists data ] } {

                set classList [ my info class ]

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

                foreach class $classList {

                    if [ $class exists data ] {

                        return [ $class set data ]
                    }
                }

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

            } else {

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

        return [ my set data $data ]
    
}

nodata

Description:
 
Arguments:
Code:
  ::xox::test::G instproc nodata {{nodata ""}}  {
   

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

            if { ! [ my exists nodata ] } {

                set classList [ my info class ]

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

                foreach class $classList {

                    if [ $class exists nodata ] {

                        return [ $class set nodata ]
                    }
                }

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

            } else {

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

        return [ my set nodata $nodata ]
    
}