V2017.3

Author: jerps

Source/RPGMAPGMF.t.RPGLE

@@ -68,6 +68,8 @@ end-pi;
       RMValObjSetFlags(i:%bitor(flags:x'80'));
     endif;
   endif;
+  
+  RMBFireEvent(mapi:1:k:i);
 
   return *on;
 

Source/RPGMAPRBTC.C

@@ -172,7 +172,7 @@ void* RMBTreeNodeItem(rmb_red_blk_node* n) {
 /*    Modifies Input: none */
 /**/
 /***********************************************************************/
-static void RMBFireEvent(rmb_red_blk_tree* tree, int event, void* key, void* item) {
+void RMBFireEvent(rmb_red_blk_tree* tree, int event, void* key, void* item) {
   rmb_eventh* eh = tree->eventh;
   while (NULL != eh) {
     eh->proc(event, tree->valstruct, key, item, eh->usrd);
@@ -399,7 +399,6 @@ rmb_red_blk_node * RMBTreeInsert(rmb_red_blk_tree* tree, void* key, void* item)
   }
   tree->root->left->red=0;
   tree->num++;
-  RMBFireEvent(tree, 1, key, item);
   return(newNode);
 
 #ifdef DEBUG_ASSERT

Source/RPGMAPRBTC.H

@@ -37,6 +37,6 @@ int RMBCursorReadNxtPrv(rmb_cursor* cursor, int nxtprv);
 int RMBCursorReadNxtPrv2(rmb_cursor* cursor, int nxtprv, void* key1, void* key2, int opt);
 void RMBAddEventh(rmb_red_blk_tree* tree, rmb_event_handler proc, void* usrd);
 void RMBRmvEventh(rmb_red_blk_tree* tree, rmb_event_handler proc);
-
+void RMBFireEvent(rmb_red_blk_tree* tree, int event, void* key, void* item);
 
 #endif

Source/RPGMAPRBTC.RPGLE

@@ -129,3 +129,10 @@ dcl-pr RMBRmvEventh extproc(*dclcase);
   tree pointer value;
   proc pointer(*proc) value;
 end-pr;
+
+dcl-pr RMBFireEvent extproc(*dclcase); 
+  tree pointer value;
+  event int(10) value;
+  key pointer value;
+  item pointer value;
+end-pr;