/* ************************************************************* *
 *   The Amulet User Interface Development Environment           *
 * ************************************************************* *
 *   Created automatically by the Gilt program in Amulet.        *
 *   Do not edit this file directly.                             *
 *   For more information on Amulet, contact amulet@cs.cmu.edu   *
 * ************************************************************* *
 *   Generated on Sun Jul 30 23:32:44 2000

 *   Amulet version 3.0
 * ************************************************************* */

#include <amulet.h>

Am_Object adddialog;

Am_Slot_Key AddNameInput = Am_Register_Slot_Name ("AddNameInput");
Am_Slot_Key AddIDInput = Am_Register_Slot_Name ("AddIDInput");


Am_Object adddialog_Initialize () {
  adddialog = Am_Window.Create("adddialog")
    .Set(Am_DESTROY_WINDOW_METHOD, Am_Default_Pop_Up_Window_Destroy_Method)
    .Set(Am_FILL_STYLE, Am_White)
    .Set(Am_TITLE, "Add Student")
    .Set(Am_ICON_TITLE, "Add Student")
    .Set(Am_WIDTH, 266)
    .Set(Am_HEIGHT, 147)
    ;
  adddialog
    .Add_Part(Am_Button_Panel.Create()
      .Set(Am_LEFT, 60)
      .Set(Am_TOP, 100)
      .Set(Am_FILL_STYLE, Am_Amulet_Purple)
      .Set(Am_LAYOUT, Am_Horizontal_Layout)
      .Set(Am_H_SPACING, 30)
      .Set(Am_V_SPACING, 0)
      .Set(Am_MAX_RANK, 0)
      .Set(Am_ITEMS, Am_Value_List()
        .Add(Am_Standard_OK_Command.Create())
        .Add(Am_Standard_Cancel_Command.Create())
        )
    )
    .Add_Part(AddNameInput, Am_Text_Input_Widget.Create("AddNameInput")
      .Set(Am_LEFT, 20)
      .Set(Am_TOP, 20)
      .Set(Am_WIDTH, 220)
      .Set(Am_HEIGHT, 25)
      .Get_Object(Am_COMMAND)
        .Set(Am_LABEL, "Name :")
        .Get_Owner()
      .Set(Am_FILL_STYLE, Am_Amulet_Purple)
    )
    .Add_Part(AddIDInput, Am_Text_Input_Widget.Create("AddIDInput")
      .Set(Am_LEFT, 20)
      .Set(Am_TOP, 60)
      .Set(Am_WIDTH, 220)
      .Set(Am_HEIGHT, 25)
      .Get_Object(Am_COMMAND)
        .Set(Am_LABEL, "ID :")
        .Get_Owner()
      .Set(Am_FILL_STYLE, Am_Amulet_Purple)
    )
    .Add_Part(Am_Tab_To_Next_Widget_Interactor.Create())
  ;
  return adddialog;
}