CurrentFolder = selectedItem(ObjectCategory)
   if CurrentFolder <> OldCurrentFolder
      while ListCount = TotalObjects(CurrentFolder)
         addItem ObjectListInsert,ObjectNames(CurrentFolder,Obj)
         ListCount = itemCount(ObjectListInsert)
      endwhile
      OldCurrentFolder = CurrentFolder
   endif