DATA   lTopPane    INIT .T. 
 hbedit.prg 
 ... 
    TEdit():bNew := {|oe| oe:lTopPane := .F., ;      
                          oe:bOnKey        := {|o,n| EdOnKey(o, n) }, ; 
                          oe:bWriteTopPane := {|o,n| StBline(o, n) } } 
    nScreenH -= 1 
     
    FOR i := 1 TO Len( aFiles ) 
       TEdit():New( Iif(!Empty(aFiles),Memoread(aFiles),""), aFiles, 0, 0, nScreenH-1, nScreenW-1, , .F. ) 
       IF lRO 
          ATail(TEdit():aWindows):lReadOnly := .T. 
       ENDIF 
    NEXT 
  
    IF Empty( TEdit():aWindows ) 
       TEdit():New( "", "", 0, 0, nScreenH-1, nScreenW-1, , .F. ) 
       IF lRO 
          ATail(TEdit():aWindows):lReadOnly := .T. 
       ENDIF 
    ENDIF 
 ... 
 

 
    TEdit():bNew := {|oe| oe:lTopPane := .F., oe:y2 := MaxRow()-1, oe:y1 := 0, ;      
                          oe:bOnKey        := {|o,n| EdOnKey(o, n) }, ; 
                          oe:bWriteTopPane := {|o,n| StBline(o, n) } } 
 

 
 FUNCTION edi_Alert( cText, cAns1, cAns2, cAns3 ) 
  
    LOCAL aText := hb_aTokens( cText, ";" ), i 
    LOCAL aGets := { {,,2," Ok ",4,"W+/R","W+/B",{||__KeyBoard(Chr(K_ENTER))}} } 
    LOCAL nLen := 0, nBtnsLen := 6, cp, x1, y1 := 10, oldc, bufsc 
  
 * =================================================================== 
  
    cText := '' ; AEval(aText, {|ct,ni| cText += ct + ; 
                               iif( Len(aText) == ni, "", chr(13)+chr(10) ) }) 
  
    If ! empty(cAns3) 
       cp := 'Information' 
       If Len( aText ) > 1 
          cp := ATail(aText) 
       Else 
          If ( i := RAt( '.', cText ) ) > 0 
             cp := Alltrim(subs(cText, i + 1)) 
          EndIf 
       EndIf 
       If '?' $ cp; cp := StrTran(cp, '?', '') 
       EndIf 
       i := MsgYesNoCancel( cText, cp ) 
    ElseIf ! empty(cAns2) 
       cp := 'Information' 
       If Len( aText ) > 1 
          cp := ATail(aText) 
       Else 
          If ( i := RAt( '.', cText ) ) > 0 
             cp := Alltrim(subs(cText, i + 1)) 
          EndIf 
       EndIf 
       If '?' $ cp; cp := StrTran(cp, '?', '') 
       EndIf 
       i := MsgYesNo( cText, cp ) 
    ElseIf ! empty(cAns1) 
       If cAns1 == 'Quit' 
          MsgBox( cText, "Error" + ". " + cAns1 ) 
       Else 
          MsgBox( cText, cAns1 ) 
       EndIf 
    Else 
       MsgInfo( cText ) 
    EndIf 
  
    If i != Nil; i += 1 
    EndIf 
  
    RETURN i 
  
 * =================================================================== 
  
    FOR i := 1 TO Len( aText ) 
       nLen := Max( nLen, Len( aText[ i ] ) ) 
    NEXT 
    nLen += 4 
 ... 
 

 
    RETURN Nil 
  
 FUNCTION mnu_F3( oEdit ) 
 

 
    RETURN Nil 
 FUNCTION mnu_F3( oEdit )

 
 FUNCTION edi_Alert( cText, cAns1, cAns2, cAns3 ) 
 ... 
    STATIC b_Alert 
  
    IF Valtype(cText) == 'B' 
       b_Alert := cText 
       RETURN Nil 
    ENDIF 
    IF empty( b_Alert ) 
 ... как сейчас 
    ELSE 
       i := EVal( b_Alert, cText, cAns1, cAns2, cAns3 ) 
    ENDIF 
  
    RETURN i 
 тогда в своем prg делаю установку блока и происходит подмена кода выполнения. 
 Хорошо бы в oEdit добавить пару переменных CLASS VAR ... для блоков кода подмены запроса Open file и Save as ... 
 Т.к. используем (у себя в работе) в gtwvt windows варианты запросов. 
 Конечно и для окон запроса Search и Search&Replace такой механизм не помешал бы, но пока не так актуально.