TextAreaのmaxline？

[ashimo]

四行目を入力不可にしてみました。どうでしょうか。

Code:

{let ta = {TextArea
              height = 5cm,
              width = 5cm,
              {on e:ValueChanged at ta:TextArea do
                  let a:int = {ta.value.find '\n'}
                  let count:int = 0
                  let break?:bool = false
                  {while a > -1 do
                      set a = {ta.value.find '\n', starting-index = a + 1}
                      {inc count}
                      {output count}
                      {if count > 2 then
                          set ta.value = ta.user-data
                          set break? = true
                          {break}
                      }
                  }
                  {if not break? then
                      set ta.user-data = ta.value
                  }
              }
          }
}
{value ta}