tree: create node panel with close button

Also, absolute positioning applied to make it look nicer.

dist/styles/Login.css

@@ -90,6 +90,17 @@ li#rename  #rename-a{
     z-index: 1000;
 
 }
+#create-node-tooltip {
+    position : absolute;
+    left : 96px;
+    top:-64px;
+    background-color: white;
+    z-index: 1000;
+
+}
+#create-node-tooltip .panel-body input {
+    min-width: 200px;
+}
 
 li a#rename {
     display:none;

src/Gargantext/Components/Tree.purs

@@ -296,7 +296,7 @@ renameTreeView :: (Action -> Effect Unit) -> FTree -> ID -> ReactElement
 renameTreeView d s@(NTree (LNode {id, name, nodeType, open, popOver, renameNodeValue, showRenameBox }) ary) nid  =
   div [ className ""
       , _id "rename-tooltip"
-      , _data {toggle  : "tooltip", placement : "right"}
+      , _data {toggle: "tooltip", placement: "right"}
       , title "Settings on right"] $
   [ div [_id "arrow"] []
   , div [ className "panel panel-default"
@@ -385,12 +385,23 @@ renameTreeView d s@(NTree (LNode {id, name, nodeType, open, popOver, renameNodeV
 
 createNodeView :: (Action -> Effect Unit) -> FTree -> ID -> ReactElement
 createNodeView d s@(NTree (LNode {id, name, nodeType, open, popOver, nodeValue }) ary) nid  =
-       div [className ""]
+  div [ className ""
+      , _id "create-node-tooltip"
+      , _data {toggle: "tooltip", placement: "right"}
+      , title "Create new node"] $
   [ div [className "panel panel-default"]
     [
       div [className "panel-heading"]
       [
-               h5 [] [text "Create Node"]
+        div [className "row"]
+        [ div [ className "col-md-10"]
+          [ h5 [] [text  "Create Node"] ]
+        , div [className "col-md-2"]
+          [ a [className "btn text-danger glyphitem glyphicon glyphicon-remove"
+              , onClick $ \_ -> d $ ToggleCreateNode nid
+              , title "Close"] []
+          ]
+        ]
       ]
     ,div [className "panel-body"]
      [
@@ -411,7 +422,6 @@ createNodeView d s@(NTree (LNode {id, name, nodeType, open, popOver, nodeValue }
   ]
 
 
-
 renameTreeViewDummy :: (Action -> Effect Unit) -> FTree -> ReactElement
 renameTreeViewDummy d s = div [] []