/*
 * Warning -- this is a serious hack.  View at your own risk.  Do no consider
 * rerepsentative of acceptable 441 style.
 */

#include <InterViews/box.h>
#include <InterViews/button.h>
#include <InterViews/frame.h>
#include <InterViews/glue.h>
#include <InterViews/message.h>
#include <InterViews/streditor.h>
#include <InterViews/tray.h>
#include <InterViews/world.h>
#include <441/include/paintlabel.h>


main() {
    World* w = new World;
    HBox* hb1, *hb2;

    w->InsertApplication(
	new Tray(
	    new HBox(
		new HGlue(10),
		new VBox(
		    new VGlue(10),
		    new Frame(
			new HBox(
			    new HGlue(8),
			    new VBox(
				new VGlue(6),
				hb1 = new HBox(
				    new PaintLabel(
					"Last Name",
					"helvetica",
					"medium",
					"r",
					"14"
				    ),
				    new HGlue(5),
				    new ShadowFrame(
					new PaintLabel(
					    "     Fisher     ",
					    "helvetica",
					    "medium",
					    "r",
					    "14"
					),
					4, 4
				    )
				),
				new VGlue(6),
				hb2 = new HBox(
				    new PaintLabel(
					"First Name",
					"helvetica",
					"medium",
					"r",
					"14"
				    ),
				    new HGlue(5),
				    new ShadowFrame(
					new PaintLabel(
					    "     Fisher     ",
					    "helvetica",
					    "medium",
					    "r",
					    "14"
					),
					4, 4
				    )
				),
				new VGlue(6)
			    ),
			    new HGlue(8)
			),
			3
		    ),
		    new VGlue(10)
		),
		new HGlue(10)
	    )
	)
    );

    hb1->Align(Top);
    hb2->Align(Top);
    hb1->Change();
    hb2->Change();

    w->Run();
}