Pass on class comments and protocols

tinchodias · tinchodias · commit 862f3243f952 · 2024-09-12T16:58:49.000-03:00
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -1,7 +1,5 @@
 "
 I'm the root element of a `BlSpace` that represents a `SpWindowPresenter`.
-
-
 "
 Class {
 	#name : #SpToploWindowElement,

Original file line number	Diff line number	Diff line change
`@@ -180,7 +180,7 @@ SpToploAbstractTextAdapter >> updateAll [`
`180`	`180`	`updateEditable`
`181`	`181`	`]`
`182`	`182`
`183`		`-{ #category : #initialization }`
	`183`	`+{ #category : #'updating widget' }`
`184`	`184`	`SpToploAbstractTextAdapter >> updateEditable [`
`185`	`185`
`186`	`186`	`model isEditable`
Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,5 @@`
`1`	`1`	`"`
`2`	`2`	I'm the root element of a `BlSpace` that represents a `SpWindowPresenter`.
`3`		`-`
`4`		`-`
`5`	`3`	`"`
`6`	`4`	`Class {`
`7`	`5`	`#name : #SpToploWindowElement,`