diff --git a/Addons.xcu b/Addons.xcu
index 5550bc4..d9a9bcd 100644
--- a/Addons.xcu
+++ b/Addons.xcu
@@ -50,6 +50,72 @@
+
+
+
+
+ com.sun.star.text.TextDocument,com.sun.star.text.WebDocument
+
+
+ %+
+ %+
+
+
+ macro:///ePublishing.MakeUp.incrementCharWidth
+
+
+ _self
+
+
+
+
+ com.sun.star.text.TextDocument,com.sun.star.text.WebDocument
+
+
+ %-
+ %-
+
+
+ macro:///ePublishing.MakeUp.decrementCharWidth
+
+
+ _self
+
+
+
+
+
+ com.sun.star.text.TextDocument,com.sun.star.text.WebDocument
+
+
+ K+
+ K+
+
+
+ macro:///ePublishing.MakeUp.incrementKern
+
+
+ _self
+
+
+
+
+ com.sun.star.text.TextDocument,com.sun.star.text.WebDocument
+
+
+ K-
+ K-
+
+
+ macro:///ePublishing.MakeUp.decrementKern
+
+
+ _self
+
+
+
+
+
diff --git a/Office/UI/WriterWindowState.xcu b/Office/UI/WriterWindowState.xcu
index c9a9d4d..1a10223 100644
--- a/Office/UI/WriterWindowState.xcu
+++ b/Office/UI/WriterWindowState.xcu
@@ -8,6 +8,12 @@
Основная панель ePublishing
+
+
+ ePublishing make-up
+ Панель верстки ePublishing
+
+
diff --git a/description.xml b/description.xml
index 51657cf..b16d333 100644
--- a/description.xml
+++ b/description.xml
@@ -3,7 +3,7 @@
xmlns:dep="http://openoffice.org/extensions/description/2006"
xmlns:xlink="http://www.w3.org/1999/xlink">
-
+
Инструменты для создания электронных изданий
diff --git a/ePublishing/MakeUp.xba b/ePublishing/MakeUp.xba
new file mode 100644
index 0000000..083449d
--- /dev/null
+++ b/ePublishing/MakeUp.xba
@@ -0,0 +1,49 @@
+
+
+Sub markMakeUp1
+End Sub
+
+Sub incrementCharWidth()
+ changeCharWidth(1)
+End Sub
+
+Sub decrementCharWidth()
+ changeCharWidth(-1)
+End Sub
+
+Sub incrementKern()
+ changeKern(2)
+End Sub
+
+Sub decrementKern()
+ changeKern(-2)
+End Sub
+
+
+Function changeCharWidth(delta) As Boolean
+ Dim oViewCursor As Object
+ Dim oTextCursor As Object
+ Dim charScale As Integer
+ oViewCursor = ThisComponent.CurrentController.getViewCursor()
+ If(IsEmpty(oViewCursor.charScaleWidth)) Then
+ charScale = 100
+ Else
+ charScale = oViewCursor.charScaleWidth
+ End If
+ oViewCursor = ThisComponent.CurrentController.getViewCursor()
+ oViewCursor.charScaleWidth = charScale + delta
+End Function
+
+Function changeKern(delta) As Boolean
+ Dim oViewCursor As Object
+ Dim oTextCursor As Object
+ Dim kerning As Integer
+ oViewCursor = ThisComponent.CurrentController.getViewCursor()
+ If(IsEmpty(oViewCursor.CharKerning)) Then
+ kerning = 0
+ Else
+ kerning = oViewCursor.CharKerning
+ End If
+ oViewCursor.CharKerning = kerning + delta
+End Function
+
\ No newline at end of file
diff --git a/ePublishing/script.xlb b/ePublishing/script.xlb
index 70104ac..243339e 100644
--- a/ePublishing/script.xlb
+++ b/ePublishing/script.xlb
@@ -8,4 +8,5 @@
+
\ No newline at end of file