TaoLib

Check-in [f56402958b]
Login

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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
  }