Update Workspace.class

parent eb8c8717
......@@ -4,7 +4,7 @@ Export
Inherits UserControl
Public Const _Properties As String = "*,Orientation{Align.Top;Bottom}=Top,Image,Border=True"
Public Const _Properties As String = "*,Orientation{Align.Top;Bottom}=Top,Image,Border=True,CloseButton=True"
Public Const _DefaultEvent As String = "Activate"
Public Const _Group As String = "Special"
......@@ -24,6 +24,7 @@ Property Border As Boolean
Property Image As Image
Property Picture As Picture
Property CloseWithMouse As Boolean
Property CloseButton As Boolean ''if false the close all tabs button is not shown
Static Private $bPictureWarning As Boolean
......@@ -260,3 +261,15 @@ Private Sub CloseWithMouse_Write(Value As Boolean)
$hWorkspace.SetCloseWithMouse(Value)
End
Private Function CloseButton_Read() As Boolean
Return $hWorkspace.CloseButton
End
Private Sub CloseButton_Write(Value As Boolean)
$hWorkspace.CloseButton = Value
End
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment