(* This file is created with Camldsgn *)

#open "windows";;
#open "camlwin";;



#open "";;
#open "";;
#open "";;
#open "";;



let AddressWin_def = 
{
  win_left     = 5;
  win_top      = 26;
  win_width    = 148;
  win_height   = 100;
  win_id       = gr_undef_window;
  win_name     = "Design window";
  win_state    = Destroyed
};;

let address_add = 
{
  bt_window   = AddressWin_def;
  bt_left     = 116;
  bt_top      = 95;
  bt_width    = 25;
  bt_height   = 10;
  bt_state    = Up;
  bt_name     = string_type "Add";
  bt_callback = gr_do_nothing
};;

let address_del = 
{
  bt_window   = AddressWin_def;
  bt_left     = 116;
  bt_top      = 83;
  bt_width    = 25;
  bt_height   = 10;
  bt_state    = Up;
  bt_name     = string_type "Del";
  bt_callback = gr_do_nothing
};;

let address_change = 
{
  bt_window   = AddressWin_def;
  bt_left     = 116;
  bt_top      = 71;
  bt_width    = 25;
  bt_height   = 10;
  bt_state    = Up;
  bt_name     = string_type "Change";
  bt_callback = gr_do_nothing
};;
let address_search = 
{
  bt_window   = AddressWin_def;
  bt_left     = 116;
  bt_top      = 55;
  bt_width    = 25;
  bt_height   = 10;
  bt_state    = Up;
  bt_name     = string_type "Search";
  bt_callback = gr_do_nothing
};;

let address_next = 
{
  bt_window   = AddressWin_def;
  bt_left     = 116;
  bt_top      = 43;
  bt_width    = 25;
  bt_height   = 10;
  bt_state    = Up;
  bt_name     = string_type "Next";
  bt_callback = gr_do_nothing
};;

let address_pt_name = 
{
  pt_window   = AddressWin_def;
  pt_left     = 2;
  pt_top      = 92;
  pt_name     = "Name:"
};;

let address_pt_surname = 
{
  pt_window   = AddressWin_def;
  pt_left     = 2;
  pt_top      = 80;
  pt_name     = "Surname:"
};;

let address_pt_address = 
{
  pt_window   = AddressWin_def;
  pt_left     = 2;
  pt_top      = 62;
  pt_name     = "Address:"
};;

let address_name = 
{
  st_window   = AddressWin_def;
  st_left     = 24;
  st_top      = 93;
  st_width    = 75;
  st_1st_char = 0;
  st_cursor   = 0;
  st_name     = "";
  st_state    = Editable;
  st_type     = Gr_string;
  st_callback = gr_do_nothing
};;

let address_surname = 
{
  st_window   = AddressWin_def;
  st_left     = 24;
  st_top      = 82;
  st_width    = 75;
  st_1st_char = 0;
  st_cursor   = 0;
  st_name     = "";
  st_state    = Editable;
  st_type     = Gr_string;
  st_callback = gr_do_nothing
};;

let address_phone = 
{
  st_window   = AddressWin_def;
  st_left     = 24;
  st_top      = 32;
  st_width    = 75;
  st_1st_char = 0;
  st_cursor   = 0;
  st_name     = "";
  st_state    = Editable;
  st_type     = Gr_string;
  st_callback = gr_do_nothing
};;

let address_address = gr_make_text
{
  t_window    = AddressWin_def;
  t_left      = 24;
  t_top       = 64;
  t_width     = 77;
  t_height    = 26;
  t_name      = gr_lines_of_string "\n";
  t_state     = Editable;
  t_scroll    = Noscroll
};;

let address_helpbar = 
{
  hl_window   = AddressWin_def;
  hl_help     = ""
};;

let address_pt_phone = 
{
  pt_window   = AddressWin_def;
  pt_left     = 2;
  pt_top      = 30;
  pt_name     = "Phone:"
};;

let address_quit = 
{
  bt_window   = AddressWin_def;
  bt_left     = 116;
  bt_top      = 22;
  bt_width    = 25;
  bt_height   = 10;
  bt_state    = Up;
  bt_name     = string_type "Quit";
  bt_callback = gr_do_nothing
};;

let AddressWin = 
{
  win_def      = AddressWin_def;
  win_objects  = [
                  g_button    address_add;
                  g_button    address_del;
                  g_button    address_change;
                  g_button    address_next;
                  g_button    address_search;
                  g_prompt    address_pt_name;
                  g_prompt    address_pt_surname;
                  g_prompt    address_pt_address;
                  g_string    address_name;
                  g_string    address_surname;
                  g_string    address_phone;
                  g_text      address_address;
                  g_helpbar   address_helpbar;
                  g_prompt    address_pt_phone;
                  g_button    address_quit
                 ];
  time_callback  = gr_do_nothing;
  resize_callback  = gr_do_nothing;
  help_file = "";
  miscellaneous = [| |]
};;

