Source position: ctglut.pp line 438
type TglutChangeToSubMenu = procedure(
item: Integer;
const caption: PChar;
submenu: Integer
);