Sticky-note

Override the _init method to set up the COLORS list. This is the list that will map background colors to Catalog Entry types.

INIT: method optional= attr 8;
   call super( _self_, '_init', VIEWER );

   colors = makelist();
   rc = setnitemc( colors,'BROWN','CBT' );
   rc = setnitemc( colors,'GREEN','FRAME' );
   rc = setnitemc( colors,'PURPLE','SCL' );
   rc = setnitemc( colors,'RED', 'SLIST' );
   rc = setnitemc( colors,'BLUE','CLASS' );
   rc = setnitemc( colors,'ORANGE','PMENU' );
   rc = setnitemc( colors,'GRAY','RESOURCE' );

   rc = setniteml( _self_,colors,'COLORS' );

   bg = makelist();
   rc = setniteml( _self_, bg,'BGCOLORS' );
endmethod;