fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-06-11 13:30 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com

Browse Source 
* harbour/tests/wvtext.prg
     + Added Massimo's contribution.
This commit is contained in:
Pritpal Bedi
2008-06-11 20:25:40 +00:00
parent c04afe2af3
commit 03a9c90ebe
2 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-06-11 13:30 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com
* harbour/tests/wvtext.prg
+ Added Massimo's contribution.
2008-06-11 12:30 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com
* harbour/source/rtl/gtwvt/gtwvt.c
* harbour/source/rtl/gtwvt/gtwvt.h

13
harbour/tests/wvtext.prg
View File

@@ -91,10 +91,18 @@ STATIC FUNCTION MyNotifier( nEvent, ... )
STATIC FUNCTION DispScreen()
Local nRow := 18, nCol := 28
Local cColor := 'N/W*'
Local nMaxCol := MaxCol()+1
CLS
DispOutAt( 0, 0,padc( 'Harbour GT - New Features', maxcol()+1 ), 'N/GR*' )
// Contributed by Massimo Belgrano
DispOutAt( 2, 0, padc( "______ __ ______________________ ",nMaxCol ), 'W+/W' )
DispOutAt( 3, 0, padc( "___ / / /_____ __________ /___________ _________ __ ____/____/",nMaxCol ), 'W+/W' )
DispOutAt( 4, 0, padc( "__ /_/ /_ __ `/_ ___/_ __ \ __ \ / / /_ ___/ _ / __ __/ ",nMaxCol ), 'W+/W' )
DispOutAt( 5, 0, padc( "_ __ / / /_/ /_ / _ /_/ / /_/ / /_/ /_ / / /_/ / _ / ",nMaxCol ), 'W+/W' )
DispOutAt( 6, 0, padc( "/_/ /_/ \__,_/ /_/ /_.___/\____/\__,_/ /_/ \____/ /_/ ",nMaxCol ), 'W+/W' )
DispOutAt( nRow+0, nCol, '< F2 MarkCopy Toggle >', cColor )
DispOutAt( nRow+1, nCol, '< F3 Resize Toggle >', cColor )
DispOutAt( nRow+2, nCol, '< F4 Closable Toggle >', cColor )
@@ -123,3 +131,8 @@ PROCEDURE HB_GT_WVT_DEFAULT()
RETURN
//----------------------------------------------------------------------//
?"______ __ ______________________ "
?"___ / / /_____ __________ /___________ _________ __ ____/____/"
?"__ /_/ /_ __ `/_ ___/_ __ \ __ \ / / /_ ___/ _ / __ __/ "
?"_ __ / / /_/ /_ / _ /_/ / /_/ / /_/ /_ / / /_/ / _ / "
?"/_/ /_/ \__,_/ /_/ /_.___/\____/\__,_/ /_/ \____/ /_/ "