--- a/VDBAbstractListApplication.st Sat Sep 01 13:25:16 2018 +0100
+++ b/VDBAbstractListApplication.st Sat Sep 01 13:26:37 2018 +0100
@@ -353,6 +353,20 @@
^ self subclassResponsibility
! !
+!VDBAbstractListApplication methodsFor:'help'!
+
+activeHelpViewFor:text onDevice:aDevice
+ | view |
+
+ view := super activeHelpViewFor:text onDevice:aDevice.
+ view font: self textFont.
+ view subViews do:[:each | each font: self textFont ].
+ view resizeToFit.
+ ^ view
+
+ "Created: / 01-09-2018 / 12:15:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!VDBAbstractListApplication methodsFor:'help texts'!
flyByHelpTextFor:aView at: aPoint