luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge branch 'bsteers4-master-patch-14221' into 'master'

Browse source 
Fix MessageView.class

See merge request gambas/gambas!183
This commit is contained in:
Benoît Minisini 2021-02-03 20:35:18 +00:00
commit 54a2a6bf0f
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
comp/src/gb.form/.src/Message/MessageView.class
View file

@ -95,22 +95,23 @@ Public Sub Open(Text As String, Optional Icon As Picture)
If $sText = Text Then Return If $sText = Text Then Return
$hIcon = Icon
If Not Icon Then
Try $hIcon = Picture["icon:/32/warning"]
If Error Then $hIcon = Picture["img/32/warning.png"]
Endif
If Me.Visible Then If Me.Visible Then
$aText.Add(Text) $aText.Add(Text)
$aIcon.Add(Icon) $aIcon.Add($hIcon)
UpdateButton UpdateButton
Return Return
Endif Endif
$sText = Text $sText = Text
$hIcon = Icon
If Not Icon Then
Try $hIcon = Picture["icon:/32/warning"]
If Error Then $hIcon = Picture["img/32/warning.png"]
Endif
DoOpen DoOpen
End End