// Create a message port and add it to a Window object: WINDOW_AppPort,MyAppIconPort,
 
// After opened the window:
struct AppWindow *MyWindow_app=IWorkbench->AddAppWindow(0,0,MyWindow,MyAppIconPort,TAG_DONE);
 
// Before closing the window:
if (MyWindow_app!=NULL) { IWorkbench->RemoveAppWindow(MyWindow_app);  MyWindow_app=NULL; }
 
 
// In your window message handler function:
char filename[4095+1];
struct AppMessage *MyWBAppMsg=(struct AppMessage *)IExec->GetMsg(MyAppIconPort);
 while(MyWBAppMsg!=NULL)
 {
  if (MyWBAppMsg->am_Type==AMTYPE_APPICON)
  {
   IExec->ReplyMsg((struct Message *)MyWBAppMsg);
  }
  else
  {
   if ((MainWindow!=NULL) && (MyWBAppMsg->am_Type==AMTYPE_APPWINDOW))
   {
    if ((MyWBAppMsg->am_NumArgs>0) && (MyWBAppMsg->am_ArgList!=NULL))
    {
     if (MyWBAppMsg->am_ArgList->wa_Lock!=ZERO)
     {
      IDOS->NameFromLock(MyWBAppMsg->am_ArgList->wa_Lock,filename,sizeof(filename));
 
      IIntuition->SetGadgetAttrs((struct Gadget *)MyListBrowserObject,MyWindow,NULL,LISTBROWSER_Content,~0,TAG_DONE);
      IExec->AddTail(MyList,MyAllocListBrowserNode(filename));
      // Imaginate that MyAllocListBrowserNode() function yourself
      IIntuition->SetGadgetAttrs((struct Gadget *)MyListBrowserObject,MyWindow,NULL,LISTBROWSER_Content,MyList,TAG_DONE);
     }
    }
    else ;
   }
   else ;
   IExec->ReplyMsg((struct Message *)MyWBAppMsg);
  }
 
  MyWBAppMsg=(struct AppMessage *)IExec->GetMsg(MyAppIconPort);
 }