[GB.WEB.FORM]

* BUG: WebButton: Remove all padding for buttons with no border.


git-svn-id: svn://localhost/gambas/trunk@7547 867c0c6c-44f3-4631-809d-bfa615b0a4ec

comp/src/gb.web.form/.src/WebForm.class

@@ -413,14 +413,17 @@ Public Sub _UpdateProperty(sProp As String, vValue As Variant)
   Dim aWindows As String[]
   Dim sName As String
   
-  If sProp = "#windows" Then
-    aWindows = vValue
-    Inc _DisableRefresh
-    For Each sName In aWindows
-      WebControl.FromName(sName).Raise()
-    Next
-    Dec _DisableRefresh
-  Endif
+  Select Case sProp
+  
+    Case "#windows" 
+      aWindows = vValue
+      Inc _DisableRefresh
+      For Each sName In aWindows
+        WebControl.FromName(sName).Raise()
+      Next
+      Dec _DisableRefresh
+      
+  End Select
   
 End
 

comp/src/gb.web.form/gw-style.css

@@ -41,6 +41,7 @@ P:first-child,UL:first-child,OL:first-child {
 .gw-button.gw-noborder {
   border: solid 1px transparent;
   background: none;
+  padding: 0;
 }
 
 .gw-button.gw-noborder:hover {