Index: Tools/impl/RenamePropertyCommand.cls.xml
===================================================================
diff -u
--- Tools/impl/RenamePropertyCommand.cls.xml	(revision 0)
+++ Tools/impl/RenamePropertyCommand.cls.xml	(revision 907)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 15:34:05">
+<Class name="Tools.impl.RenamePropertyCommand">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,Tools.impl.ICommand</Super>
+<TimeChanged>62158,56044.46793</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="RenameTo">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PropertyDefinition">
+<Type>TECH.ClassInfo.PropertyDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>RenameTo:%String,PropertyDefinition:TECH.ClassInfo.PropertyDefinition</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..RenameTo = RenameTo
+	Set ..PropertyDefinition = PropertyDefinition
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Execute">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	w "Wijzigen type van property "_..PropertyDefinition.GeefNaam()_" uit klasse "_..PropertyDefinition.GeefKlasse().GeefNaam()
+	Do ..PropertyDefinition.ZetType(..RenameTo)
+	Quit ..PropertyDefinition.Save()
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2414516186"/>
+</Export>
Index: Tools/MoveClass.cls.xml
===================================================================
diff -u
--- Tools/MoveClass.cls.xml	(revision 0)
+++ Tools/MoveClass.cls.xml	(revision 907)
@@ -0,0 +1,182 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 16:44:29">
+<Class name="Tools.MoveClass">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.ClassInfo.QNameFinder</Super>
+<TimeChanged>62158,60268.508483</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Move">
+<Description>
+Do ##class(Tools.MoveClass).%New().Move("zTryout.CSC.TestKlas2","zTryout.CSC.TestKlas3")</Description>
+<FormalSpec>ClassFrom:%String,ClassTo:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Berichten = ""
+	Set Commands = ##class(%ListOfObjects).%New()
+	
+	w "======================"_$Translate($J("",$Length(ClassFrom_ClassTo))," ","="),!
+	w "Verplaatsen van "_ClassFrom_" naar "_ClassTo,!
+	w "======================"_$Translate($J("",$Length(ClassFrom_ClassTo))," ","="),!!
+	
+	w "Zoeken...",!!
+	
+	Set ResultSet = ##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:Summary")
+	Do ResultSet.Execute()
+	While ResultSet.Next()
+	{
+		Set ClassName = ResultSet.Data("Name")
+		
+		Set ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
+		If (ClassDefinition '= "")
+		{
+			Set Class = ##class(TECH.ClassInfo.ClassDefinition).%New(ClassDefinition.Name)
+			Set Berichten(Class.GeefNaam()) = ##class(%ListOfDataTypes).%New()
+			
+			// --- Controleer super klassen
+			Set SuperKlassen = Class.GeefSuperKlassen()
+			Set RenamedSuperKlassen = ""
+			Set HeeftRenamed = 0
+			While (SuperKlassen.HasNext())
+			{
+				Set SuperKlas = SuperKlassen.Next()
+				If (SuperKlas = ClassFrom)
+				{
+					Do Berichten(Class.GeefNaam()).Insert("De bovenklasse")
+					Set SuperKlas = ClassTo
+					Set HeeftRenamed = 1
+				}
+				Set RenamedSuperKlassen = RenamedSuperKlassen_SuperKlas_$S(SuperKlassen.HasNext():",",1:"")
+			}
+			
+			If (HeeftRenamed) Do Commands.Insert(##class(Tools.impl.RenameSuperCommand).%New(RenamedSuperKlassen, Class))
+			
+			// --- Controleer properties
+			Set Properties = Class.GeefProperties()
+			While (Properties.HasNext())
+			{
+				Set Property = Properties.Next()
+				If (Property.GeefType() = ClassFrom)
+				{
+					Do Berichten(Class.GeefNaam()).Insert("Property type van "_Property.GeefNaam())
+					Do Commands.Insert(##class(Tools.impl.RenamePropertyCommand).%New(ClassTo, Property))
+				}
+			}
+			
+			Set Methods = Class.GeefMethods()
+			While (Methods.HasNext())
+			{
+				Set Method = Methods.Next()
+				// -- Controleer return types van methods
+				If (Method.GeefType() = ClassFrom)
+				{
+					Do Berichten(Class.GeefNaam()).Insert("Return type van method "_Method.GeefNaam())
+					Do Commands.Insert(##class(Tools.impl.RenameMethodCommand).%New(ClassTo, Method))
+				}
+				
+				// -- Controleer parameter types
+				Set Parameters = Method.GeefParameters()
+				While (Parameters.HasNext())
+				{
+					Set Parameter = Parameters.Next()
+					If (Parameter.GeefType() = ClassFrom)
+					{
+						Do Berichten(Class.GeefNaam()).Insert("Parameter "_Parameter.GeefNaam()_" van method "_Method.GeefNaam())
+						Do Commands.Insert(##class(Tools.impl.RenameParameterCommand).%New(ClassTo, Parameter, Method))
+					}
+				}
+				
+				// -- Controleer implementatie
+				Set Implementatie = Method.GeefImplementatie()
+				Set i = 0
+				Set Lijnen = ##class(%ListOfDataTypes).%New()
+				While ('Implementatie.AtEnd)
+				{
+					Set Lijn = Implementatie.ReadLine()
+					If Lijn [ "##class("
+					{
+						Set Vervangen = ..ReplaceBetween(Class,Lijn,"##class(",")",ClassFrom,ClassTo)
+						If (Vervangen '= Lijn) {
+							Set i = i + 1
+							Set Lijn = Vervangen
+						}
+					}
+					Do Lijnen.Insert(Lijn)
+				}
+				
+				If (i > 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),!
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ReplaceBetween">
+<FormalSpec>Class:TECH.ClassInfo.ClassDefinition,String:%String,Prefix:%String,Suffix:%String,Search:%String,Replace:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Aantal = $Length(String,Prefix)
+	Set Find = 1
+	For i = 1:1:Aantal-1
+	{
+		Set Gevonden = $Piece($Piece($Extract(String,Find,$Length(String)),Prefix,2),Suffix)
+		Set Find = $Find(String,Prefix,Find)
+		If ($Extract(String,Find+$Length(Gevonden),Find+$Length(Gevonden)) = Suffix)
+		{
+			If (..GeefQualifiedName($Extract(String,Find,Find+$Length(Gevonden)-1),Class) = Search)
+			{
+				Set $Extract(String,Find,Find+$Length(Gevonden)-1) = Replace
+			}
+		}
+	}
+	Quit String
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="190735511"/>
+</Export>
Index: Tools/impl/ICommand.cls.xml
===================================================================
diff -u
--- Tools/impl/ICommand.cls.xml	(revision 0)
+++ Tools/impl/ICommand.cls.xml	(revision 907)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 13:56:35">
+<Class name="Tools.impl.ICommand">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<TimeChanged>62158,50194.54727</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Execute">
+<Abstract>1</Abstract>
+<ReturnType>%Status</ReturnType>
+</Method>
+</Class>
+<Checksum value="208501574"/>
+</Export>
Index: Tools/impl/RenameParameterCommand.cls.xml
===================================================================
diff -u
--- Tools/impl/RenameParameterCommand.cls.xml	(revision 0)
+++ Tools/impl/RenameParameterCommand.cls.xml	(revision 907)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 16:03:11">
+<Class name="Tools.impl.RenameParameterCommand">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,Tools.impl.ICommand</Super>
+<TimeChanged>62158,57790.288822</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="RenameTo">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ParameterDefinition">
+<Type>TECH.ClassInfo.ParameterDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MethodDefinition">
+<Type>TECH.ClassInfo.MethodDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>RenameTo:%String,ParameterDefinition:TECH.ClassInfo.ParameterDefinition,MethodDefinition:TECH.ClassInfo.MethodDefinition</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..RenameTo = RenameTo
+	Set ..ParameterDefinition = ParameterDefinition
+	Set ..MethodDefinition = MethodDefinition
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Execute">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	w "Wijzigen type van parameter "_..ParameterDefinition.GeefNaam()_" van method "_..MethodDefinition.GeefNaam()_" uit klasse "_..MethodDefinition.GeefKlasse().GeefNaam()
+	Do ..ParameterDefinition.ZetType(..RenameTo)
+	Quit ..MethodDefinition.Save()
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3135370401"/>
+</Export>
Index: Tools/impl/RenameSuperCommand.cls.xml
===================================================================
diff -u
--- Tools/impl/RenameSuperCommand.cls.xml	(revision 0)
+++ Tools/impl/RenameSuperCommand.cls.xml	(revision 907)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 15:14:04">
+<Class name="Tools.impl.RenameSuperCommand">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,Tools.impl.ICommand</Super>
+<TimeChanged>62158,54843.502421</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="RenameTo">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ClassDefinition">
+<Type>TECH.ClassInfo.ClassDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>RenameTo:%String,ClassDefinition:TECH.ClassInfo.ClassDefinition</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..RenameTo = RenameTo
+	Set ..ClassDefinition = ClassDefinition
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Execute">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	w "Wijzigen bovenklasse van "_..ClassDefinition.GeefNaam()_" naar "_..RenameTo
+	Do ..ClassDefinition.ZetSuperKlassen(..RenameTo)
+	Quit ..ClassDefinition.Save()
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="15083511"/>
+</Export>
Index: Tools/impl/RenameMethodCommand.cls.xml
===================================================================
diff -u
--- Tools/impl/RenameMethodCommand.cls.xml	(revision 0)
+++ Tools/impl/RenameMethodCommand.cls.xml	(revision 907)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 15:38:04">
+<Class name="Tools.impl.RenameMethodCommand">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,Tools.impl.ICommand</Super>
+<TimeChanged>62158,56283.797043</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="RenameTo">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MethodDefinition">
+<Type>TECH.ClassInfo.MethodDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>RenameTo:%String,MethodDefinition:TECH.ClassInfo.MethodDefinition</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..RenameTo = RenameTo
+	Set ..MethodDefinition = MethodDefinition
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Execute">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	w "Wijzigen type van method "_..MethodDefinition.GeefNaam()_" uit klasse "_..MethodDefinition.GeefKlasse().GeefNaam()
+	Do ..MethodDefinition.ZetType(..RenameTo)
+	Quit ..MethodDefinition.Save()
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1573979812"/>
+</Export>
Index: Tools/impl/RenameImplementationCommand.cls.xml
===================================================================
diff -u
--- Tools/impl/RenameImplementationCommand.cls.xml	(revision 0)
+++ Tools/impl/RenameImplementationCommand.cls.xml	(revision 907)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 16:15:04">
+<Class name="Tools.impl.RenameImplementationCommand">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,Tools.impl.ICommand</Super>
+<TimeChanged>62158,58503.227793</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Implementation">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MethodDefinition">
+<Type>TECH.ClassInfo.MethodDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Implementation:%ListOfDataTypes,MethodDefinition:TECH.ClassInfo.MethodDefinition</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Implementation = Implementation
+	Set ..MethodDefinition = MethodDefinition
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Execute">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	w "Wijzigen implementatie van method "_..MethodDefinition.GeefNaam()_" uit klasse "_..MethodDefinition.GeefKlasse().GeefNaam()
+	Set ImplementatieStream = ..MethodDefinition.GeefImplementatie()
+	Set ImplementatieIterator = ##class(TECH.ListIterator).%New(..Implementation)
+	While (ImplementatieIterator.HasNext())
+	{
+		Set ImplementatieLijn = ImplementatieIterator.Next()
+		Do ImplementatieStream.WriteLine(ImplementatieLijn)
+	}
+	Quit ..MethodDefinition.Save()
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="4142543934"/>
+</Export>