!**************************************************************************************************!
! purpose: test list2 using a XDATALIST BLUE file as a template (BUG 2258)
!
! author : JWB
!**************************************************************************************************!
startmacro

  switch INTERACTIVE interAct GET DEF=TRUE
  if interAct then
    set instructions "You should see a file listed with multiple colors in the top pane &
                      and another file listed in the bottom pane with more than three columns. &
                      On the bottom LIST2, the second column should be labeled '0.######E0'. &
                      There should be two deprecation warnings but no exceptions in the terminal."

    pipe on
      panel/msgid=MAIN/controls=gc/setup

      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" 40 14 /title

      ! test cases for BUG 2258
      list2/id=idlist1 nxm.sys.test.input_test_list_01.tmp template=nxm.sys.test.input_test_list_02.tmp
      ! the next list2 also tests BUG 2259
      list2/id=idlist2 nxm.sys.test.listtemplatedata.tmp nxm.sys.test.listtemplate.tmp

    pipe off

  endif

endmacro

!**************************************************************************************************!
procedure processMessage m:msg
	if msg.name eqs "MAIN"
	  assert/text="^reg.main.name: user indicated" msg.data eqs "PASS"
	  pipe stop
	else
	  ! do nothing
	endif
return
