!Cola global de menu
Q:Menu                   QUEUE,PRE(),EXTERNAL,DLL(dll_mode)
Q:Nro_Control              LONG
Q:Nro_Control_Padre        LONG
Q:Descripcion              STRING(200)
Q:Icono                    SHORT
Q:Tipo                     LONG
Q:Estado                   LONG
                         END
!Clase

GatoMenuClass     CLASS,TYPE
MQ:MenuQueue          &QUEUE            !Propiedades y metodos para ocultar controles
MQ:Nro_Control        ANY
MQ:Nro_Control_Padre  ANY
MQ:Descripcion        ANY
MQ:Icono              ANY
MQ:Tipo               ANY
MQ:Estado             ANY
ActualControl         LONG
LastControl           LONG
Init                  FUNCTION(*QUEUE MQueue,*TranslatorClass Trans)
Init                  FUNCTION(*QUEUE MQueue)
QueueAssign           FUNCTION()
LocalAssign           FUNCTION()
MenuLoad              FUNCTION()
MenuHide              FUNCTION()
HideFirstSeparator    FUNCTION()
HideLastSeparator     FUNCTION()
HideIntraSeparator    FUNCTION()
MenuClear             FUNCTION()
Translate        &TranslatorClass
TranslateActive  BYTE
TreeControl      LONG                    !Propiedades y metodos del arbol de menu
Q:Icons          &QUEUE
Q:Arbol          &QUEUE
QA:Descripcion   ANY
QA:Icono         ANY
QA:Nivel         ANY
QA:Nro_Control   ANY
QA:Tipo          ANY
QA:Descrip_Upper ANY
ContButton      LONG,DIM(10)
AddButton       FUNCTION(LONG Cont,BYTE no)
AddIcon         FUNCTION(STRING Desc,STRING Ico)
InitTreeProc    FUNCTION(LONG Arbol,STRING IMenu,STRING IItem,STRING ISep,STRING Cur,QUEUE Q:Ico,QUEUE Q:Arb)
InitTree        FUNCTION(LONG Control)
LoadTree        FUNCTION(LONG Control)
RefreshButtons  FUNCTION(STRING Incluir)
ButtonIcon      FUNCTION(STRING Desc),STRING
Nivel           FUNCTION(LONG Con),BYTE
MenuName        FUNCTION(LONG Con),STRING
CutShortCut     FUNCTION(STRING Desc),STRING
CutAmpersand    FUNCTION(STRING Desc),STRING
QueueAssignLocalTree FUNCTION()
LocalAssignQueueTree FUNCTION()
          END

GatoMenu        &GatoMenuClass,EXTERNAL,DLL(dll_mode)