Module cCJGridFieldChooserMenuItem.pkg

     1Use cCJCommandBarSystem.pkg
     2Use cCJGridFieldChooser.pkg
     3
     4Class cCJGridFieldChooserMenuItem is a cCJMenuItem
     5    Procedure Construct_Object
     6        Forward Send Construct_Object
     7        Set psCaption to "Field Chooser"        //TODO: Translate this string.
     8    End_Procedure
     9    
    10    Procedure OnExecute Variant vCommandBarControl
    11        Send ActivateFieldChooser of (Focus(Self))
    12    End_Procedure
    13End_Class
    14
    15