[REPORT] problem with choose CMD

[compsystems]

Hello

The logic of the following code fails, because choose must return 1 when [OK/ENTER] is pressed

PHP Code:

export INPUTtest0()
    begin
      local coef1_a, coef2_b, coef3_c, coef4_d; 
      coef1_a:=9; coef2_b:=8; coef3_c:=7; coef4_d:=6;

      local reset_coef1_a, reset_coef2_b, reset_coef3_c, reset_coef4_d; 
      reset_coef1_a:=3; reset_coef2_b:=2; reset_coef3_c:=1; reset_coef4_d:=0;

      local init_coef1_a, init_coef2_b, init_coef3_c, init_coef4_d; 
      init_coef1_a:=coef1_a; init_coef2_b:=0; init_coef3_c:=0; init_coef4_d:=0;

      local ObjectType_AllAllowed := -1;
      local ObjectType_Real := 0;
      local ObjectType_Integer := 1;
      local ObjectType_String := 2;    
      local ObjectType_Complex := 3;    
      local ObjectType_Matrix := 4;
      local ObjectType_List := 6;
      local ObjectType_Function := 8;    
      local ObjectType_Unit := 9;    
      local ObjectType_CAS := 14;

      local ok:=1;
      local cancel:=0;
      local keyPress:=0;
      local currentPos:=2;
      print(); freeze;

      keyPress:= input( { {coef1_a, [ObjectType_Real]}, {coef2_b, [ObjectType_Real]}, {coef3_c, [ObjectType_Real]}, {coef4_d, [ObjectType_Real] } }, "a x² + b x + c = 0 ∨ ax²+bx=d",  {"a:", "b:", "c:", "d:"}, {"Enter coeff a", "Enter coeff b", "Enter coeff c", "Enter coeff d"} , {reset_coef1_a,0,0,0}, {init_coef1_a,2,3,4} );

      print("Key press for INPUT CMD: " + ifte(keyPress == ok,"[OK/ENTER]","[ESC]") );
      if keyPress == ok then
        coef3_c := coef3_c-coef4_d; // => ax²+bx+c=0
        print( "a=" + coef1_a );
        print( "b=" + coef2_b );
        print( "c=" + coef3_c ); wait;

        //keyPress:=0;
        keyPress:= choose(currentPos,"test choose",{"a","b","c"});

        print("Key press for CHOOSE CMD: " + keyPress ); // 0 for [CANCEL], 1 for [OK/ENTER]
        print("Key press: " + ifte(keyPress == ok,"[OK/ENTER]","[ESC]") );
        print( "selected position = " + currentPos ); wait;
        if keyPress == ok then
          print("Key press for CHOOSE CMD: " + keyPress ); wait;
        end;
      end;

      return "done";
    end;