LJ Archive

Listing 1. fd2pl Autogenerated Code

#!/usr/local/bin/perl -w
#-*-perl-*-
# Autogenerated by fd2pl from fdesign file pbook.c
use X11::Xforms;
$list = undef;
$browser = undef;
$email_field = undef;
$name_field = undef;
$phone_field = undef;
$address1_field = undef;
$address2_field = undef;
sub create_form_list {
  $obj = undef;
  $list = fl_bgn_form(FL_NO_BOX, 460, 510);
  $obj = fl_add_box(FL_UP_BOX, 0, 0, 460, 510,
   "");
  $obj = fl_add_browser(FL_HOLD_BROWSER, 10, 60,
   190, 440, "");
  $browser = $obj;
  fl_set_object_callback($obj, "browser_clicked",
   0);
  $obj = fl_add_input(FL_NORMAL_INPUT, 210, 350,
   230, 30, "E-Mail");
  $email_field = $obj;
  fl_set_object_lsize($obj, FL_MEDIUM_SIZE);
  fl_set_object_lalign($obj, FL_ALIGN_TOP_LEFT);
  fl_set_object_callback($obj, "update_data", 0);
  $obj = fl_add_input(FL_NORMAL_INPUT, 210, 80,
   230, 30, "Name");
  $name_field = $obj;
  fl_set_object_lsize($obj, FL_MEDIUM_SIZE);
  fl_set_object_lalign($obj, FL_ALIGN_TOP_LEFT);
  fl_set_object_callback($obj, "update_data", 0);
  $obj = fl_add_input(FL_NORMAL_INPUT, 210, 130,
   230, 30, "Phone Number");
  $phone_field = $obj;
  fl_set_object_lsize($obj, FL_MEDIUM_SIZE);
  fl_set_object_lalign($obj, FL_ALIGN_TOP_LEFT);
  fl_set_object_callback($obj, "update_data", 0);
  $obj = fl_add_input(FL_NORMAL_INPUT, 210, 210,
   230, 30, "Address");
  $address1_field = $obj;
  fl_set_object_lsize($obj, FL_MEDIUM_SIZE);
  fl_set_object_lalign($obj, FL_ALIGN_TOP_LEFT);
  fl_set_object_callback($obj, "update_data", 0);
  $obj = fl_add_input(FL_NORMAL_INPUT, 210, 260,
   230, 30, "Address");
  $address2_field = $obj;
  fl_set_object_lsize($obj, FL_MEDIUM_SIZE);
  fl_set_object_lalign($obj, FL_ALIGN_TOP_LEFT);
  fl_set_object_callback($obj, "update_data", 0);
  $obj = fl_add_button(FL_NORMAL_BUTTON, 230, 410,
   100, 40, "Clear");
  fl_set_object_lsize($obj, FL_LARGE_SIZE);
  fl_set_object_lstyle($obj,
   FL_NORMAL_STYLE+FL_SHADOW_STYLE);
  fl_set_object_callback($obj, "clear_data", 0);
  $obj = fl_add_button(FL_NORMAL_BUTTON, 330, 410,
   110, 40, "Update");
  fl_set_object_lsize($obj, FL_LARGE_SIZE);
  fl_set_object_lstyle($obj,
   FL_NORMAL_STYLE+FL_SHADOW_STYLE);
  fl_set_object_callback($obj, "update_data", 0);
  $obj = fl_add_button(FL_NORMAL_BUTTON, 10, 10,
   100, 40, "Quit!");
  fl_set_object_lsize($obj, FL_LARGE_SIZE);
  fl_set_object_callback($obj, "quit", 0);
  $obj = fl_add_button(FL_NORMAL_BUTTON, 230, 450,
   210, 40, "Delete Entry");
  fl_set_object_lsize($obj, FL_LARGE_SIZE);
  fl_set_object_lstyle($obj,
   FL_NORMAL_STYLE+FL_SHADOW_STYLE);
  fl_set_object_callback($obj, "delete_entry", 0);
  $obj = fl_add_text(FL_NORMAL_TEXT, 290, 10, 160,
   40, "PhoneBook");
  fl_set_object_lcolor($obj, FL_CYAN);
  fl_set_object_lsize($obj, FL_HUGE_SIZE);
  fl_set_object_lalign($obj,
   FL_ALIGN_LEFT|FL_ALIGN_INSIDE);
  fl_set_object_lstyle($obj,
   FL_NORMAL_STYLE+FL_SHADOW_STYLE);
  fl_end_form();
}
sub create_the_forms {
  create_form_list();
}
1;
LJ Archive