Используйте значение текстовой области с js_of_ocaml - PullRequest
Новая
       32

Используйте значение текстовой области с js_of_ocaml

0 голосов
/ 02 сентября 2018

Я пытаюсь использовать значение текстовой области с js_of_ocaml. Вот мой исходный код: 

let matrix () =
  let text1 = get_textarea "input_1" in
  let btn1 = get_elem "btn_1" in
  text1##placeholder <- Js.string "Write your matrix !";
  btn1##textContent <- Js.some (Js.string "Calculate");
  btn1##onclick <- Dom_html.handler (if Matrix.is_matrix (Js.to_string text1##value) 
                                     then (let matrix = Matrix.get_matrix (Js.to_string text1##value) in
                                       fun ev -> (set_matrix_caracteristics (Matrix.nb_lines matrix) (Matrix.nb_columns matrix) (Matrix.determinant matrix) ; Js._false))
                                     else fun ev -> (error_input_matrix() ; Js._false))

Я хочу сделать несколько исчислений на матрице, и матрица записывается пользователем через текстовую область с html-интерфейсом.

Я думаю, что проблема в том, что значение text1 не меняется, даже если я что-то напишу в текстовой области. Каким бы ни был ввод для текстовой области, результат один и тот же.

Кто-нибудь знает, как использовать значение, записанное пользователем?

Спасибо!

1 Ответ

0 голосов
/ 16 октября 2018

Ваша проблема здесь в том, что вы оцениваете text1##value перед определением функции обработчика, поэтому значение оценивается, когда обработчик установлен, а затем никогда не изменяется. следующее должно работать 

   btn1##onclick <- Dom_html.handler (
       fun ev -> 
                if Matrix.is_matrix (Js.to_string text1##value) 
                then let matrix = Matrix.get_matrix (Js.to_string text1##value) in
                                    (set_matrix_caracteristics (Matrix.nb_lines matrix) (Matrix.nb_columns matrix) (Matrix.determinant matrix) ; Js._false)
                else error_input_matrix() ; Js._false
      )
...