tests/testcases/regression/BOO-973-1.boo

   1 """
   2 OnExternalEvent
   3 OnInternalEvent
   4 """
   5
   6 import System
   7
   8 callable MyEvent(sender as object, e as EventArgs)
   9
  10 class GenericFoo[of T]:
  11         event AnExternalEvent as EventHandler
  12         event AnInternalEvent as MyEvent
  13
  14         def TestEvents():
  15                 AnExternalEvent(self, EventArgs.Empty)
  16                 AnInternalEvent(self, EventArgs.Empty)
  17
  18 def OnExternalEvent(sender as object, e as EventArgs):
  19         print "OnExternalEvent"
  20
  21 def OnInternalEvent(sender as object, e as EventArgs):
  22         print "OnInternalEvent"
  23
  24 foo = GenericFoo[of string]()
  25 foo.AnExternalEvent += OnExternalEvent
  26 foo.AnInternalEvent += OnInternalEvent
  27 foo.TestEvents()