Type Trigger

 field obj:TImage

 method Trig(x,y)
  drawimage obj,x,y
 end method
End Type

Type Trigger1 extends Trigger
 field blablabla%

 method Something()
  Trig(0,0)
 end method
End Type