Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Menu Pads & Menu Bars
Message
General information
Forum:
Visual FoxPro
Category:
The Mere Mortals Framework
Miscellaneous
Thread ID:
00466760
Message ID:
00466816
Views:
12
Doug et al,

Thanks for explanation on the sub pads. The amenus.mainmenus.loadchildren class shows the "activities" pad loading and there is no "Project" in the laChildren array, that's why I'm wondering where it comes from. Code below.

*:ClassLibrary ctmenus.vcx
*:ClassLibrary cmenus.vcx
*:ClassLibrary amenus.vcx

#DEFINE NUMCHILDREN 8
LOCAL laChildren[NUMCHILDREN,ALEN(this.aChildren,2)]

laChildren[1,CHILD_CLASS] = "CFilePad"
laChildren[1,CHILD_NAME] = "oFilePad"
laChildren[2,CHILD_CLASS] = "CEditPad"
laChildren[2,CHILD_NAME] = "oEditPad"
laChildren[3,CHILD_CLASS] = "ActivitiesPad"
laChildren[3,CHILD_NAME] = "oActivitiesPad"
laChildren[4,CHILD_CLASS] = "AdministrationPad"
laChildren[4,CHILD_NAME] = "oAdministrationPad"
laChildren[5,CHILD_CLASS] = "CNavigationPad"
laChildren[5,CHILD_NAME] = "oNavigationPad"
laChildren[6,CHILD_CLASS] = "CUtilitiesPad"
laChildren[6,CHILD_NAME] = "oUtilitiesPad"
laChildren[7,CHILD_CLASS] = "CWindowPad"
laChildren[7,CHILD_NAME] = "oWindowPad"
laChildren[8,CHILD_CLASS] = "CHelpPad"
laChildren[8,CHILD_NAME] = "oHelpPad"

DIMENSION this.aChildren[NUMCHILDREN,ALEN(laChildren,2)]
=ACOPY(laChildren,this.aChildren)

RETURN NUMCHILDREN
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform