home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_08_02 / 8n02110a < prev    next >
Text File  |  1990-03-01  |  2KB  |  77 lines
  1. *****Listing 3 -- not included in magazine*****
  2.  
  3.   /*********************** define the form ***************************/
  4.   <<menuform = 'form'       ** set UI var to 'form' for vvdispc.tlb >>
  5.  
  6.   /* define a form */
  7.   {menuname}_dfmp = fm_def( {formbox.row}, {formbox.col}, {formbox.height},{formbox.width}, LNORMAL, BDR_NULLP );
  8.  
  9.   /* define boxes around form items ****/
  10.   <<define_all_form_boxes()>>
  11.  
  12.   /*********** define background text  */
  13.   <<display_text()>>
  14.  
  15.   sfm_help( "*DATA HELP" , {menuname}_dfmp );  /* define form help keyword */
  16.  
  17.   <<define_form_options()>>
  18.  
  19.   /******* define form data fields *********/
  20.   <<define_all_form_fields()>>
  21.  
  22.   /******* set all the field options  ***/
  23.   <<define_all_field_options()>>
  24.  
  25.   /*** set all the field ranges ***/
  26.   <<define_all_field_range()>>
  27.  
  28.   <<define_all_field_help_keywords()>>
  29.  
  30.   <<define_all_field_functions()>>
  31.  
  32.  
  33.   /*********************** define the menu ***************************/
  34.   <<menuform = 'menu'       ** set UI var to 'form' for vvdispc.tlb >>
  35.   /* define a menu */
  36.  
  37.   {menuname}_mfmp = mn_def( MNSTANDARD ,  AUTOPLACE,AUTOPLACE,AUTOSIZE,AUTOSIZE,
  38.                      LMNINACT, BDR_NULLP );
  39.  
  40.   <<define_menu_options()>>
  41.  
  42.  
  43.   /******* define menu fields *********/
  44.   <<define_all_menu_fields()>>
  45.  
  46.  
  47.   /*********** define background text  */
  48.   <<display_text()>>
  49.  
  50.  
  51.   /**************** display variables **/
  52.   <<display_all_vars()>>
  53.  
  54.  
  55.   /* define boxes around menu items ****/
  56.   <<define_all_menu_boxes()>>
  57.  
  58.  
  59.   /**** define trigger keys **********/
  60.   <<define_all_option_triggers()>>
  61.  
  62.   mn_up( {menuname}_mfmp );            /* display menu */
  63.   fm_up( {menuname}_dfmp );            /* display form */
  64.  
  65.   mn_rd( 0, {menuname}_mfmp );         /* begin processing the menu */
  66.  
  67.   fm_dn( {menuname}_dfmp );            /* remove form */
  68.   fm_free( {menuname}_dfmp );          /* Free memory allocate for form */
  69.  
  70.   mn_dn( {menuname}_mfmp );            /* remove menu */
  71.   mn_free( {menuname}_mfmp );          /* free memory allocated for menu */
  72.  
  73.   close{menuname}();                   /* close btrieve file (s) */
  74.   return 0;
  75. %}
  76. /****************************** END: {menuname}() *******************/
  77.