Кнопки рядом с помощью labltk

Question

Я использую labltk в Ocaml. Я хотел бы создать три кнопки рядом.

Предположим следующий код:

#load "labltk.cma";;
let top = openTk() in

...

let button1 = Button.create
      ~text:"Button 1"
      ~command:(fun () -> Tk.closeTk (); exit 0)
      top in

let button2 = Button.create
      ~text:"Button 2"
      ~command:(fun () -> Tk.closeTk (); exit 0)
      top in

let button3 = Button.create
      ~text:"Button 3"
      ~command:(fun () -> Tk.closeTk (); exit 0)
      top in
...

Прямо сейчас кнопки расположены одна над другими. Есть ли способ сделать кнопку рядом?

Answer 1

Для упрощения c макета Вы можете просто pack их:

pack ~side:`Left [button1;button2;button3] ;;