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

WebButton: Don't react to click when disabled.

Browse source 
[GB.WEB.GUI]
* BUG: WebButton: Don't react to click when disabled.
This commit is contained in:
gambas 2020-05-14 20:34:03 +02:00
parent ef32c2e7a2
commit 4bda6391ec
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
comp/src/gb.web.gui/.src/WebButton.class
View file

@ -85,14 +85,16 @@ Public Sub _BeforeRender()
Dim vSave As Variant
Print "<div"; Me._GetClassId();
If $bImmediate Then
Print " onclick=\"";
vSave = WebForm._BeginJavascript()
Raise Click
WebForm._EndJavascript(vSave)
Print "\"";
Else
Print Me._GetEventJS("onclick", "click");
If Me.Enabled Then
If $bImmediate Then
Print " onclick=\"";
vSave = WebForm._BeginJavascript()
Raise Click
WebForm._EndJavascript(vSave)
Print "\"";
Else
Print Me._GetEventJS("onclick", "click");
Endif
Endif
Me._RenderStyleSheet()