home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / wizards / Wzcommon / wizstub.prg < prev    next >
Encoding:
Text File  |  1998-05-01  |  875 b   |  28 lines
  1. * This is the stub which you should copy (place the modified version in
  2. * your Wizard's directory), rename, and modify to call your wizard.
  3.  
  4. parameters cOutFileVarName, p2, p3, p4, p5, p6, p7, p8, p9
  5. private cClassLib
  6.  
  7. m.cClassLib = set('classlib')
  8.  
  9. * Modify here to reference your wizard's .vcx.
  10. set classlib to ("<<Insert the name of the class library that contains your wizard>>")
  11.  
  12. public oWizard
  13.  
  14. * The name "oWizard" is used in automated testing and should *NOT* be changed.
  15.  
  16. oWizard = createobj("<<Insert the name of your wizard>>", m.cOutFileVarName, m.p2, m.p3, m.p4, ;
  17.     m.p5, m.p6, m.p7, m.p8, m.p9)
  18.  
  19. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  20.     oEngine.aEnvironment[17,1] = m.cClassLib
  21.     oWizard.Show
  22. endif
  23. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  24.     * It must be modeless, so leave it alone
  25. else
  26.     release oWizard
  27. endif
  28.