subroutine w3mvDTestSelection
include wbp w3Include
Selected = ""
call w3GetVal(Selected, "Selection")
call w3mvDInit("", "")
begin case
case Selected = 0
call w3mvDInsert("LeftWindow", "Selected", "")
call w3mvDInsert("RightWindow", "Not Selected", "")
call w3mvDSetActive("LeftWindow")
case Selected = 1
call w3mvDInsert("RightWindow", "Selected", "")
call w3mvDInsert("LeftWindow", "Not Selected", "")
call w3mvDSetActive("RightWindow")
case 1
call w3mvDInsert("RightWindow", "Not Selected", "")
call w3mvDInsert("LeftWindow", "Not Selected", "")
end case
call w3mvDInput(err, 0, "")
return