uses Dos, Objects, Drivers, Memory, Views, Menus, App ;

Const
{Put include files here *.CM, *.HC }

{$I s01.cm}
{$I s01.hc}
type

    tvapp = object(tapplication)
      procedure initmenubar;virtual;
    end;





procedure tvapp.initmenubar;
var
 r:trect;
begin
{------------------------------------------------------------------------}
{  Use ^KR  then *.SCM to grab source from disk to insert into this file }
{  Sample  delete between * before reading in another menu               }
{  Change the include directives at the top of the file to match the     }
{  menu name                                                             }
{------------------------------------------------------------------------}



{*}
{ C:\BP\CODE\S01.SCM  MenuCase 0.0 13:43:14, 5/2/93 }

GetExtent(r);
R.B.Y := R.A.Y + 1;
MenuBar := new(PmenuBar,init(r,
NewMenu(
  NewSubMenu('~M~aintenance', hcnocontext,
  NewMenu(
        NewSubMenu('~C~lients', hcNoContext,
        NewMenu(
              NewItem('~A~dd client', 'F2',kbF2 ,CmAddClient, HcClientHint,
              NewItem('~E~dit client', ' ',kbnokey,CmEditClient, HcClientHint,
              NewLine(
              NewItem('~D~elete client', ' ',kbnokey,CmDeleteClient, HcClientHint,
        NIL))))),
        NewItem('e~X~it', ' ',kbAltX,cmquit, hcnocontext,
  NIL))),
  NewSubMenu('~R~eports', hcNoContext,
  NewMenu(
        NewItem('~E~mployee reports', ' ',kbnokey,CmEmployeeReports, HcEmployeeHint,
        NewSubMenu('~C~lient reports', hcNoContext,
        NewMenu(
              NewItem('~A~ll clients', ' ',kbnokey,CmReportAllClients, HcClientReportHint,
              NewItem('~S~elect client', ' ',kbnokey,CmSelectClient, HcClientReportHint,
        NIL))),
  NIL))),nil)))));
{*}

end;

var
    Theapp:tvapp;



begin
Theapp.init;
Theapp.run;
Theapp.done;


end.