DEFINE CLASS projectpath AS projecthook Height = 22 Width = 23 Name = "projectpath" PROCEDURE Destroy set default to "O:\" set path to ENDPROC PROCEDURE Init local lcDir,lcProjDir lcDir = allt(sys(5)+curdir()) lcProjDir = allt(substr(curdir(),1,at('\',curdir(),2)-1)) set default to &lcDir set path to "class,data,forms,icons,reports,help,prog,o:\"+lcProjDir+"\source\a blank oapp\class" ENDPROC ENDDEFINE