[Libreoffice-commits] core.git: scripting/examples scripting/Package_ScriptsPython.mk

[Tor Lillqvist]

 scripting/Package_ScriptsPython.mk        |    1 +
 scripting/examples/python/SetCellColor.py |   15 +++++++++++++++
 2 files changed, 16 insertions(+)

New commits:
commit aa27a25d152ab70f60fedcea3bd4cd99d68103a0
Author: Tor Lillqvist <tml at collabora.com>
Date:   Thu Jan 18 18:27:50 2018 +0200

    Add another sample Python script
    
    Change-Id: I542a8b36a097d8961dc76fdcc3d25a3d7b6eb526
    Reviewed-on: https://gerrit.libreoffice.org/51966
    Tested-by: Jenkins <ci at libreoffice.org>
    Reviewed-by: Tor Lillqvist <tml at collabora.com>

diff --git a/scripting/Package_ScriptsPython.mk b/scripting/Package_ScriptsPython.mk
index 1d0de559bd20..8cc8a85472ff 100644
--- a/scripting/Package_ScriptsPython.mk
+++ b/scripting/Package_ScriptsPython.mk
@@ -12,6 +12,7 @@ $(eval $(call gb_Package_Package,scripting_ScriptsPython,$(SRCDIR)/scripting/exa
 $(eval $(call gb_Package_add_files_with_dir,scripting_ScriptsPython,$(LIBO_SHARE_FOLDER)/Scripts,\
 	python/Capitalise.py \
 	python/HelloWorld.py \
+	python/SetCellColor.py \
 	python/pythonSamples/TableSample.py \
 ))
 
diff --git a/scripting/examples/python/SetCellColor.py b/scripting/examples/python/SetCellColor.py
new file mode 100644
index 000000000000..743a6daa948b
--- /dev/null
+++ b/scripting/examples/python/SetCellColor.py
@@ -0,0 +1,15 @@
+def SetCellColor(x, y, color):
+    """Sets the background of the cell at (x,y) (zero-based column and row
+       indices, for example (2,3) == C4) on the first sheet and
+       returns the contents of the cell as a string.
+    """
+    #get the doc from the scripting context which is made available to all scripts
+    desktop = XSCRIPTCONTEXT.getDesktop()
+    model = desktop.getCurrentComponent()
+    #check whether there's already an opened document
+    if not hasattr(model, "Sheets"):
+        return ""
+    sheet = model.Sheets.Sheet1
+    cell = sheet.getCellByPosition(x, y)
+    cell.CellBackColor = color
+    return cell.String