Index: APPS/Computer/impl/LoggingComputer.cls.xml
===================================================================
diff -u -r917 -r994
--- APPS/Computer/impl/LoggingComputer.cls.xml	(.../LoggingComputer.cls.xml)	(revision 917)
+++ APPS/Computer/impl/LoggingComputer.cls.xml	(.../LoggingComputer.cls.xml)	(revision 994)
@@ -1,9 +1,9 @@
 <?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-03 14:34:23">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-30 13:17:49">
 <Class name="APPS.Computer.impl.LoggingComputer">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Computer.Computer</Super>
-<TimeChanged>62153,52532.146296</TimeChanged>
+<TimeChanged>62180,47870.296486</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ServerName">
@@ -28,6 +28,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SluitAf">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Do ##class(vhLib.Logger).%New("Computer").Info(""_..ServerName_" wordt afgesloten.",..ServerName_" wordt afgesloten.")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Herstart">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhLib.Logger).%New("Computer").Info(""_..ServerName_" wordt herstart",..ServerName_" wordt herstart.")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.Comput691.LoggingCompu616D</DataLocation>
@@ -47,5 +64,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="2088484072"/>
+<Checksum value="525139527"/>
 </Export>