4 (select-previous-level)
6 (let ((frame (create-frame \
:name
\"Test root
\" \
:x
0.05 \
:y
0.05)))
7 (add-frame frame
(current-child))
8 (add-frame (create-frame \
:name
\"Test
1\" \
:x
0.3 \
:y
0 \
:w
0.7 \
:h
1) frame
)
9 (add-frame (create-frame \
:name
\"Test
2\" \
:x
0 \
:y
0 \
:w
0.3 \
:h
1) frame
)
10 (setf (current-child) (first (frame-child frame
))))
12 (show-all-children *current-root
*)