Jean Yves,
something like this:
method run(var eventInfo Event)
const
kInch = 1440 ; One inch = 1,440 twips.
endConst
var
uiBox uiObject
fo form
endVar
fo.create()
uiBox.create(boxTool, .1*kInch,.1*kInch,1*kInch,2*kInch, fo)
uiBox.visible = True
uiBox.MethodSet("MouseClick","method mouseClick(var eventInfo MouseEvent)
self.color = Blue
endmethod")
fo.run()
endmethod
Tom Nelson
If you have a method that requires more than two or three lines I think the
following version will be better for you:
method run(var eventInfo Event)
const
kInch = 1440 ; One inch = 1,440 twips.
endConst
var
uiBox uiObject
fo form
st string
endVar
fo.create()
uiBox.create(boxTool, .1*kInch,.1*kInch,1*kInch,2*kInch, fo)
uiBox.visible = True
st = "method mouseClick(var eventInfo MouseEvent)\r\n\r\n"
st = st + "self.color = Blue\r\n"
st = st + "endmethod"
uiBox.MethodSet("MouseClick", st)
fo.run()
endmethod
Tom Nelson