Re: Fwd: aubit4GL PROMPT doesn't see on text mode

Thanks for the answer...

I misunderstood you before, so here's the working sample:


#####
# sample.4gl
#
GLOBALS
# used by init_msgs(), message_window(), and prompt_window() to allow
# user to display text in a message or prompt window.
DEFINE ga_dsplymsg ARRAY[5] OF CHAR(48)
END GLOBALS
########################################
MAIN
########################################
DEFINE i SMALLINT,
dbstat INTEGER
LET dbstat = -3720
INITIALIZE ga_dsplymsg TO NULL
LET ga_dsplymsg[1] = "The record has not been inserted into the"
LET ga_dsplymsg[2] = " database due to an error: ",
dbstat USING "-<<<<<<<<<<<"
CALL message_window(3,4)
END MAIN


#######################################
FUNCTION message_window(x,y)
#######################################
DEFINE numrows SMALLINT,
x,y SMALLINT,
rownum,i SMALLINT,
answer CHAR(1),
Array_sz SMALLINT -- size of the ga_dsplymsg array
LET array_sz = 5
LET numrows = 4 -- * numrows value:
-- * 1 (for the window header)
-- * 1 (for the window border)
-- * 1 (for the empty line before
-- * the first line of message)
-- * 1 (for the empty line after
-- * the last line of message)
FOR i = 1 TO array_sz
IF ga_dsplymsg[i] IS NOT NULL THEN
LET numrows = numrows + 1
END IF
END FOR
OPEN WINDOW w_msg AT x, y
WITH numrows ROWS, 52 COLUMNS
ATTRIBUTE (BORDER, PROMPT LINE LAST)
#
DISPLAY " APPLICATION MESSAGE" AT 1, 17
ATTRIBUTE (REVERSE, BLUE)
LET rownum = 3 -- * start text display at third line
FOR i = 1 TO array_sz
IF ga_dsplymsg[i] IS NOT NULL THEN
DISPLAY ga_dsplymsg[i] CLIPPED AT rownum, 2
LET rownum = rownum + 1
END IF
END FOR
#
PROMPT " Press RETURN to continue." FOR answer
CLOSE WINDOW w_msg
CALL init_msgs()
END FUNCTION -- message_window --
########################################
FUNCTION init_msgs()
########################################
DEFINE i SMALLINT
FOR i = 1 TO 5
LET ga_dsplymsg[i] = NULL
END FOR
END FUNCTION
-- init_msgs --
######################################## -EOF-


On Mon, Dec 17, 2012 at 1:26 AM, Mike Aubury <[email protected]> wrote:

> As I said before - I'd need to see a small example 4gl of the prompt not
> working so I can reproduce it here ?
>
> Can you do something like
>
> MAIN
> DEFINE ..
> OPEN WINDOW ...
> PROMPT ..
> END MAIN
>
> It might be something to do with the PROMPT LINE - so you might need to
> set that too.
> It might also be something to do with the ATTRIBUTE on any OPTIONS
> statement, or the PROMPT itself
>
>
>
> On 17 December 2012 04:35, Horacio Villanueva <[email protected]> wrote:
>
>> Hi Guys,
>>
>> When I set the environment export A4GL_SIMPLE_GRAPHICS=y The Border
>> looks great, but I cant See the cuestion on PROMPT.
>>
>>
>> I'm Attaching a screenshoot on GTK when the PROMPT looks good and
>> screenshoot on TUI when the PROMPT cant be seeing ...
>>
>>
>>
>>
>>
>>
>> ---------- Forwarded message ----------
>> From: klrumpf <[email protected]>
>> Date: Sat, Dec 15, 2012 at 3:02 AM
>> Subject: Re: [Aubit4gl-discuss] aubit4GL PROMPT doesn't see on text mode
>> To: Horacio Villanueva <[email protected]>
>> Cc: [email protected]
>>
>>
>>  Wasn't there an env var
>>
>> export A4GL_SIMPLE_GRAPHICS=Y
>>
>> to set the borders?
>>
>> Karl-L. [email protected]
>> Málaga, Spain
>>
>>
>> On 15/12/12 00:19, Horacio Villanueva wrote:
>>
>> Hi, thanks for the answer...
>> Unfortunate I don't have a Working Sample on TUI mode...
>>
>>  When I use BORDER this is what i see...
>>
>>   lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk
>>   x
>>                                   x
>>
>> x
>> x
>>
>> x
>> x
>>
>> x
>> x
>>
>> x
>> x
>>
>> x
>> x
>>   mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj
>>
>>
>> When I use PROMP I don't see anything...
>>
>>
>>
>>
>>
>> On Fri, Dec 14, 2012 at 1:26 PM, Mike Aubury <[email protected]>wrote:
>>
>>> I would need to see an example it normally works in tui mode
>>>  On 14 Dec 2012 18:21, "Horacio Villanueva" <[email protected]> wrote:
>>>
>>>>  Hi Guys,
>>>>
>>>> on Aubit4gl cant "see" questions text from prompts...
>>>>
>>>> I know that the PROMPT is there because the form is expecting an
>>>> answer, but don´t see the text-question itself.
>>>>
>>>> I think this is an environment stuff, because on "graphical" mode I can
>>>> see it great...
>>>>
>>>> If a set
>>>> export A4GL_UI=HL_GTK
>>>> Works OK
>>>>
>>>> But with this
>>>> export A4GL_UI=TUI
>>>> Doesn't work
>>>>
>>>> The issue is that i can´t work with GTK because the clients will
>>>> connect through VT100 Terminal that works only on text mode.
>>>>
>>>> Also have a trouble with "borders"; they look "Ugly" something like
>>>> this: lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk
>>>> instead:
>>>> +-------------------------------------------------------------------------------------+
>>>>
>>>>
>>>> -hope you can guide me on the right path to solve this //thanks//
>>>>
>>>>
>>>>  So this is my environment.
>>>>
>>>> OS:
>>>> Linux linux 2.6.37.6-24-default #1 SMP 2012-10-18 22:36:08 +0200 i686
>>>> i686 i386 GNU/Linux
>>>>
>>>> # cat /etc/SuSE-release
>>>> openSUSE 11.4 (i586)
>>>> VERSION = 11.4
>>>> CODENAME = Celadon
>>>>
>>>>
>>>> # env | grep TERM
>>>> TERM=linux
>>>>
>>>> #env | grep CTYPE
>>>> LC_CTYPE=en_US.UTF-8
>>>>
>>>> ----
>>>> export AUBITDIR=/opt/aubit4gl
>>>> export AUBITDIR_SRC=/opt/aubit4glsrc
>>>> export AWK=gawk
>>>> #
>>>> export PATH=$PATH:$AUBITDIR/bin
>>>> export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$AUBITDIR/lib
>>>> #
>>>> export A4GL_PRINTSCRKEY=CONTROL-P
>>>> export A4GL_PRINTSCRFILE=+$DBSCREENOUT
>>>> export ODDOPTIONS=N
>>>> #
>>>> #
>>>> export A4GL_UI=TUI
>>>> #
>>>> ## Conexion a MySQL
>>>> export LEXDIALECT=INFORMIX
>>>> export A4GL_SQLTYPE=mysql
>>>> export A4GL_LEXTYPE=C
>>>> ## Usuario y password de acceso
>>>> export A4GL_SQLACL=/etc/Aubit_to_MySQL
>>>> # -EOF-
>>>> ----
>>>>
>>>> --
>>>> Salu2
>>>> Un cerebro holgazán es la morada del demonio, y ese demonio se llama
>>>> Alzheimer
>>>>
>>>>
>>>> ------------------------------------------------------------------------------
>>>> LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
>>>> Remotely access PCs and mobile devices and provide instant support
>>>> Improve your efficiency, and focus on delivering more value-add services
>>>> Discover what IT Professionals Know. Rescue delivers
>>>> http://p.sf.net/sfu/logmein_12329d2d
>>>> _______________________________________________
>>>> Aubit4gl-discuss mailing list
>>>> [email protected]
>>>> https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss
>>>>
>>>>
>>
>>
>> --
>> Salu2
>> Un cerebro holgazán es la morada del demonio, y ese demonio se llama
>> Alzheimer
>>
>>
>> ------------------------------------------------------------------------------
>> LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
>> Remotely access PCs and mobile devices and provide instant support
>> Improve your efficiency, and focus on delivering more value-add services
>> Discover what IT Professionals Know. Rescue delivershttp://p.sf.net/sfu/logmein_12329d2d
>>
>>
>>
>> _______________________________________________
>> Aubit4gl-discuss mailing [email protected]://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss
>>
>>
>>
>>
>> --
>> Salu2
>> Un cerebro holgazán es la morada del demonio, y ese demonio se llama
>> Alzheimer
>>
>>
>> ------------------------------------------------------------------------------
>> LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
>> Remotely access PCs and mobile devices and provide instant support
>> Improve your efficiency, and focus on delivering more value-add services
>> Discover what IT Professionals Know. Rescue delivers
>> http://p.sf.net/sfu/logmein_12329d2d
>> _______________________________________________
>> Aubit4gl-discuss mailing list
>> [email protected]
>> https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss
>>
>>
>


-- 
Salu2
Un cerebro holgazán es la morada del demonio, y ese demonio se llama
Alzheimer

------------------------------------------------------------------------------
LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
Remotely access PCs and mobile devices and provide instant support
Improve your efficiency, and focus on delivering more value-add services
Discover what IT Professionals Know. Rescue delivers
http://p.sf.net/sfu/logmein_12329d2d

_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss