Fix table height

voodoos · Aug 28, 2024 · d92bac4 · d92bac4
1 parent 3679b1b
commit d92bac4
Show file tree

Hide file tree

Showing 3 changed files with 21 additions and 3 deletions.
diff --git a/vendor/brr_lwd_ui/examples/virtual-table/brr_lwd_ui.css b/vendor/brr_lwd_ui/examples/virtual-table/brr_lwd_ui.css
@@ -76,6 +76,10 @@ html {
     border-left: 1px solid black;
     border-bottom: 1px solid black;
 
+    :has(> &) {
+        overflow: hidden;
+    }
+
     & .lwdui-lazy-table-content,
     & .lwdui-lazy-table-content-wrapper,
     & .lwdui-virtual-table-row {

diff --git a/vendor/brr_lwd_ui/examples/virtual-table/index.html b/vendor/brr_lwd_ui/examples/virtual-table/index.html
@@ -5,10 +5,21 @@
 	<title>OCAMIX</title>
 	<meta name="viewport" content="width=device-width, initial-scale=1" />
 	<link rel="stylesheet" href="./brr_lwd_ui.css">
+	<style>
+		.flex {
+			display: flex;
+			flex-direction: column;
+			height: 50vh;
+
+		}
+		.flex .table {
+			flex-grow: 1;
+		}
+	</style>
 </head>
 
 <body>
 	<script src="main.bc.js"></script>
 </body>
 
-</html>
+</html>
diff --git a/vendor/brr_lwd_ui/examples/virtual-table/main.ml b/vendor/brr_lwd_ui/examples/virtual-table/main.ml
@@ -28,8 +28,11 @@ let app =
   let table = { table; row_height = Em 5. } in
   let table = Virtual.make ~ui_table:table data in
   Elwd.div
-    ~at:Attrs.O.(v (`P (A (At.style (Jstr.v "height:50vh")))))
-    [ `R table ]
+    ~at:Attrs.O.(v (`P (C "flex")))
+    [
+      `P (El.div [ El.txt' "options" ]);
+      `R (Elwd.div ~at:Attrs.O.(v (`P (C "table"))) [ `R table ]);
+    ]
 
 let _ =
   let on_load _ =