[Gambas-user] getting warning when quitting running application

[Gianluigi]

Hi Benoit,

trying the code to follow, creating a new gtk3 graphics project with the
IDE open with the gtk libraries, without using Me.Refresh the textarea does
not refresh.
This usually happens the first time, then on the second restart it works,
as I had already reported here:
http://gambaswiki.org/bugtracker/edit?object=BUG.2528&from=L21haW4-

[code]
Private hTextBox As TextBox
Private hTextArea As TextArea

Public Sub Form_Open()

  Dim hWindow As Window
  Dim hHBox As HBox
  Dim hButton As Button

  Application.MainWindow = Me
  With Me
    .Arrangement = Arrange.Vertical
    .Margin = True
    .Spacing = True
    .Width = 420
    .Height = 420
    .Center
    .Title = "MAIN WINDOW"
  End With
  With hHBox = New HBox(Me)
    .Height = 40
    .Spacing = True
  End With
  With hTextBox = New TextBox(hHBox)
    .Expand = True
    .Text = "Click on button"
  End With
  With hButton = New Button(hHBox) As "Button1"
    .AutoResize = True
    .Text = "PRINT"
  End With
  With hTextArea = New TextArea(Me)
    .Expand = True
  End With
  For i As Integer = 0 To 9
    With hWindow = New Window As "Form" & CStr(i + 1)
      .X = i * 50
      .Y = i * 50
      .Width = 420
      .Height = 420
      .Title = "FORM " & CStr(i + 1)
      .Show
    End With
  Next

End

Public Sub Button1_Click()

  hTextArea.Text &= hTextBox.Text & "\n"

End
[/code]

Regards
Gianluigi
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20220512/37350591/attachment.htm>