Source position: unit_breeding_window.pas line 15
procedure Close_Breeding_Window(
whichWindow: WindowPtr;
var theInput: TEHandle
);