argList = self if (argList.Count = 0) then new = Project.Make new.GetWin.Open new.SetModified(false) else fName = argList.Get(0).AsFileName ' ***** následující řádek byl přidán, aby nebyl "shp" zpracováván jako "apr" if (fName.GetExtension <> "shp") then old =Project.Open(fName) if (old = nil) then MsgBox.Warning("The project"++fName.GetBaseName++"could not be opened", "") else old.SetModified(false) end end end av.Run("Codepage.Install",nil)