1
TECH.ClassInfo.QNameFinder
62158,60268.508483
0
Do ##class(Tools.MoveClass).%New().Move("zTryout.CSC.TestKlas2","zTryout.CSC.TestKlas3")
ClassFrom:%String,ClassTo:%String
0)
{
Do Berichten(Class.GeefNaam()).Insert("In de method "_Method.GeefNaam()_" "_i_" keer gebruikt")
Do Commands.Insert(##class(Tools.impl.RenameImplementationCommand).%New(Lijnen, Method))
}
}
}
}
w "Volgende items zullen hernoemd worden:",!!
Set Klasse = $Order(Berichten(""))
While (Klasse '= "")
{
If (Berichten(Klasse).Count() > 0)
{
w "In klasse "_Klasse_":",!
Set Iterator = ##class(TECH.ListIterator).%New(Berichten(Klasse))
While (Iterator.HasNext())
{
w $J(" ",4)_"- "_Iterator.Next(),!
}
}
Set Klasse = $Order(Berichten(Klasse))
}
Set Input = ""
While (Input '= "Y") && (Input '= "N")
{
w !,"Wilt u deze acties uitvoeren? (Y/N)",!
read Input
}
If (Input = "Y")
{
w !!,"Uitvoeren van de acties:",!!
Set CommandIterator = ##class(TECH.ListIterator).%New(Commands)
While (CommandIterator.HasNext())
{
Set Command = CommandIterator.Next()
w $J(" ",4)_"- "
Set Status = Command.Execute()
w !
Set Result = $$ParseStatus^vhLib(Status)
If (Result '= "") w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),!
}
}
]]>
Class:TECH.ClassInfo.ClassDefinition,String:%String,Prefix:%String,Suffix:%String,Search:%String,Replace:%String
1
%String