37db818d3d
[GB.WEB.GUI] * NEW: This is the new name of 'gb.web.form2'. * NEW: Support for popup menus. * NEW: Support for stock icons. [GB.WEB.FORM2] * NEW: Rename the component as 'gb.web.gui'.
18 lines
410 B
Text
18 lines
410 B
Text
' Gambas class file
|
|
|
|
Export
|
|
Inherits WebControl
|
|
|
|
Public Const _Properties As String = "*"
|
|
Public Const _DrawWith As String = "Separator"
|
|
Public Const _DefaultSize As String = "24,4"
|
|
|
|
Public Sub _Render()
|
|
|
|
If Me.Parent.Arrangement = Arrange.Horizontal Then
|
|
Print "<div class=\"gw-separator-vline\"><div></div></div>"
|
|
Else
|
|
Print "<div class=\"gw-separator-hline\"><div></div></div>"
|
|
Endif
|
|
|
|
End
|