diff --git a/comp/src/gb.form.mdi/.component b/comp/src/gb.form.mdi/.component
index d4569b1ea..c6c0457c6 100644
--- a/comp/src/gb.form.mdi/.component
+++ b/comp/src/gb.form.mdi/.component
@@ -1,6 +1,6 @@
 [Component]
 Key=gb.form.mdi
-Version=3.12.90
+Version=3.14.90
 Authors=Benoît Minisini
 Needs=Form
 Requires=gb.form,gb.settings
diff --git a/comp/src/gb.form.mdi/.project b/comp/src/gb.form.mdi/.project
index 7781b62fe..6d08e68f8 100644
--- a/comp/src/gb.form.mdi/.project
+++ b/comp/src/gb.form.mdi/.project
@@ -2,7 +2,7 @@
 Title=Multiple document interface management
 Startup=FMain
 Icon=.hidden/control/workspace.png
-Version=3.12.90
+Version=3.14.90
 VersionFile=1
 Component=gb.image
 Component=gb.gui
diff --git a/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class b/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class
index 7070960f6..e37f3cb5e 100644
--- a/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class
+++ b/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class
@@ -977,19 +977,12 @@ Public Sub SetImage(hImage As Image)
   
 End
 
-Public Sub SetFont(hFont As Font)
+Public Sub GetTabPanel() As TabPanel
   
-  tabWorkspace.TextFont = hFont
+  Return tabWorkspace
   
 End
 
-Public Sub GetFont() As Font
-  
-  Return tabWorkspace.TextFont
-  
-End
-
-
 Public Sub tabWorkspace_Move(Source As Integer, Target As Integer)
 
   Dim hWindow As CWindow
diff --git a/comp/src/gb.form.mdi/.src/Workspace/Workspace.class b/comp/src/gb.form.mdi/.src/Workspace/Workspace.class
index 19dd1ab7f..d10141bd0 100644
--- a/comp/src/gb.form.mdi/.src/Workspace/Workspace.class
+++ b/comp/src/gb.form.mdi/.src/Workspace/Workspace.class
@@ -25,6 +25,8 @@ 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
+Property TabBarPaddingStart As Integer
+Property TabBarPaddingEnd As Integer
 
 Static Private $bPictureWarning As Boolean
 
@@ -159,13 +161,13 @@ End
 
 Private Function Font_Read() As Font
 
-  Return $hWorkspace.GetFont()
+  Return $hWorkspace.GetTabPanel().Font
 
 End
 
 Private Sub Font_Write(Value As Font)
 
-  $hWorkspace.SetFont(Value)
+  $hWorkspace.GetTabPanel().Font = Value
 
 End
 
@@ -273,4 +275,28 @@ Private Sub CloseButton_Write(Value As Boolean)
 
   $hWorkspace.CloseButton = Value
 
-End
\ No newline at end of file
+End
+
+Private Function TabBarPaddingStart_Read() As Integer
+
+  Return $hWorkspace.GetTabPanel().TabBarPaddingStart
+
+End
+
+Private Sub TabBarPaddingStart_Write(Value As Integer)
+
+  $hWorkspace.GetTabPanel().TabBarPaddingStart = Value
+
+End
+
+Private Function TabBarPaddingEnd_Read() As Integer
+
+  Return $hWorkspace.GetTabPanel().TabBarPaddingEnd
+
+End
+
+Private Sub TabBarPaddingEnd_Write(Value As Integer)
+
+  $hWorkspace.GetTabPanel().TabBarPaddingEnd = Value
+
+End