1*b1cdbd2cSJim Jagielski/**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements.  See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership.  The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License.  You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski *   http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied.  See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielskiimport com.sun.star.uno.UnoRuntime;
22*b1cdbd2cSJim Jagielskiimport com.sun.star.uno.AnyConverter;
23*b1cdbd2cSJim Jagielskiimport com.sun.star.uno.Type;
24*b1cdbd2cSJim Jagielskiimport com.sun.star.lang.XComponent;
25*b1cdbd2cSJim Jagielskiimport com.sun.star.lang.XMultiServiceFactory;
26*b1cdbd2cSJim Jagielskiimport com.sun.star.frame.XComponentLoader;
27*b1cdbd2cSJim Jagielskiimport com.sun.star.document.XEmbeddedObjectSupplier;
28*b1cdbd2cSJim Jagielskiimport com.sun.star.awt.ActionEvent;
29*b1cdbd2cSJim Jagielskiimport com.sun.star.awt.Rectangle;
30*b1cdbd2cSJim Jagielskiimport com.sun.star.beans.XPropertySet;
31*b1cdbd2cSJim Jagielskiimport com.sun.star.beans.PropertyValue;
32*b1cdbd2cSJim Jagielski
33*b1cdbd2cSJim Jagielskiimport com.sun.star.container.*;
34*b1cdbd2cSJim Jagielskiimport com.sun.star.chart.*;
35*b1cdbd2cSJim Jagielskiimport com.sun.star.table.*;
36*b1cdbd2cSJim Jagielskiimport com.sun.star.sheet.*;
37*b1cdbd2cSJim Jagielski
38*b1cdbd2cSJim Jagielskiimport com.sun.star.script.provider.XScriptContext;
39*b1cdbd2cSJim Jagielski
40*b1cdbd2cSJim JagielskicreateSpreadsheet()
41*b1cdbd2cSJim Jagielski{
42*b1cdbd2cSJim Jagielski    loader = (XComponentLoader)
43*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface(
44*b1cdbd2cSJim Jagielski            XComponentLoader.class, XSCRIPTCONTEXT.getDesktop());
45*b1cdbd2cSJim Jagielski
46*b1cdbd2cSJim Jagielski    comp = loader.loadComponentFromURL(
47*b1cdbd2cSJim Jagielski        "private:factory/scalc", "_blank", 4, new PropertyValue[0]);
48*b1cdbd2cSJim Jagielski
49*b1cdbd2cSJim Jagielski    doc = (XSpreadsheetDocument)
50*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface(XSpreadsheetDocument.class, comp);
51*b1cdbd2cSJim Jagielski
52*b1cdbd2cSJim Jagielski    index = (XIndexAccess)
53*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface(XIndexAccess.class, doc.getSheets());
54*b1cdbd2cSJim Jagielski
55*b1cdbd2cSJim Jagielski    sheet = (XSpreadsheet) AnyConverter.toObject(
56*b1cdbd2cSJim Jagielski        new Type(com.sun.star.sheet.XSpreadsheet.class), index.getByIndex(0));
57*b1cdbd2cSJim Jagielski
58*b1cdbd2cSJim Jagielski    return sheet;
59*b1cdbd2cSJim Jagielski}
60*b1cdbd2cSJim Jagielski
61*b1cdbd2cSJim JagielskiaddData(sheet, date, total, free)
62*b1cdbd2cSJim Jagielski{
63*b1cdbd2cSJim Jagielski    // set the labels
64*b1cdbd2cSJim Jagielski    sheet.getCellByPosition(0, 0).setFormula("Used");
65*b1cdbd2cSJim Jagielski    sheet.getCellByPosition(0, 1).setFormula("Free");
66*b1cdbd2cSJim Jagielski    sheet.getCellByPosition(0, 2).setFormula("Total");
67*b1cdbd2cSJim Jagielski
68*b1cdbd2cSJim Jagielski    // set the values in the cells
69*b1cdbd2cSJim Jagielski    sheet.getCellByPosition(1, 0).setValue(total - free);
70*b1cdbd2cSJim Jagielski    sheet.getCellByPosition(1, 1).setValue(free);
71*b1cdbd2cSJim Jagielski    sheet.getCellByPosition(1, 2).setValue(total);
72*b1cdbd2cSJim Jagielski}
73*b1cdbd2cSJim Jagielski
74*b1cdbd2cSJim JagielskiaddChart(sheet)
75*b1cdbd2cSJim Jagielski{
76*b1cdbd2cSJim Jagielski    rect = new Rectangle();
77*b1cdbd2cSJim Jagielski    rect.X = 500;
78*b1cdbd2cSJim Jagielski    rect.Y = 3000;
79*b1cdbd2cSJim Jagielski    rect.Width = 10000;
80*b1cdbd2cSJim Jagielski    rect.Height = 8000;
81*b1cdbd2cSJim Jagielski
82*b1cdbd2cSJim Jagielski    range = (XCellRange) UnoRuntime.queryInterface(XCellRange.class, sheet);
83*b1cdbd2cSJim Jagielski    myRange = range.getCellRangeByName("A1:B2");
84*b1cdbd2cSJim Jagielski
85*b1cdbd2cSJim Jagielski    rangeAddr = (XCellRangeAddressable)
86*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface(XCellRangeAddressable.class, myRange);
87*b1cdbd2cSJim Jagielski
88*b1cdbd2cSJim Jagielski    myAddr = rangeAddr.getRangeAddress();
89*b1cdbd2cSJim Jagielski
90*b1cdbd2cSJim Jagielski    CellRangeAddress[] addr = new CellRangeAddress[1];
91*b1cdbd2cSJim Jagielski    addr[0] = myAddr;
92*b1cdbd2cSJim Jagielski
93*b1cdbd2cSJim Jagielski    supp = (XTableChartsSupplier)
94*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface( XTableChartsSupplier.class, sheet);
95*b1cdbd2cSJim Jagielski    charts = supp.getCharts();
96*b1cdbd2cSJim Jagielski    charts.addNewByName("Example", rect, addr, false, true);
97*b1cdbd2cSJim Jagielski
98*b1cdbd2cSJim Jagielski    try { Thread.sleep(3000); } catch (java.lang.InterruptedException e) { }
99*b1cdbd2cSJim Jagielski
100*b1cdbd2cSJim Jagielski    // get the diagram and Change some of the properties
101*b1cdbd2cSJim Jagielski    chartsAccess = (XNameAccess)
102*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface( XNameAccess.class, charts);
103*b1cdbd2cSJim Jagielski
104*b1cdbd2cSJim Jagielski    tchart = (XTableChart)
105*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface(
106*b1cdbd2cSJim Jagielski            XTableChart.class, chartsAccess.getByName("Example"));
107*b1cdbd2cSJim Jagielski
108*b1cdbd2cSJim Jagielski    eos = (XEmbeddedObjectSupplier)
109*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface( XEmbeddedObjectSupplier.class, tchart );
110*b1cdbd2cSJim Jagielski    xifc = eos.getEmbeddedObject();
111*b1cdbd2cSJim Jagielski
112*b1cdbd2cSJim Jagielski    xChart = (XChartDocument)
113*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface(XChartDocument.class, xifc);
114*b1cdbd2cSJim Jagielski
115*b1cdbd2cSJim Jagielski    xDocMSF = (XMultiServiceFactory)
116*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface(XMultiServiceFactory.class, xChart);
117*b1cdbd2cSJim Jagielski
118*b1cdbd2cSJim Jagielski    diagObject = xDocMSF.createInstance("com.sun.star.chart.PieDiagram");
119*b1cdbd2cSJim Jagielski    xDiagram = (XDiagram)
120*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface(XDiagram.class, diagObject);
121*b1cdbd2cSJim Jagielski    xChart.setDiagram(xDiagram);
122*b1cdbd2cSJim Jagielski
123*b1cdbd2cSJim Jagielski    propset = (XPropertySet)
124*b1cdbd2cSJim Jagielski        UnoRuntime.queryInterface( XPropertySet.class, xChart.getTitle() );
125*b1cdbd2cSJim Jagielski    propset.setPropertyValue("String", "JVM Memory Usage");
126*b1cdbd2cSJim Jagielski}
127*b1cdbd2cSJim Jagielski
128*b1cdbd2cSJim Jagielskiruntime = Runtime.getRuntime();
129*b1cdbd2cSJim Jagielskigenerator = new Random();
130*b1cdbd2cSJim Jagielskidate = new Date();
131*b1cdbd2cSJim Jagielski
132*b1cdbd2cSJim Jagielski// allocate a random number of bytes so that the data changes
133*b1cdbd2cSJim Jagielskilen = (int)(generator.nextFloat() * runtime.freeMemory() / 5);
134*b1cdbd2cSJim Jagielskibytes = new byte[len];
135*b1cdbd2cSJim Jagielski
136*b1cdbd2cSJim Jagielskisheet = createSpreadsheet();
137*b1cdbd2cSJim JagielskiaddData(sheet, date.toString(), runtime.totalMemory(), runtime.freeMemory());
138*b1cdbd2cSJim JagielskiaddChart(sheet);
139*b1cdbd2cSJim Jagielski
140*b1cdbd2cSJim Jagielskireturn 0;
141