isCOBOL Evolve : User Interface : Controls Reference : SCROLL-BAR : Properties : Pop-Up Menu
Pop-Up Menu
With this property it is possible to associate a pop-up menu with the Scroll-Bar control by assigning a pop-up menu handle to it. The MSG-INIT-MENU, MSG-MENU-INPUT and MSG-END-MENU events may be generated.
 
Example - Define a scroll-bar with pop-up menu
working-storage section.
77 hmenu pic s9(9) comp-4.
...
screen section.
...
  03 screen-1-sb-1 Scroll-Bar
     pop-up menu hmenu
     line 4.0
     column 41.5
     size 2.9 cells 
     lines 39.7 cells 
     color 229
     help-id 3029
     id 5
     hint "Scroll-bar hint"
     min-val 2
     max-val 20
     page-size 4
     .
...
procedure division.
...
*> Use w$menu in procedure division to build the pop-up menu
...