/********************************************************************************/
/*                                SMALL                                         */
/*                                                                              */
/*                              Written by                                      */
/*                             Andreas Jung                                     */
/*                           Klosterstrasse 2                                   */
/*                           D-6602 Dudweiler                                   */
/*                      Federal Republic of Germany                             */
/*                                                                              */
/*  This small utility decreases the size of the current window to the minimum  */
/*  height and width. SMALL must be started from CLI without any parameters.    */
/********************************************************************************/

#include <functions.h>
#include <exec/types.h>
#include <intuition/intuition.h>
#include <intuition/intuitionbase.h>

struct IntuitionBase *IntuitionBase;

void _cli_parse(void){};
void _wb_parse(void){};

void _main(void)
{
	struct Screen *screen;
	struct Window *window;
	long dx,dy;

	IntuitionBase=(struct IntuitionBase *) OpenLibrary("intuition.library",0L);

	if (IntuitionBase)
	{
		screen=IntuitionBase->ActiveScreen;
		window=IntuitionBase->ActiveWindow;

		dx=window->LeftEdge;
		dy=window->TopEdge;

		MoveWindow(window,-dx,-dy);

		dx=window->Width - window->MinWidth;
		dy=window->Height - window->MinHeight;
		SizeWindow(window,-dx,-dy);
		CloseLibrary(IntuitionBase);
	}
}