-
Notifications
You must be signed in to change notification settings - Fork 10
/
Copy pathreg_45.ml
47 lines (43 loc) · 1.04 KB
/
reg_45.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
let () =
PrintBox.(
PrintBox_text.output stdout
@@ frame
(vlist
[
text "123456789";
frame (vlist [ text "." |> align ~h:`Right ~v:`Top; text "." ]);
]));
print_endline ""
let () =
PrintBox.(
PrintBox_text.output stdout
@@ frame
(vlist
[
text "123456789";
frame (vlist [ text "...." |> align ~h:`Right ~v:`Top; text "." ]);
]));
print_endline ""
(* now with stretch *)
let () =
PrintBox.(
PrintBox_text.output stdout
@@ frame
(vlist
[
text "123456789";
frame ~stretch:true
(vlist [ text "." |> align ~h:`Right ~v:`Top; text "." ]);
]));
print_endline ""
let () =
PrintBox.(
PrintBox_text.output stdout
@@ frame
(vlist
[
text "123456789";
frame ~stretch:true
(vlist [ text "...." |> align ~h:`Right ~v:`Top; text "." ]);
]));
print_endline ""