Hello all,

ListPicker is disabled in Mathematica 13.0. The following code runs OK in Mathematica 12.3, but ListPicker seems to be disabled in version 13.0:

LPTest[] :=
  Module[{lis},
   lis = {"English", "Japanese", "Spanish", "French"};
   selP = {"English"};
   DialogInput[Column[{
       TextCell["Select language"],
      ListPicker[Dynamic[selP], lis, FieldSize -> {25, {1, 20}} , 
       Scrollbars -> {False, Length[lis] > 20}, 
       Multiselection -> False, BaseStyle -> {FontSize -> 14}, 
       Enabled -> True],
      "",
      Row[{"", Button["  Exit  ", DialogReturn[act1 = "EXIT"]], ""}],
      }, Alignment -> Center], Modal -> True];
   ];
LPTest[]

Any way to fix this issue?

Thanks in advance.

César Lozada