Fix '&=' operator optimization when the added string is void.
[INTERPRETER] * BUG: Fix '&=' operator optimization when the added string is void.
This commit is contained in:
parent
3c7d85ba85
commit
7c56865d97
2 changed files with 63 additions and 0 deletions
33
comp/src/gb.form/.src/Test/Form1.class
Normal file
33
comp/src/gb.form/.src/Test/Form1.class
Normal file
|
@ -0,0 +1,33 @@
|
||||||
|
' Gambas class file
|
||||||
|
|
||||||
|
Public Sub Run() As Boolean
|
||||||
|
|
||||||
|
Return Not Me.ShowModal()
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Public Sub btnOK_Click()
|
||||||
|
|
||||||
|
Me.Close(True)
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Public Sub btnCancel_Click()
|
||||||
|
|
||||||
|
Me.Close
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub Form_Open()
|
||||||
|
|
||||||
|
Me.Center
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub DateBox1_Change()
|
||||||
|
|
||||||
|
Message.Question("does it pass, on debug?")
|
||||||
|
|
||||||
|
End
|
30
comp/src/gb.form/.src/Test/Form1.form
Normal file
30
comp/src/gb.form/.src/Test/Form1.form
Normal file
|
@ -0,0 +1,30 @@
|
||||||
|
# Gambas Form File 3.0
|
||||||
|
|
||||||
|
{ Form Form
|
||||||
|
MoveScaled(0,0,64,64)
|
||||||
|
Resizable = False
|
||||||
|
Arrangement = Arrange.Vertical
|
||||||
|
Spacing = True
|
||||||
|
Margin = True
|
||||||
|
{ DateBox1 DateBox
|
||||||
|
MoveScaled(17,17,24,4)
|
||||||
|
}
|
||||||
|
{ HBox1 HBox
|
||||||
|
MoveScaled(1,59,62,4)
|
||||||
|
Spacing = True
|
||||||
|
{ Panel1 Panel
|
||||||
|
MoveScaled(4,0,4,4)
|
||||||
|
Expand = True
|
||||||
|
}
|
||||||
|
{ btnOK Button
|
||||||
|
MoveScaled(29,0,16,4)
|
||||||
|
Text = ("OK")
|
||||||
|
Default = True
|
||||||
|
}
|
||||||
|
{ btnCancel Button
|
||||||
|
MoveScaled(46,0,16,4)
|
||||||
|
Text = ("Cancel")
|
||||||
|
Cancel = True
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
Loading…
Reference in a new issue