*SOURCELISTING for Devpac or MasterSeka
*
* MIN
* makes (current active) window as small as possible
*
* by Gertjan 'Bugs' van Ratingen
*    P. Dijkmansstraat 1c
*    5611 RA  Eindhoven
*
OpenLibrary = -552
CloseLibrary = -414
SizeWindow = -288

MIN:	MOVEA.L	$4.W,A6			;execbase
	LEA	intname(pc),A1
	CLR.L	D0			;version=0 (doesn't matter)
	JSR	OpenLibrary(A6)
	MOVEA.L	D0,A6			;intbase
	TST.L	D0
	BEQ.S	exit
	MOVEA.L	52(A6),A0		;activewindow
	MOVE.W	8(A0),D0		;dx = wd_Width
	SUB.W	16(A0),D0		;dx = dx - wd_MinWidth
	NEG.W	D0			;dx = -dx
	MOVE.W	10(A0),D1		;dy = wd_Height
	SUB.W	18(A0),D1		;dy = dy - wd_MinHeigth
	NEG.W	D1			;dy = -dy
	JSR	SizeWindow(A6)
	MOVEA.L	A6,A1			;intbase
	MOVEA.L	$4.W,A6			;execbase
	JSR	CloseLibrary(A6)
exit:	CLR.L     D0
	RTS

intname: dc.b 'intuition.library',0