Module Dfmenu.pkg

     1//************************************************************************
     2//
     3// Copyright (c) 1997 Data Access Corporation, Miami Florida,
     4// All rights reserved.
     5// DataFlex is a registered trademark of Data Access Corporation.
     6//
     7//************************************************************************
     8// 07/25/96 JJT class name changes
     9// 01/03/96 JJT 1. Extended syntax of command to support custom classes
    10//                 DFCreate_Menu "Item Value" ObjectName {is a Classname}
    11//************************************************************************
    12
    13Use Windows.pkg
    14//Use Action
    15
    16#REPLACE MENUPOPUP 0
    17#REPLACE END_MENU END_PULL_DOWN
    18
    19#IFSUB 'AREA_FLAG'
    20#ELSE
    21  #REPLACE AREA_FLAG 3  //scope AND popup
    22#ENDIF
    23
    24// Combines object creation and On_Item for Popup Menus
    25#COMMAND DFCreate_Menu
    26    #IF (!0>1)
    27      Register_Object !2
    28      On_Item !1 send MENUPOPUP to (!2(self))
    29      #IF (!0>2)
    30          Object !2 !3 !4 !5 !6 !7 !8 !9
    31      #ELSE
    32          Object !2 is a PopupMenu
    33      #ENDIF
    34            Item_List
    35    #ELSE
    36      Object !1 is an MenuBar
    37          Item_List
    38    #ENDIF
    39#ENDCOMMAND
    40