--- a/SelectionInHierarchyView.st	Tue Jul 12 16:53:26 2016 +0200
+++ b/SelectionInHierarchyView.st	Mon Jul 18 11:14:57 2016 +0200
@@ -10,8 +10,9 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libwidg2' }"
 
-"{ Package: 'stx:libwidg2' }"
+"{ NameSpace: Smalltalk }"
 
 SelectionInListView subclass:#SelectionInHierarchyView
 	instanceVariableNames:'itemList showConnectingLines itemClass indent itemPrintConverter'
@@ -137,7 +138,8 @@
 	super selection:  anIndex.
 	model selection:  anIndex.
 
-	"Modified: 10.10.94 / 16:13:38 / W.Olberding"!
+	"Modified: 10.10.94 / 16:13:38 / W.Olberding"
+!
 
 selectionIndex: anIndex
 	"Pass the selection along to the model."
@@ -190,7 +192,8 @@
 
     super keyPress:key x:x y:y
 
-	"Modified: 10.10.94 / 16:13:38 / W.Olberding"! !
+	"Modified: 10.10.94 / 16:13:38 / W.Olberding"
+! !
 
 !SelectionInHierarchyView methodsFor:'initialization'!
 
@@ -230,7 +233,8 @@
 
        ^Array new: 0.
 
-	"Modified: 10.10.94 / 16:13:38 / W.Olberding"!
+	"Modified: 10.10.94 / 16:13:38 / W.Olberding"
+!
 
 getListFromModel
     "Get list entries from model.
@@ -368,24 +372,27 @@
        self selection: (self getSelectionFromModel).
 
 	"Modified: 10.10.94 / 17:13:38 / W.Olberding"
-	"Modified: 08.11.94 / 15:28:03 / R.Sailer"! !
+	"Modified: 08.11.94 / 15:28:03 / R.Sailer"
+! !
 
 !SelectionInHierarchyView methodsFor:'updating'!
 
 update: aSymbol with:aParameter from:changedObject
-      "Change my apperance according to the occurred change."
+      "Change my appearance according to the occurred change."
 
-     aSymbol==#list
-	ifTrue: [^self setNewList].
-     aSymbol==#selection
-	ifTrue: [^self selection: self getSelectionFromModel].
-     aSymbol==#attributes
-	ifTrue: [].
+     aSymbol == #list
+        ifTrue: [^self setNewList].
+     aSymbol == #selection
+        ifTrue: [^self selection: self getSelectionFromModel].
+     aSymbol == #attributes
+        ifTrue: [].
 
-	"Modified: 10.10.94 / 16:13:38 / W.Olberding"! !
+        "Modified: 10.10.94 / 16:13:38 / W.Olberding"
+! !
 
 !SelectionInHierarchyView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchyView.st,v 1.12 2006-11-13 16:11:31 cg Exp $'
+    ^ '$Header$'
 ! !
+