All pastes #366751 Raw Edit

Untitled

public text v1 · immutable
#366751 ·published 2007-02-21 22:00 UTC
rendered paste body
   CurrentFolder = selectedItem(ObjectCategory)
   if CurrentFolder <> OldCurrentFolder
      while ListCount = TotalObjects(CurrentFolder)
         addItem ObjectListInsert,ObjectNames(CurrentFolder,Obj)
         ListCount = itemCount(ObjectListInsert)
      endwhile
      OldCurrentFolder = CurrentFolder
   endif