add missing hasBindingOf: to the LessonView

macta · May 5, 2024 · 9838105 · 9838105
1 parent 7edd8e7
commit 9838105
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/ProfStef-Core/LessonView.class.st b/src/ProfStef-Core/LessonView.class.st
@@ -75,6 +75,12 @@ LessonView >> doItReceiver [
 	^ nil
 ]
 
+{ #category : 'accessing' }
+LessonView >> hasBindingOf: aString [
+
+ 	^ self bindings includesKey: aString
+]
+
 { #category : 'initialization' }
 LessonView >> initialize [