#
# LoadNoteNames.pl
# ver 0.2
 
use strict;
use warnings;
 
use constant OPEN_MIDI_ITEM => 40109;
use constant LOAD_NOTE_NAMES => 40409;
use constant DRUM_DIAMONDS_VIEW => 40450;
use constant HIDE_UNUSED_UNNAMED_ROWS => 40454;
use constant FILE_CLOSE_WINDOW => 2;
use constant MSGBOX_YESNO => 4;
use constant MSGBOX_YES => 6;
use constant MSGBOX_NO => 7;
 
my $ret_val;
 
RPR_Main_OnCommand(OPEN_MIDI_ITEM,0);
 
my $med = RPR_MIDIEditor_GetActive();
 
$ret_val = RPR_MIDIEditor_OnCommand($med, LOAD_NOTE_NAMES);
 
$ret_val = RPR_ShowMessageBox("Did The Load Succeed?","Load Note Names", MSGBOX_YESNO);
 
if($ret_val == MSGBOX_YES){
    $ret_val = RPR_MIDIEditor_OnCommand($med, DRUM_DIAMONDS_VIEW);
    $ret_val = RPR_MIDIEditor_OnCommand($med, HIDE_UNUSED_UNNAMED_ROWS);
} else {
    $ret_val = RPR_MIDIEditor_OnCommand($med, FILE_CLOSE_WINDOW);
}
 
exit 0;