/*
 * A little example that illustrates alignment in boxes.
 */

#include <InterViews/box.h>
#include <InterViews/glue.h>
#include <InterViews/message.h>
#include <InterViews/tray.h>
#include <InterViews/world.h>

main() {
    HBox *hb = new HBox();
    VBox *vb1 = new VBox(), *vb2 = new VBox();
    Tray *t = new Tray(hb);
    World* w = new World();

    hb->Align(Top);
    vb1->Align(Left);
    vb2->Align(Right);

    hb->Insert(new HGlue(round(0.12*inch),0,0));
    hb->Insert(vb1);
    hb->Insert(new HGlue(round(0.25*inch),0,0));
    hb->Insert(vb2);
    hb->Insert(new HGlue(round(0.12*inch),0,0));

    vb1->Insert(new VGlue(round(0.25*inch),0,0));
    vb1->Insert(new Message("x"));
    vb1->Insert(new VGlue(round(0.25*inch),0,0));
    vb1->Insert(new Message("xxxxxxxxxxxxxxxxxxxx"));
    vb1->Insert(new VGlue(round(0.25*inch),0,0));

    vb2->Insert(new VGlue(round(0.25*inch),0,0));
    vb2->Insert(new Message("y"));
    vb2->Insert(new VGlue(round(0.25*inch),0,0));
    vb2->Insert(new Message("yyyyyyyyyyyyyyyyyyyy"));
    vb2->Insert(new Message("zzz"));
    vb2->Insert(new VGlue(round(0.25*inch),0,0));

    w->InsertApplication(t);

    w->Run();

    delete w;
}