Drop down buttons?

[Ollie]

Can I create a 'drop down' button - I'm not sure if this is the correct terminology.

I want the user to either add a COMPANY or CONTACT PERSON, I can do this with 2 buttons :

Code: Select all  Expand view

DEFINE BUTTON oButton1 OF oButton_Bar PROMPT "Add1" ACTION add_COMPANY() TOOLTIP "Add a new COMPANY"

   DEFINE BUTTON oButton2 OF oButton_Bar PROMPT "Add2" ACTION add_CONTACT() TOOLTIP "Add a new CONTACT PERSON"

...but it would be slicker if the user could click the 'Add' button and then get a choice of 'Add Company' or 'Add Contact' (Like you can do with MENUITEM)

[Antonio Linares]

Ollie,

Code: Select all  Expand view

   MENU oMenuNew POPUP
      MENUITEM "New &Company" RESOURCE "Company"
      MENUITEM "New Contact &Person" RESOURCE "Person"
   ENDMENU

   DEFINE BUTTON OF oBar  ;
      TOOLTIP "New" NOBORDER RESOURCE "New" MENU oMenuNew


The RESOURCEs "Company", "Person" and "New" are 16x16 bitmaps

[Ollie]

Cool !!