odk/examples/python/toolpanel/toolPanelPocBasic/Module1.xba

   1 <?xml version="1.0" encoding="UTF-8"?>
   2 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
   3 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Module1" script:language="StarBasic">
   4 global theDialog
   5
   6
   7 Sub dialogOnLoad(event)
   8
   9         theDialog = event.source
  10
  11 End Sub
  12
  13 sub buttonClick(event)
  14
  15
  16         theButton = theDialog.getControl(&quot;CommandButton1&quot;)
  17         theTextField = theDialog.getControl(&quot;TextInfo&quot;)
  18
  19         colors = Array(rgb(255,0,0),rgb(0,255,0),rgb(0,0,255))
  20         rank = getSystemTicks() mod 3
  21
  22         theDialog.Model.BackgroundColor = colors(rank)
  23         theTextField.text =  cstr(Now) + chr(10)+&quot;Color &quot; + cstr(rank) + &quot; randomly applied&quot;
  24
  25         theButton.label = &quot;Click Me to change color&quot;
  26
  27
  28 end sub
  29 </script:module>