Object: ID_3
Name:
Pad
Type:
Pad
Prompt:
F
ile
Or.:
1
Color Scheme:
Menu Pops
Mark:
Shortcut
Negotiate
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