Private Sub Save
Dim Source=Label1 As JavaObject
Dim Text As String=Source.RunMethod("getText",Null)
Dim Layout As JavaObject=Source.RunMethod("getLayout",Null)
Dim LineCount As Int=Source.RunMethod("getLineCount",Null)
Dim TextByLine(LineCount) As String
Dim LineStart,LineEnd As Int
Log(Layout.RunMethod("getLineCount",Null))
Dim R As Reflector
R.Target = Layout
Dim A As Int
For A=0 To LineCount - 1
LineStart=R.RunMethod2("getLineStart",A,"java.lang.int")'Layout.RunMethod("getLineStart",Array As Object(A))
LineEnd=R.RunMethod2("getLineEnd",A,"java.lang.int")'Layout.RunMethod("getLineEnd",Array As Object(A))
TextByLine(A)=Text.SubString2(LineStart,LineEnd).Trim
Log(TextByLine(A))
Next
Log(LineCount)
End Sub