/*  Diese Routine zeigt Adressen,Groesse und Flags aller Windows an. */
/*  Autor : P.Mackenthun 28.1.88 */

#include <intuition/intuition.h>
#include <intuition/intuitionbase.h>

struct IntuitionBase *ibase;

main()
{
struct Window *wina;
struct Screen *scr;

ibase=OpenLibrary("intuition.library",0L);
if(ibase==0)
	{
	printf("Intuition not available\n");
	return(0);
	}

printf("Adress Position X,Y Size X,Y  Flags    IDCMP-Flags  Title\n");
printf("------ ------------ --------- -------- ------------ --------------\n");

scr=ibase->FirstScreen;		/* Mit erstem Screen beginnen. */
while(scr!=0L)
	{
	wina=scr->FirstWindow;	/* Erstes Window holen */

	while(wina!=0L)
		{
		printf("%6lx   %3ld,%-3ld     %3ld,%-3ld  %08lx %08lx     %s\n",wina,
			wina->LeftEdge,wina->TopEdge,
			wina->Width,wina->Height,
			wina->Flags,wina->IDCMPFlags,
			wina->Title);
		wina=wina->NextWindow;		/* Naechstes Window suchen */
		}
	
	scr=scr->NextScreen;			/* Naechsten Screen suchen */
	}

CloseLibrary(ibase);
}