!******************************************************************************!
! Tests the panel configuration
! @ BUG 1418
! @author  J. Roush
!******************************************************************************!
startmacro
  switch INTERACTIVE interAct GET DEF=TRUE  SDEF=TRUE  ! for normal interactive test(s)
  switch BASELINE    baseline GET DEF=FALSE SDEF=TRUE  ! for defects or more obscure test case(s)

  pipe on
    set instructions "PANEL configuration test.\n\n&
                      (1) Mouse over blank portion of one of the borders &
                      to the right, verify that the mouse pointer changes to &
                      double or resize arrow, click-hold to move border.\n\n&
                      (2) Mouse over zig-zag at end of border, verify that &
                      the mouse pointer changes to double or resize arrow, click to toggle &
                      pane between opened and closed.\n\n&
                      (3) Resize the panes by dragging one of the lines. There should not be any artifacts"

    panel/setup/controls=gc

    gcontrol label macro "MACRO"
    gcontrol menu main "Exit with Status = " "PASS,FAIL" /tleft
    set gc.main.itemcolors {PASS=GREEN,FAIL=RED}

    gcontrol text idtext  "INSTRUCTIONS" "^instructions" 24 20 /title

  pipe off
endmacro

!******************************************************************************!
procedure processMessage m:msg
  !say "Msg ^msg.name = ^msg.data"
  if msg.name EQS "MAIN" then
    assert/text="^reg.main.name: User indicated tests" msg.data eqss "PASS"
    pipe stop
  else
    say "Unhandled message ^msg.name from ^msg.fid"
  endif
return
