Dlog-Get Pulldown menu choice index

From Vectorlab

Function to return the choice index of a pulldown menu. Ignores the string, you'll prefer this approach in a CASE statement. By Orso B. Schmid

{ Orso B. Schmid ************************************************ }
{ gets a choice index }
FUNCTION D_PullIntChoice(pullID: LONGINT): INTEGER;
    VAR
        temp_s : STRING;
    BEGIN
        GetSelChoice(pullID, 0, D_PullIntChoice, temp_s);
    END;