Form question

[Luiz Fernando Barbosa]

Hi,

I have one form that doesn't draw itself. 
Any suggestion ? Following is what I used.

Luiz Fernando
Thanks in advance,

static Boolean MainFormHandleEvent(EventPtr eventP)
{
   Boolean handled = false;
   FormPtr frmP;
 UInt cardNo;
 LocalID dbID;
 CharPtr nameP;
 Err Erro;
 UInt i,j;
 ListPtr list;
 char *gLista[60];
 
 switch (eventP->eType) 
  {

  case frmOpenEvent:
   frmP = FrmGetActiveForm();
   
   j = DmNumDatabases(0) - 1;
   for(i=0;i<= j;i ++ )
   { 
    dbID = DmGetDatabase(0,i);
    Erro = DmDatabaseInfo (0, dbID,
        nameP, NULL, NULL, NULL, NULL,
           NULL,NULL, NULL,NULL, NULL,NULL);
    gLista[i] = (CharPtr) MemPtrNew(StrLen(nameP)+1);
    StrCopy(gLista[i],nameP);
     
   }
  
   list = FrmGetObjectPtr(frmP,FrmGetObjectIndex(frmP,MainListaList));
   LstSetListChoices(list,gLista,i);
  
   // after the code above the form is not redrawed

   FrmDrawForm ( frmP); 
   handled = true;
   break;
  
  case frmCloseEvent:
   j = DmNumDatabases(0) - 1;
   for(i=0;i<= j;i ++ )
    MemPtrFree(gLista[i]);
   MemPtrFree(gLista);
   
   handled = true;
   break;

  default:
   break;
  
  }
 
 return handled;
}