From 84773bc03202c5db1841782919f6d17b620cda94 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sat, 14 Jun 2003 13:50:32 +0000 Subject: [PATCH] some changes by Ian Anderson --- harbour/source/debug/dbgtwin.prg | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/harbour/source/debug/dbgtwin.prg b/harbour/source/debug/dbgtwin.prg index 6b1d0dc226..9af672de1f 100644 --- a/harbour/source/debug/dbgtwin.prg +++ b/harbour/source/debug/dbgtwin.prg @@ -77,6 +77,7 @@ CLASS TDbWindow // Debugger windows and dialogs METHOD nWidth() INLINE ::nRight - ::nLeft + 1 METHOD ScrollUp( nLines ) METHOD SetCaption( cCaption ) + METHOD ShowCaption() METHOD SetFocus( lOnOff ) METHOD Show( lFocused ) METHOD ShowModal() @@ -129,14 +130,14 @@ return nil METHOD SetCaption( cCaption ) CLASS TDbWindow - local nOldLen := iif( ::cCaption != nil, Len( ::cCaption ), 0 ) - ::cCaption := cCaption - - if ! Empty( cCaption ) +return nil + +METHOD ShowCaption CLASS TDbWindow + if ! Empty( ::cCaption ) DispOutAt( ::nTop, ::nLeft + ( ( ::nRight - ::nLeft ) / 2 ) - ; - ( ( Len( cCaption ) + 2 ) / 2 ),; - " " + cCaption + " ", ::cColor ) + ( ( Len( ::cCaption ) + 2 ) / 2 ),; + " " + ::cCaption + " ", ::cColor ) endif return nil @@ -157,7 +158,7 @@ METHOD SetFocus( lOnOff ) CLASS TDbWindow DispOutAt( ::nTop, ::nLeft + 1, "[" + Chr( 254 ) + "]", ::cColor ) if ! Empty( ::cCaption ) - ::SetCaption( ::cCaption ) + ::ShowCaption( ::cCaption ) endif if ::bPainted != nil @@ -182,7 +183,7 @@ METHOD Refresh() CLASS TDbWindow DispOutAt( ::nTop, ::nLeft + 1, "[" + Chr( 254 ) + "]", ::cColor ) if ! Empty( ::cCaption ) - ::SetCaption( ::cCaption ) + ::ShowCaption( ::cCaption ) endif if ::bPainted != nil @@ -207,6 +208,7 @@ METHOD Show( lFocused ) CLASS TDbWindow hb_Shadow( ::nTop, ::nLeft, ::nBottom, ::nRight ) endif + ::ShowCaption() ::lVisible := .t. return nil @@ -323,4 +325,4 @@ METHOD KeyPressed( nKey ) CLASS TDbWindow Eval( ::bKeyPressed, nKey, Self ) endif -return nil \ No newline at end of file +return nil