::xotcl::Class
Class Parameter

Heritage:
::xotcl::Object
  |
  +--::xotcl::Class
Class Parameter
superclass ::xotcl::Class,

Variables
NameDefault ValueClassComment
version    ::xotcl::Class
 
 
Methods
NameComment
getParameter {obj name args}  
mkParameter {obj name args}  
   
Methods from ::xotcl::Class
allinstances, classParameter, classParameterArray, id, instfilterappend, instmixinappend, insttclcmd,
   
Methods from ::xotcl::Object
#, ., ?, ?code, ?methods, ?object, abstract, copy, coverageFilter, defaultmethod, extractConfigureArg, filterappend, get#, getClean#, hasclass, init, methodTag, mixinappend, move, profileFilter, self, setParameterDefaults, shell, tclcmd, traceFilter,
 
Instproc Detail

getParameter

Description:
 
Arguments:
Code:
  ::xotcl::Class::Parameter instproc getParameter {obj name args}  {
   
[$obj set $name]
}

mkParameter

Description:
 
Arguments:
Code:
  ::xotcl::Class::Parameter instproc mkParameter {obj name args}  {
   
if {[$obj exists $name]} {
eval [$obj set $name] configure $args} else {
$obj set $name [eval ::xotcl::my new -childof $obj $args]}
}