home *** CD-ROM | disk | FTP | other *** search
/ STraTOS 1997 April & May / STraTOS 1 - 1997 April & May.iso / CD01 / PRGMANIA / @FALCON / VISUAL41 / SAMPLES / SAMPLE.DEF next >
Encoding:
Modula Definition  |  1996-11-21  |  1.7 KB  |  44 lines
  1. DEFINITION MODULE Sample;
  2.  
  3. (* EXPORT
  4.     MENU_PRINCIPAL, TRIDI, BUTONS, FGO_RADIO_INIT_S, FGO_BTON_INIT_Y, FGO_BTON_INIT_N,
  5.     FGO_BTON_INIT_A, FGO_BTON_AUTO_SA, FGO_BTON_OK, FGO_BTON_LOAD, FMS_OK, FMS_CANCEL,
  6.     TEXTS, FGO_TEXT_BBSPATH, FSXY_TEXT_WIDTH, FSO_CPOP_FLOW, POPUPS, POPUP_HANDSHAKE,
  7.     SPOP_RTSCTS, SPOP_XONXOFF, SPOP_BOTH, DRAW, ICONS, ALERTE; *)
  8.  
  9.  
  10. CONST
  11.  
  12.     MENU_PRINCIPAL =   0;    (* Arbre menu *)
  13.  
  14.     TRIDI    =   1;    (* Formulaire/Dialogue *)
  15.  
  16.     BUTONS   =   2;    (* Formulaire/Dialogue *)
  17.     FGO_RADIO_INIT_S =   1;    (* IBOX dans l'arbre BUTONS *)
  18.     FGO_BTON_INIT_Y =   2;    (* BUTTON dans l'arbre BUTONS *)
  19.     FGO_BTON_INIT_N =   3;    (* BUTTON dans l'arbre BUTONS *)
  20.     FGO_BTON_INIT_A =   4;    (* BUTTON dans l'arbre BUTONS *)
  21.     FGO_BTON_AUTO_SA =   5;    (* BOXCHAR dans l'arbre BUTONS *)
  22.     FGO_BTON_OK =   6;    (* BUTTON dans l'arbre BUTONS *)
  23.     FGO_BTON_LOAD =   8;    (* BUTTON dans l'arbre BUTONS *)
  24.     FMS_OK   =  10;    (* BUTTON dans l'arbre BUTONS *)
  25.     FMS_CANCEL =  11;    (* BUTTON dans l'arbre BUTONS *)
  26.  
  27.     TEXTS    =   3;    (* Formulaire/Dialogue *)
  28.     FGO_TEXT_BBSPATH =   3;    (* TEXT dans l'arbre TEXTS *)
  29.     FSXY_TEXT_WIDTH =   6;    (* FBOXTEXT dans l'arbre TEXTS *)
  30.     FSO_CPOP_FLOW =   7;    (* BOXTEXT dans l'arbre TEXTS *)
  31.  
  32.     POPUPS   =   4;    (* Formulaire/Dialogue *)
  33.     POPUP_HANDSHAKE =   1;    (* BOX dans l'arbre POPUPS *)
  34.     SPOP_RTSCTS =   2;    (* STRING dans l'arbre POPUPS *)
  35.     SPOP_XONXOFF =   3;    (* STRING dans l'arbre POPUPS *)
  36.     SPOP_BOTH =   4;    (* STRING dans l'arbre POPUPS *)
  37.  
  38.     DRAW     =   5;    (* Formulaire/Dialogue *)
  39.  
  40.     ICONS    =   6;    (* Formulaire/Dialogue *)
  41.  
  42.     ALERTE   =   0;    (* Chaine d'alerte *)
  43. END Sample.
  44.