Object: ID_3

Name:
Pad
Type:Pad
Prompt:File
Or.:1
Color Scheme:Menu Pops
Mark:
ShortcutNegotiate
Key Label:
ALT+F
Container:
None
Key Text:
ALT+F
Object:
None
Skip For:
 
Message:
 
Comment:
 
Menu Procedure
LOCAL lcCmd lcCmd = Prompt() *? There was a bug with adding a method called "New" to a form, *? so we were forced to change it to AddNew at the last minute. IF UPPER(lcCmd) = "NEW" lcCmd = "AddNew" ENDIF lcCmd = "_screen.activeform." + lcCmd &lcCmd
Execute type:Submenu