TaoLib

Check-in [f56402958b]
Login

Check-in [f56402958b]

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.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
Unified Diff 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
  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
  }








|







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
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 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
      }







|



|







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
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 clay delegate $organ]
      if { $obj ne {} } {
        dict set shared $organ $obj
      }
    }
    return $shared
  }








|







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
  }