Listing 4: Eine Liste mit den aktiven Fenstern erstellen.

/* FensterListe.c */

#define __USE_BASETYPE__

#include <proto/exec.h>
#include <proto/dos.h>
#include <proto/intuition.h>

int main()
{
  struct Screen *scr;
  struct Window *win;

  for(scr = IIntuition->LockScreenList(); scr; scr = scr->NextScreen)
  {
    IDOS->Printf("Screen %.40s at %ld,%ld with size %ldx%ld\n",
                 (scr->Title ? scr->Title :(UBYTE*) "<unnamed>"),
                 scr->LeftEdge,
                 scr->TopEdge,
                 scr->Width,
                 scr->Height
                );

    for(win = scr->FirstWindow; win; win = win->NextWindow)
    {
      IDOS->Printf("  Window %.40s at %ld,%ld with size %ld,%ld\n",
                   (win->Title ? win->Title :(UBYTE*)"<unnamed>"),
                   win->LeftEdge,
                   win->TopEdge,
                   win->Width,
                   win->Height
                  );
    }
  }
  IIntuition->UnlockScreenList();

  return( 0 );
}