Descritores de Apresentação para o Dicionário

DefVars GInsPal
  pal: Pal;
  sig: Sig
EndVars
DefVars GRemPal
  pal: Pal;
  sig: Sig
EndVars
DefVars ViewConsPal
  sig: Sig
EndVars
DefVars DoConsPal
  pal: Pal
EndVars
DefSynoms
  Menu: menu;
  GInsPal: inspal;
  GRemPal: rempal;
  ViewConsPal: conspal;
EndSynoms
DefView "Portugues"
  DefDA Menu
    TYPE MENU
    NAME "Principal"
    OPTIONS GInit       "Dicionario Vazio"
            GInsPal     "Inserir Palavra"
            GRemPal     "Remover Palavra"
            ViewConsPal "Consultar"
            Fim         "Sair"
  EndDA
  DefDA Fim  
    TYPE DB
    NAME "Fim"
  EndDA
  DefDA GInsPal
    TYPE DB
    NAME "Insercao"
    VARS pal (TYPE: HimSelf
              NAME: "Palavra")
         sig (TYPE :HimSelf
              NAME: "Significado")
    CMDS Cancel (NAME: "Cancelar")
         OK     (NAME: "Terminar")
  EndDA
  DefDA GRemPal
    TYPE DB
    NAME "Remocao"
    VARS pal (TYPE: HimSelf
              NAME: "Palavra")
         sig (TYPE: HimSelf
              NAME: "Significado")
    CMDS Cancel (NAME: "Cancelar")
         OK     (NAME: "Terminar")
  EndDA
  DefDA ViewConsPal
    TYPE DB
    NAME "Consulta", 
    VARS sig (TYPE: HimSelf
              NAME: "Significado")
    GIS DoConsPal(sig) (OPEN: true
                        NAME: "Ler Palavra")
    CMDS OK     (NAME: "Terminar")
  EndDA
  DefDA DoConsPal
    TYPE DB
    NAME "Ler Palavra" 
    VARS pal (TYPE: HimSelf
              NAME: "Palavra")
  EndDA
  DefDA GInit
    TYPE DB
    NAME "Vazio"
  EndDA
EndView
DefView "Ingles"
  DefDA Menu
    TYPE MENU
    NAME "Main"
    OPTIONS GInit       "Empty Dictionary"
            GInsPal     "Insert Word"
            GRemPal     "Delete Word"
            ViewConsPal "Search"
            Fim         "Quit"
  EndDA
  DefDA Fim  
    TYPE DB
    NAME "End"
  EndDA
  DefDA GInsPal
    TYPE DB
    NAME "Insert"
    VARS pal (TYPE: HimSelf
              NAME: "Word")
         sig (TYPE: HimSelf
              NAME: "Meaning")
    CMDS Cancel (NAME: "Cancel")
         OK     (NAME: "OK")
  EndDA
  DefDA GRemPal
    TYPE DB
    NAME "Delete"
    VARS pal (TYPE: HimSelf
              NAME: "Word")
         sig (TYPE: HimSelf
              NAME: "Meaning")
    CMDS Cancel (NAME: "Cancel")
         OK     (NAME: "OK")
  EndDA
  DefDA ViewConsPal
    TYPE DB
    NAME "Search", 
    VARS sig (TYPE: HimSelf
              NAME: "Meaning")
    GIS DoConsPal(sig) (OPEN: true
                        NAME: "Read Word")
    CMDS OK     (NAME: "OK")
  EndDA
  DefDA DoConsPal
    TYPE DB
    NAME "Read Word" 
    VARS pal (TYPE: HimSelf
              NAME: "Word")
  EndDA
  DefDA GInit
    TYPE DB
    NAME "Empty"
  EndDA
EndView