{
  ------------------------------------------------------------------------
  -     Clisize - Version 1.0 by Thomas Schmid				 -
  -     Vergrössert aktuelles Window.					 -
  ------------------------------------------------------------------------
}


Program Clisize;    { fertig sind es 3972 Bytes - kürzer gehts mit dem PCQ nimmer }

{$I "Include:intuition/intuition.i"    }
{$I "Include:intuition/intuitionbase.i"}


VAR

	IBs	: IntuitionBasePtr;

{
	Man muß, um Zugriff auf die IntuitionBase zu erlangen,
	1. einen eigenen I.Pointer (hier IBs ) deklarieren, um
	2. Über Openlibrary() den gültigen Zeiger holen zu können.
}



BEGIN

  IBs:=IntuitionBasePtr(Openlibrary("intuition.library",0));

  IF IBs<>NIL THEN	{ ok ? Dann ... }
    BEGIN

	{ als erstes Window nach links oben schieben, }
	MoveWindow( IBs^.ActiveWindow,
		   -1*(IBs^.ActiveWindow^.LeftEdge),
		   -1*(IBs^.ActiveWindow^.TopEdge));

	{ dann auf maximale Größe bringen ! }
	SizeWindow(  IBs^.ActiveWindow,
		   ((IBs^.ActiveScreen^.Width)-(IBs^.ActiveWindow^.Width)),
		   ((IBs^.ActiveScreen^.Height)-(IBs^.ActiveWindow^.Height)) );

	CloseLibrary(LibraryPtr(IBs));		{ und wieder aufräumen }
    END
  ELSE	writeln("Kann intuition.library nicht öffnen");	 { ansonsten Fehlermeldung }

END.