'Parameters: Id As String, 1 View
'Designer Script : {Class}.AddCSSId("button-sl",Button1)
Public Sub AddCSSId(DesignerArgs As DesignerArgs)
If DesignerArgs.FirstRun Then
Dim Id As String = DesignerArgs.Arguments.Get(0)
Dim V As Node = DesignerArgs.GetViewFromArgs(1)
Id = Id.Trim
V.id = Id
End If
End Sub
'Parameters: ClassNames As String (Comma delimited), 1 or more Views comma delimited
'Designer Script : {Class}.AddStyleClass("button-sl",Button1,Button2,Button3)
Public Sub AddStyleClass(DesignerArgs As DesignerArgs)
If DesignerArgs.FirstRun Then
Dim ClassNames() As String = Regex.Split(",",DesignerArgs.Arguments.Get(0))
For i = 1 To DesignerArgs.Arguments.Size - 1
Dim V As Node = DesignerArgs.GetViewFromArgs(i)
For Each ClassName As String In ClassNames
ClassName = ClassName.Trim
If V.StyleClasses.IndexOf(ClassName) = -1 Then
V.StyleClasses.Add(ClassName)
End If
Next
Next
End If
End Sub