Dlog-Pulldown menu divider

From Vectorlab

Procedure to insert a divider in a pulldown menu. By Orso B. Schmid

{ Orso B. Schmid ************************************************ } 
{ inserts a divider }
{ This eases up seeing the dividers: pass -1 if you wish to insert at end }
PROCEDURE D_PullDivider(whichPull: LONGINT; whichRow: INTEGER);
    BEGIN
        IF whichRow = -1 THEN
            whichRow := NumChoices(whichPull);
            
        InsertChoice(whichPull, whichRow, '-');
    END;