POP: create popup menu, immediate or mouse activated (H)

• The POP function lets you pop up a menu either script controlled or in response to a mouse button click:
  • POP(Menu = xyz [, options]) !

    selected item number is returned in the global variable $$

  This requires the definitions:
  • CHARACTER xyz*300 ! define the menu texts
  • xyz = "Reset,,Pop Type,Menu Types,"
  • xyz = TRIM(xyz) // "Pop Type:immediate 0,left mouse 1,right mouse 2,horizontal center align 4,right align 8,vertical center align 16,bottom align 32,vertical align priority 64,"
  • xyz = TRIM(xyz) // "Menu Types:enabled 0,grayed 1,checked 2,new column 4,new column + bar 8,"
  A

  callback subroutine

  MUST be supplied for callback after clicking a menu item

   SUBROUTINE
   xyz 
     ! statements that work with $$
   or the SelTxt=... variable,  e.g. 
     IF($$ == 12) THEN
         WRITE(Messagebox) "menu item 12 selected"
       ELSEIF(selected == "some text") THEN
         WRITE(FIle=mydata) "some text"
     ENDIF
  END
  

  select popup types	select menu arrangements

  options	type	sequence is arbitrary
  Menu	TXT	Required ( ⇒ same as menu bar in WINDOW) The Menu keyword Menu=..., e.g. CHARACTER menulist = "item1;item2;;item4...;" POP(Menu=menulist) The callback subroutine of the same name , e.g. SUBROUTINE menulist ! here goes the callback action END the last non-blank character in the menu string defines the separator (here ";") two separators in a row (empty item) define a horizontal bar MenuTypes may precede the item text, e.g. ...,6 checked+new column,...
  MenuTypes	vec	state and arrangement of menu items 0 = enabled (default) 1 = grayed 2 = checked 4 = start new column 8 = start new column + bar
  Poptype	num	response to mouse click 0 immediate popup on script call (default) 1 left mouse button 2 right mouse button 4 horizontal center align 8 right align 16 vertical center align 32 bottom align 64 vertical align priority
  X	num	x=123 ! popup pixel x address. For mouse generated popups, pixel coordinates are returned in the optional arguments to X= and Y=
  Y	num	y=yPxl ! popup pixel y address.
  SelTxt	TXT	seltxt=selected to copy the menu item text to the variable "selected"
  Owner	num	owner=child_window_handle for popups associated with child windows