add more types to detach

lib-nested-core/src/repr_tree/morphism.rs

@@ -1,8 +1,11 @@
 use {
     laddertypes::{TypeTerm, TypeID, morphism::Morphism},
-    r3vi::view::{AnyOuterViewPort, port::UpdateTask},
+    r3vi::view::{AnyOuterViewPort, port::*, list::*},
     crate::{
-        repr_tree::{ReprTree, ReprTreeExt, ReprLeaf},
+        repr_tree::{
+            ReprTree, ReprTreeExt, ReprLeaf,
+            context::{*}
+        },
     },
     std::{
         sync::{Arc, RwLock},

lib-nested-core/src/repr_tree/node.rs

@@ -248,16 +248,45 @@ impl ReprTree {
     }
 
     pub fn detach(&mut self, ctx: &Arc<RwLock<Context>>) {
-//        eprintln!("DETACH {:?}", self.get_type());
         if let Some(leaf) = self.leaf.as_mut() {
-            if self.type_tag == Context::parse(&ctx, "Char") {
+            if self.type_tag ==
+                TypeTerm::TypeID(TYPEID_edittree)
+            {
+                leaf.detach::< dyn SingletonView<
+                    Item = Arc<RwLock< crate::edit_tree::EditTree >>
+                > >();
+            }
+            else if self.type_tag ==
+                TypeTerm::TypeID(TYPEID_char)
+            {
                 leaf.detach::< dyn SingletonView<Item = char> >();
             }
-            if self.type_tag == Context::parse(&ctx, "<Vec Char>") {
+            else if self.type_tag == TypeTerm::TypeID(TYPEID_u64)
+            {
+                leaf.detach::< dyn SingletonView<Item = u64> >();
+            }
+            else if self.type_tag == TypeTerm::App(vec![
+                TypeTerm::TypeID(TYPEID_vec),
+                TypeTerm::TypeID(TYPEID_edittree),
+            ]) {
+                leaf.detach_vec::<
+                    Arc<RwLock< crate::edit_tree::EditTree >>
+                >();
+            }
+            else if self.type_tag == TypeTerm::App(vec![
+                TypeTerm::TypeID(TYPEID_vec),
+                TypeTerm::TypeID(TYPEID_char),
+            ]) {
                 leaf.detach_vec::< char >();
             }
-            if self.type_tag == Context::parse(&ctx, "<List Char>") {
+            else if self.type_tag == TypeTerm::App(vec![
-                leaf.detach::<dyn ListView<char>>();
+                TypeTerm::TypeID(TYPEID_vec),
+                TypeTerm::TypeID(TYPEID_u64),
+            ]) {
+                leaf.detach_vec::< u64 >();
+            }
+            else {
+                eprintln!("cant detach type");
             }
         }