Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Removing clay-isms from onion. Again. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | f56402958b2ca327103c93fc66de8d122c65a442 |
| User & Date: | hypnotoad 2018-12-12 04:29:07 |
Context
|
2018-12-12
| ||
| 16:34 | Pulling changes from fsar branch check-in: f86ea7b2dc user: hypnotoad tags: trunk | |
| 04:29 | Removing clay-isms from onion. Again. check-in: f56402958b user: hypnotoad tags: trunk | |
|
2018-12-08
| ||
| 20:32 | Bringing in tweak from debugging check-in: bec9d83072 user: hypnotoad tags: trunk | |
Changes
Changes to modules/tao-onion/onion.tcl.
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 ... 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 ... 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 |
aliases tao.layer
option prefix {}
option layer_name {}
property layer_index_order 0
constructor {sharedobjects args} {
foreach {organ object} $sharedobjects {
my clay delegate $organ $object
}
my graft layer [self]
set dictargs [::oo::meta::args_to_options {*}$args]
set dat [my Config_merge $dictargs]
my Config_triggers $dat
}
................................................................................
set class [dict get $info class]
set layer_obj [my SubObject layer $lname]
dict set layers $lname $layer_obj
if {[info command $layer_obj] == {} } {
$class create $layer_obj $shared [dict merge $info [list prefix $prefix layer_name $lname]]
set created 1
foreach {organ object} $shared {
$layer_obj clay delegate $organ $object
}
} else {
foreach {organ object} $shared {
$layer_obj clay delegate $organ $object
}
$layer_obj morph $class
}
::ladd result $layer_obj
$layer_obj event subscribe [self] *
$layer_obj initialize
}
................................................................................
###
# topic: 96201b2abf6901f5750499e903be1351
###
method Shared_Organs {} {
dict set shared master [self]
foreach organ [my meta cget shared_organs] {
set obj [my clay delegate $organ]
if { $obj ne {} } {
dict set shared $organ $obj
}
}
return $shared
}
|
| | | | |
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 ... 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 ... 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 |
aliases tao.layer
option prefix {}
option layer_name {}
property layer_index_order 0
constructor {sharedobjects args} {
foreach {organ object} $sharedobjects {
my graft $organ $object
}
my graft layer [self]
set dictargs [::oo::meta::args_to_options {*}$args]
set dat [my Config_merge $dictargs]
my Config_triggers $dat
}
................................................................................
set class [dict get $info class]
set layer_obj [my SubObject layer $lname]
dict set layers $lname $layer_obj
if {[info command $layer_obj] == {} } {
$class create $layer_obj $shared [dict merge $info [list prefix $prefix layer_name $lname]]
set created 1
foreach {organ object} $shared {
$layer_obj graft $organ $object
}
} else {
foreach {organ object} $shared {
$layer_obj graft $organ $object
}
$layer_obj morph $class
}
::ladd result $layer_obj
$layer_obj event subscribe [self] *
$layer_obj initialize
}
................................................................................
###
# topic: 96201b2abf6901f5750499e903be1351
###
method Shared_Organs {} {
dict set shared master [self]
foreach organ [my meta cget shared_organs] {
set obj [my organ $organ]
if { $obj ne {} } {
dict set shared $organ $obj
}
}
return $shared
}
|