--- a/ScreenLock.st	Tue Nov 28 19:19:32 2017 +0100
+++ b/ScreenLock.st	Tue Nov 28 19:19:53 2017 +0100
@@ -124,6 +124,32 @@
     lockAfterSeconds := something.
 !
 
+processor
+    "return the value of the instance variable 'processor' (automatically generated)"
+
+    ^ processor
+!
+
+processor:something
+    "set the value of the instance variable 'processor' (automatically generated)"
+
+    processor := something.
+!
+
+workstation
+    "return the value of the instance variable 'workstation' (automatically generated)"
+
+    ^ workstation
+!
+
+workstation:something
+    "set the value of the instance variable 'workstation' (automatically generated)"
+
+    workstation := something.
+! !
+
+!ScreenLock methodsFor:'accessing-channels'!
+
 lockChannel
 
     lockChannel isNil ifTrue:[
@@ -154,30 +180,6 @@
     "set the value of the instance variable 'lockChannelOut' (automatically generated)"
 
     lockChannelOut := something.
-!
-
-processor
-    "return the value of the instance variable 'processor' (automatically generated)"
-
-    ^ processor
-!
-
-processor:something
-    "set the value of the instance variable 'processor' (automatically generated)"
-
-    processor := something.
-!
-
-workstation
-    "return the value of the instance variable 'workstation' (automatically generated)"
-
-    ^ workstation
-!
-
-workstation:something
-    "set the value of the instance variable 'workstation' (automatically generated)"
-
-    workstation := something.
 ! !
 
 !ScreenLock methodsFor:'change & update'!