{$if not def AP_WINCLOSE_H}
	
CONST
  AP_WINCLOSE_H = 0;
  
PROCEDURE CloseMainWin;
VAR
  err : WORD;
BEGIN
  IF wp <> NIL THEN
  BEGIN
	 err := RemoveGList(wp,wp^.FirstGadget,-1);
	 ClearMenuStrip(wp);
	 CloseWindow(wp);
	 FreeGadgets(gl);
	 gl := NIL; wp := NIL;
  END;
END;

PROCEDURE CloseProzentWin;
BEGIN
  IF prozentwin <> NIL THEN Fenster_Zu(prozentwin);
  prozentwin := NIL;
END;

PROCEDURE CloseBlätterWin;
VAR
  err : WORD;
BEGIN
  IF BlätterWp <> NIL THEN
  BEGIN
	 IF BlätterWp^.FirstGadget <> NIL THEN
	   err := RemoveGList(Blätterwp,blätterwp^.FirstGadget,-1);
    CloseWindow(BlätterWp);
  END;
END;

{$endif}