From 5b3ea07d1db43a27ec823f0e09beb45298f68801 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Sun, 30 Oct 2016 13:32:41 +0000 Subject: [PATCH] [GB.WEB.FORM] * BUG: WebControl.Name is now writable, so that the Group virtual property can be used in the IDE. git-svn-id: svn://localhost/gambas/trunk@7948 867c0c6c-44f3-4631-809d-bfa615b0a4ec --- comp/src/gb.web.form/.info | 4 ++-- comp/src/gb.web.form/.src/WebControl.class | 10 ++++++++-- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/comp/src/gb.web.form/.info b/comp/src/gb.web.form/.info index 439bb4f00..90a7a514e 100644 --- a/comp/src/gb.web.form/.info +++ b/comp/src/gb.web.form/.info @@ -494,10 +494,10 @@ i 'Return the server control identifier. Name -r +p s -'Return the name of the control, used as an identifier on the client side. +'Return or set the name of the control, used as an identifier on the client side. Tag p v diff --git a/comp/src/gb.web.form/.src/WebControl.class b/comp/src/gb.web.form/.src/WebControl.class index c9414e630..016fe2943 100644 --- a/comp/src/gb.web.form/.src/WebControl.class +++ b/comp/src/gb.web.form/.src/WebControl.class @@ -17,8 +17,8 @@ Event Dialog(Dialog As WebForm, Result As Variant) '' Return the server control identifier. Property Read Id As Integer -'' Return the name of the control, used as an identifier on the client side. -Property Read Name As String +'' Return or set the name of the control, used as an identifier on the client side. +Property Name As String '' Returns or sets the control tag. '' @@ -884,3 +884,9 @@ Public Sub _GetImageLink(sImage As String) As String End + +Private Sub Name_Write(Value As String) + + SetName(Value) + +End