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

FileView: Prevent a possible infinite refresh and preview recursion when some properties are read during the 'Refresh' event.

Browse source 
[GB.FORM]
* BUG: FileView: Prevent a possible infinite refresh and preview recursion when some properties are read during the 'Refresh' event.
This commit is contained in:
Benoît Minisini 2023-05-25 10:37:08 +02:00
parent 53fd551ba0
commit 8fb2189446
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
comp/src/gb.form/.project
View file

@ -1,6 +1,6 @@
# Gambas Project File 3.0 # Gambas Project File 3.0
Title=More controls for graphical components Title=More controls for graphical components
Startup=FTestColorChooser Startup=FTestFileChooser
Icon=.hidden/icon.png Icon=.hidden/icon.png
Version=3.18.90 Version=3.18.90
VersionFile=1 VersionFile=1

4
comp/src/gb.form/.src/File/FileView.class
View file

@ -747,7 +747,7 @@ End
Public Sub Refresh_Timer() Public Sub Refresh_Timer()
If Not $bRefreshTriggered And Not $hRefresh.Enabled Then Return If Not $bRefreshTriggered And If Not $hRefresh.Enabled Then Return
RefreshView RefreshView
$hRefresh.Stop $hRefresh.Stop
@ -829,7 +829,7 @@ End
Private Sub EnsureRefresh() Private Sub EnsureRefresh()
Try $hRefresh.Stop Try $hRefresh.Stop
RefreshView If $bRefreshTriggered Then RefreshView
End End