From 03a9c90ebea67ecf5a3edf13fff9def1001c606e Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Wed, 11 Jun 2008 20:25:40 +0000 Subject: [PATCH] 2008-06-11 13:30 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com * harbour/tests/wvtext.prg + Added Massimo's contribution. --- harbour/ChangeLog | 4 ++++ harbour/tests/wvtext.prg | 13 +++++++++++++ 2 files changed, 17 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 5661cf5848..ae07e80144 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2008-12-31 13:59 UTC+0100 Foo Bar */ +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 diff --git a/harbour/tests/wvtext.prg b/harbour/tests/wvtext.prg index ee24d31234..9d2f83f5ac 100644 --- a/harbour/tests/wvtext.prg +++ b/harbour/tests/wvtext.prg @@ -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 //----------------------------------------------------------------------// + ?"______ __ ______________________ " + ?"___ / / /_____ __________ /___________ _________ __ ____/____/" + ?"__ /_/ /_ __ `/_ ___/_ __ \ __ \ / / /_ ___/ _ / __ __/ " + ?"_ __ / / /_/ /_ / _ /_/ / /_/ / /_/ /_ / / /_/ / _ / " + ?"/_/ /_/ \__,_/ /_/ /_.___/\____/\__,_/ /_/ \____/ /_/ "