Commit b061e70f authored by Alexandre Delanoë's avatar Alexandre Delanoë

Merge branch 'dev-bootstrap-v4-upgrade' of...

Merge branch 'dev-bootstrap-v4-upgrade' of ssh://gitlab.iscpif.fr:20022/gargantext/purescript-gargantext into dev-merge
parents 2e37b9ae e6480d6b
......@@ -104,8 +104,9 @@ frameLayoutViewCpt :: R.Component ViewProps
frameLayoutViewCpt = R.hooksComponentWithModule thisModule "frameLayoutView" cpt
where
cpt {frame: (NodePoly {hyperdata: Hyperdata {base, frame_id}}), nodeId, reload, session, nodeType} _ = do
pure $ H.div { className : "frame" }
[ H.iframe { src: hframeUrl nodeType base frame_id
pure $ R2.frameset { className : "frame"
, rows: "100%,*" }
[ R2.frame { src: hframeUrl nodeType base frame_id
, width: "100%"
, height: "100%"
} []
......
......@@ -115,6 +115,12 @@ select = createDOM "select"
menu :: ElemFactory
menu = createDOM "menu"
frame :: ElemFactory
frame = createDOM "frame"
frameset :: ElemFactory
frameset = createDOM "frameset"
keyCode :: forall event. event -> Effect Int
keyCode = runEffectFn1 _keyCode
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment