04.08.2013 Views

Chapter 16 Customizing Your Development ... - dFPUG-Portal

Chapter 16 Customizing Your Development ... - dFPUG-Portal

Chapter 16 Customizing Your Development ... - dFPUG-Portal

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

450 The Fundamentals of Visual FoxPro 6.0<br />

Figure <strong>16</strong>.3. Be sure to select the Append option<br />

button to include additional menu pads on the<br />

standard VFP menu.<br />

In order to keep the code for the menu as stable as possible, each menu command runs the<br />

same program, passing the name of the menu bar as a parameter:<br />

do l_gofox in GOFOXGO with prompt()<br />

The L_GOFOX routine, contained as a procedure in GOFOXGO.PRG, looks like this, in<br />

part:<br />

**************************************************************************<br />

function l_gofox<br />

**************************************************************************<br />

lparameter m.tcNaApp<br />

m.cPathPrefix = "f:"<br />

m.cPath60LAN ;<br />

= m.cPathPrefix + "\devuti60; " + m.cPathPrefix + "\common60LAN"<br />

m.cPath60CS ;<br />

= m.cPathPrefix + "\devuti60; " + m.cPathPrefix + "\common60CS"<br />

do case<br />

case upper(m.tcNaApp) = "BC"<br />

set path to &cPath60LAN<br />

set default to m.cPathPrefix + "\bc\t12\source"<br />

case upper(m.tcNaCust) = "WEAC"<br />

set path to &cPath60CS<br />

set default to m.cPathPrefix + "\weac\mid2\source

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!