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: |
f56402958b2ca327103c93fc66de8d12 |
User & Date: | hypnotoad 2018-12-12 04:29:07.737 |
Context
2018-12-12
| ||
16:34 | Pulling changes from fsar branch check-in: f86ea7b2dc user: hypnotoad tags: core-8-6-8, 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 | aliases tao.layer option prefix {} option layer_name {} property layer_index_order 0 constructor {sharedobjects args} { foreach {organ object} $sharedobjects { | | | 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | 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 } |
︙ | ︙ | |||
131 132 133 134 135 136 137 | 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 { | | | | 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 | 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 } |
︙ | ︙ | |||
307 308 309 310 311 312 313 | ### # topic: 96201b2abf6901f5750499e903be1351 ### method Shared_Organs {} { dict set shared master [self] foreach organ [my meta cget shared_organs] { | | | 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 | ### # 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 } |
︙ | ︙ |