|
123456789101112 |
- module CPathChangeEvents
- use CIntegerArrayEventHandlerCollection
- use CVoidEventHandlerCollection
- implicit none
- public
-
- type(VoidEventHandlerCollection) :: BeforeTraverse
- type(VoidEventHandlerCollection) :: AfterTraverse
- type(IntegerArrayEventHandlerCollection) :: OnPathOpen
-
- contains
- end module CPathChangeEvents
|