--- a/FlyByHelp.st	Fri Oct 14 02:39:37 2016 +0200
+++ b/FlyByHelp.st	Fri Oct 14 12:57:53 2016 +0200
@@ -205,6 +205,13 @@
         key notNil ifTrue:[
             app := aView application.
             app isNil ifTrue:[
+                "/ special case for oldStyle Dialog subclasses.
+                aView topView flyByHelpSpec notNil ifTrue:[
+                    text := aView topView flyByHelpSpec at:key ifAbsent:nil.
+                    text notNil ifTrue:[
+                        ^ aView topView resources stringWithCRs:text.
+                    ].    
+                ].    
                 app := Error handle:[:ex | nil] do:[ aView windowGroup mainGroup application ].
             ].
             app notNil ifTrue:[