void deleteObject(Object o, Module m){
 Link lnk, delLnk
 string srcModName
 // delete outgoing links
 for lnk in o -> "*" do {
    delete(lnk)
 }
 Object srcO
 Link inLnk
 for inLnk in o <- "*" do {
    srcModName = fullName source(inLnk)
    print srcModName "izenan"
    edit(srcModName, false)
    delLnk = inLnk
    delete(delLnk)
 }
 flushDeletions()
 hardDelete(o)
}