Support text's editable property

pharo-graphics · Jul 1, 2024 · 920985f · 920985f
1 parent d9f9094
commit 920985f
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/src/Spec-Toplo/SpToploTextAdapter.class.st b/src/Spec-Toplo/SpToploTextAdapter.class.st
@@ -9,3 +9,20 @@ SpToploTextAdapter >> buildWidget [
 
 	^ ToAlbum new
 ]
+
+{ #category : #initialization }
+SpToploTextAdapter >> subscribeToPresenter [
+
+	super subscribeToPresenter.
+
+	model whenEditableChangedDo: [
+		self updateEditable ]
+]
+
+{ #category : #initialization }
+SpToploTextAdapter >> updateEditable [
+
+	model isEditable
+		ifTrue: [ widget beEditable ]
+		ifFalse: [ widget beReadonlyWithSelection ]
+]