************************************************** >*-- Class: pjx (e:\dragan\dokumenti\rad\vfprc\app.vcx) >*-- ParentClass: projecthook >*-- BaseClass: projecthook >*-- Time Stamp: 11/15/01 04:13:07 PM >* >#INCLUDE "d:\program files\microsoft visual studio\vfp98\foxpro.h" >* >DEFINE CLASS pjx AS projecthook > > Height = 22 > Width = 23 > Name = "pjx" > > > PROCEDURE addpath > lParam cPath > cPath=fullp(cPath) > if atc(cPath+',', set('path')+',')=0 > cPath=set('path')+','+cPath > set path to (cPath) > endif > ENDPROC > > > PROCEDURE Init > dodefault() > local oPjx > oPjx=_vfp.activeproject > cd (oPjx.homedir) > this.addpath(justpath(this.classlibrary)) > use (oPjx.name) again in 0 noup alias pjx > select dist (justpath(name)) from pjx into array aa > *use in pjx > for i=1 to alen(aa) > this.addpath(trim(aa[i])) > endfor > SELECT pjx > USE > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: pjx >************************************************** >