--- 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