Source position: unit_breeding_window.pas line 24
procedure Do_Breeding_Window(
myEvent: EventRecord;
var theInput: TEHandle
);