!******************************************************************************!
! Tests scrolling for the MENU type of GCONTROL where there is NO PARENT display
!
! Note: This shows/verifies the drawing of the extra line(s) between title(s) and the menu
! when there the GMenu is not embedded
!
! @bug 2825 PLOT: Features menu needs a scrollbar
! @author  Jeanette McCall
! @version $Id: test_gcontrol_menu_scroll_noparent.mm,v 1.2 2015/10/17 18:58:41 jtm Exp $
!******************************************************************************!
startmacro
  switch INTERACTIVE interAct GET DEF=TRUE  SDEF=TRUE  ! for normal interactive test(s)

  ! Create GMenu with 200 items
  res items "Item1"
  res index 1
  while index lt 200
    calc L:index index 1 +
    res  nextItem ",Item^{index}"
    invoke items items.concat(nextItem) 
  endwhile

  res gmenuTitle "GMENU_TITLE"


  if interAct then

      gcontrol menu gcMenu1  ^gmenuTitle items "Item1" /tleft /tright /ttop /tbottom /WH=300

  endif
endmacro