diff --git a/src/Spec-Toplo/SpToploAbstractTextAdapter.class.st b/src/Spec-Toplo/SpToploAbstractTextAdapter.class.st
index 243413f..77d15d8 100644
--- a/src/Spec-Toplo/SpToploAbstractTextAdapter.class.st
+++ b/src/Spec-Toplo/SpToploAbstractTextAdapter.class.st
@@ -180,7 +180,7 @@ SpToploAbstractTextAdapter >> updateAll [
 		updateEditable
 ]
 
-{ #category : #initialization }
+{ #category : #'updating widget' }
 SpToploAbstractTextAdapter >> updateEditable [
 
 	model isEditable
diff --git a/src/Spec-Toplo/SpToploAdapterBindings.class.st b/src/Spec-Toplo/SpToploAdapterBindings.class.st
index e99e026..f141997 100644
--- a/src/Spec-Toplo/SpToploAdapterBindings.class.st
+++ b/src/Spec-Toplo/SpToploAdapterBindings.class.st
@@ -1,3 +1,6 @@
+"
+I am a link between the Spec-Toplo backend and the Spec-Toplo hierarchy of adapters.
+"
 Class {
 	#name : #SpToploAdapterBindings,
 	#superclass : #SpAdapterBindings,
diff --git a/src/Spec-Toplo/SpToploApplicationConfiguration.class.st b/src/Spec-Toplo/SpToploApplicationConfiguration.class.st
index 6156fce..18ff19a 100644
--- a/src/Spec-Toplo/SpToploApplicationConfiguration.class.st
+++ b/src/Spec-Toplo/SpToploApplicationConfiguration.class.st
@@ -1,3 +1,6 @@
+"
+I am a generic configuration for Spec-Toplo applications.
+"
 Class {
 	#name : #SpToploApplicationConfiguration,
 	#superclass : #SpApplicationConfiguration,
diff --git a/src/Spec-Toplo/SpToploBackend.class.st b/src/Spec-Toplo/SpToploBackend.class.st
index 6626521..8512a6b 100644
--- a/src/Spec-Toplo/SpToploBackend.class.st
+++ b/src/Spec-Toplo/SpToploBackend.class.st
@@ -1,3 +1,6 @@
+"
+I'm a Spec backend for Bloc.
+"
 Class {
 	#name : #SpToploBackend,
 	#superclass : #SpApplicationBackend,
diff --git a/src/Spec-Toplo/SpToploDialogElement.class.st b/src/Spec-Toplo/SpToploDialogElement.class.st
index 25af486..8126c13 100644
--- a/src/Spec-Toplo/SpToploDialogElement.class.st
+++ b/src/Spec-Toplo/SpToploDialogElement.class.st
@@ -1,3 +1,6 @@
+"
+I'm the root element of a `BlSpace` that represents a `SpDialogPresenter`.
+"
 Class {
 	#name : #SpToploDialogElement,
 	#superclass : #SpToploWindowElement,
diff --git a/src/Spec-Toplo/SpToploWindowElement.class.st b/src/Spec-Toplo/SpToploWindowElement.class.st
index f629863..7400e3e 100644
--- a/src/Spec-Toplo/SpToploWindowElement.class.st
+++ b/src/Spec-Toplo/SpToploWindowElement.class.st
@@ -1,7 +1,5 @@
 "
 I'm the root element of a `BlSpace` that represents a `SpWindowPresenter`.
-
-
 "
 Class {
 	#name : #SpToploWindowElement,