!******************************************************************************!
! Test case description/purpose: To test that the zoom box on a plot with swing
!								 GRAPHICS is not flickering
!
! @bug      JIRA issue NXM-2841 PLOT: Refresh issue with zoom box
! @since    3.7.1
! @author:  G Harris
!******************************************************************************!
startmacro
  switch INTERACTIVE interAct GET DEF=TRUE
  
  set instructions "In the Raster Plot on the right, drag out a zoom box, but do not release. If &
                      the box is solid and you can see it, click PASS. If the box is &
                      flickering, click FAIL."

  if interAct then
    info "%TEST_SD360: See %TEST_RMIF for RMIF tests."
    
    env set GRAPHICS Swing|SwingDB
    
    pipe on
      panel/msgid=MAIN/setup/controls=gc/panes=WIN
      gcontrol label macro "MACRO"
      gcontrol menu MAIN "Exit with Status =" "PASS,FAIL" TABLE={ItemColors={PASS="GREEN",FAIL="RED"}} /tleft

      gcontrol text idtext "INSTRUCTIONS" "^instructions" 24 12 /title
      
      sd360/bg/id="IDSD360" Inf
      
    pipe off

  endif

endmacro

!******************************************************************************!
procedure processMessage m:msg
  if msg.name eqs "MAIN" then
    assert/text="SD360 tests" msg.data eqss "PASS"
    message SEND IDSD360 ,, "STATE" ,, "EXIT"
    pipe stop
  endif
return
