sc/qa/extras/testdocuments/tdf159412.fods

   1 <?xml version="1.0" encoding="UTF-8"?>
   2
   3 <office:document xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0" xmlns:ooo="http://openoffice.org/2004/office" xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0" xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0" office:version="1.3" office:mimetype="application/vnd.oasis.opendocument.spreadsheet">
   4  <office:scripts>
   5   <office:script script:language="ooo:Basic">
   6    <ooo:libraries>
   7     <ooo:library-embedded ooo:name="Standard">
   8      <ooo:module ooo:name="Module1">
   9       <ooo:source-code>REM  *****  BASIC  *****
  10
  11 Function TestInvoke
  12   script = ThisComponent.scriptProvider.getScript(&quot;vnd.sun.star.script:Standard.Module1.S_Ref_Long?language=Basic&amp;location=document&quot;)
  13   ret = script.invoke(Array(1), Array(), Array())
  14
  15   script = ThisComponent.scriptProvider.getScript(&quot;vnd.sun.star.script:Standard.Module1.S_Ref_Dbl?language=Basic&amp;location=document&quot;)
  16   ret = ret &amp; &quot;/&quot; &amp; script.invoke(Array(2), Array(), Array())
  17
  18   TestInvoke = ret
  19 End Function
  20
  21 Function S_Ref_Long(n As Long)
  22   S_Ref_Long = CStr(n) &amp; &quot; &quot; &amp; TypeName(n)
  23 End Function
  24
  25 Function S_Ref_Dbl(n As Double)
  26   S_Ref_Dbl = CStr(n) &amp; &quot; &quot; &amp; TypeName(n)
  27 End Function
  28
  29
  30       </ooo:source-code>
  31      </ooo:module>
  32     </ooo:library-embedded>
  33    </ooo:libraries>
  34   </office:script>
  35  </office:scripts>
  36  <office:body>
  37   <office:spreadsheet>
  38    <table:table table:name="Sheet1"/>
  39   </office:spreadsheet>
  40  </office:body>
  41 </office:document>