ACTION DEFAULTS
   ACTION nextfield ( ACCELERATOR2 = Right )
   ACTION prevfield ( ACCELERATOR2 = Left ) 

   ACTION show ( TEXT="Show", ACCELERATOR = Enter, ACCELERATOR2 = Return )
   ACTION close ( TEXT="Close", ACCELERATOR = Escape )
END

LAYOUT(text="mbs",VERSION="2",STYLE="main-mbs")
GRID
{
[img                                  ] [titw                                               ] [ :tusu          :dusu         ]
 <t t1                                 ><t t2                                                                                  >
  Directory                              Demo              Program          Type  Description
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 [ddir                                 ][demo             |prog            |t    |desc                                        ]
 <                                     ><                                                                                      >
[description                                                                                                                  ]
[                                                                                                                             ]
[                                                                                                                             ]
[                                                                                                                             ]
[                                                                                                                             ]
[                                                                                                                             ]
[                                                                                                                             ]
[                                                                                                                             ]
[                                                                                                                             ]
[                                                                                                                             ]
[                                                                                                                             ]
[                                                                                                    :sh         :cl          ]
}
END 
END

ATTRIBUTES
IMAGE img:image="genero_logo.png", style="title";
LABEL titw:text="Menu Principal", JUSTIFY=CENTER, STYLE="title";
LABEL tusu:text="Usuario:", JUSTIFY=RIGHT, STYLE="titusu";
LABEL dusu = FORMONLY.datusu, JUSTIFY=LEFT, STYLE="datusu";

TABLE t1 : UNMOVABLECOLUMS, style="dirs";
TABLE t2 : UNMOVABLECOLUMS, DOUBLECLICK = show, style="detail";
EDIT  ddir = FORMONLY.ddir;
EDIT  demo = FORMONLY.mbs;
EDIT  prog = FORMONLY.prog;
IMAGE t    = FORMONLY.type;
EDIT  desc = FORMONLY.desc;
BUTTON sh: show;
BUTTON cl: close;
TEXTEDIT description = FORMONLY.longdesc, STRETCH=BOTH, FONTPITCH=FIXED;
END

INSTRUCTIONS
SCREEN RECORD dirs(FORMONLY.ddir);
SCREEN RECORD mbs(FORMONLY.mbs,FORMONLY.prog,FORMONLY.type,FORMONLY.desc);
END