Changes: 1. Methods not allowed in class child-objects 2. If on desktop and not Global/for..is for dfdesktop
#IFSAME !3 OF
#IFSAME !5 FILE_FIELD // is the file_field keyword used?
#IFCLASS !6 F // test for file element
#PUSH !h
#PUSH !g
#SET H$ %!6 // get the fieldnumber of parameter
#SET G$ !6 // get the filenumber of parameter
GET$SET$HELP !1 !2 !3 !4 |CI!g |CI!h !7 !8 !9
#POP G$
#POP H$
#ELSE
#ERROR 998 UNKNOWN FIELD: !6
#ENDIF
#ELSE
#IFSAME !5 FIELD // is the field keyword used?
#IFCLASS !6 F // test for file element
#PUSH !h
#SET H$ %!6 // get the fieldnumber of parameter
GET$SET$HELP !1 !2 !3 !4 |CI!h !7 !8 !9
#POP H$
#ELSE
#ERROR 998 UNKNOWN FIELD: !6
#ENDIF
#ELSE
GET$SET$HELP !1 !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDIF
#ELSE // !3 not OF. Provide Object
GET$SET !1 !2 OF CURRENT_OBJECT !3 !4 !5 !6 !7 !8 !9
#ENDIF