// sample amulet program to display a main window with text
//
// hussein suleman
// july 2000

#include <amulet.h>

// global Amulet definitions/declarations 

Am_Object MainWindow;   // main window object

char label[10][6];      // labels for text elements on window

// main program body

int main ()
{
   // initialize Amulet system
   Am_Initialize ();

   // create main window
	MainWindow = Am_Window.Create ("Student Information Database")
		.Set (Am_LEFT, 20)
		.Set (Am_TOP, 50)
		.Set (Am_WIDTH, 500)
		.Set (Am_HEIGHT, 300)
		.Set (Am_TITLE, "Student Information Database");

   // add headings
   MainWindow.Add_Part (Am_Text.Create ()
		.Set (Am_LEFT, 10)
		.Set (Am_TOP, 30)
		.Set (Am_TEXT, "Name                                     SSN")
	);

   // create display of student data
   for ( int j=0; j<10; j++ )
   {
      strcpy (label[j], "text0");
      label[j][4] += j;
   }
	for ( int i=0; i<10; i++ )
	{
      Am_Slot_Key TextLine = Am_Register_Slot_Name (label[i]);
		MainWindow.Add_Part (TextLine, Am_Text.Create (label[i])
			.Set (Am_LEFT, 10)
			.Set (Am_TOP, 70+(i*20))
			.Set (Am_TEXT, label[i])
      );
	}

   // add all windows to screen
   Am_Screen.Add_Part (MainWindow);

	Am_Main_Event_Loop ();
  	
   Am_Cleanup ();

   return 0;
}