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

[FIX] frame size

parent 69038bce
...@@ -104,6 +104,15 @@ frameLayoutViewCpt :: R.Component ViewProps ...@@ -104,6 +104,15 @@ frameLayoutViewCpt :: R.Component ViewProps
frameLayoutViewCpt = R.hooksComponentWithModule thisModule "frameLayoutView" cpt frameLayoutViewCpt = R.hooksComponentWithModule thisModule "frameLayoutView" cpt
where where
cpt {frame: (NodePoly {hyperdata: Hyperdata {base, frame_id}}), nodeId, reload, session, nodeType} _ = do cpt {frame: (NodePoly {hyperdata: Hyperdata {base, frame_id}}), nodeId, reload, session, nodeType} _ = do
pure $ R2.frameSet { className : "frame"
, rows: "100%,*" }
[ R2.frame { src: hframeUrl nodeType base frame_id
, width: "100%"
, height: "100%"
} []
]
{-
pure $ H.div { className : "frame" pure $ H.div { className : "frame"
, rows: "100%,*" } , rows: "100%,*" }
[ H.iframe { src: hframeUrl nodeType base frame_id [ H.iframe { src: hframeUrl nodeType base frame_id
...@@ -111,7 +120,7 @@ frameLayoutViewCpt = R.hooksComponentWithModule thisModule "frameLayoutView" cpt ...@@ -111,7 +120,7 @@ frameLayoutViewCpt = R.hooksComponentWithModule thisModule "frameLayoutView" cpt
, height: "100%" , height: "100%"
} [] } []
] ]
-}
type LoadProps = type LoadProps =
( nodeId :: Int ( nodeId :: Int
......
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