Select Code to Download

    PropertyA triggers Event1(a), Event3(b)
    PropertyB # triggers no events
    PropertyC triggers Event3(c)
    ...

    Property  Event
              1 2 3 4 ...
...
       C          c
      ...

    my $property_type_events = {
        Property::A => [ handler { Event::E1->new(@_) } 'a'
...
        Property::C => [ handler { Event::E3->new(@_) } 'c' ], 
        ...
    };

    sub handler(&@) {
        my ($event_ctor, @args) = @_;
...
            return $event->trigger(@_);
        };
    }

    sub handle_widget_insertion_events($) {
        my ($widget) = @_;
...
            }
        }
    }