Re: Fwd: aubit4GL PROMPT doesn't see on text mode
Mike Aubury <[email protected]>
| Newsgroups | gmane.comp.lang.4gl.aubit.general |
|---|---|
| Message-ID | <CAGAq4WHNxtJF3Ljoi=Ds1OjdOCVGLF4m+ATTgdxb49_SsdkPxQ@mail.gmail.com> |
That seems to work ok for me :
┌────────────────────────────────────────────────────┐
│ APPLICATION MESSAGE │
│ │
│ The record has not been inserted into the │
│ database due to an error: -3720 │
│ │
│ Press RETURN to continue. │
└────────────────────────────────────────────────────┘
(formatting might not come across in the email - but it is correct )
It might be a termcap/terminfo/terminal emulator issue still - try using
PROMPT " Press RETURN to continue." ATTRIBUTE (blue,reverse) FOR answer
(as you know blue and reverse seem to work) - and see if that displays
If that doesn't help - try setting the PROMPT LINE explicitly -
OPEN WINDOW w_msg AT x, y
WITH numrows ROWS, 52 COLUMNS
ATTRIBUTE (BORDER, PROMPT LINE 6)
Once we know which is the issue - we can look at whats going on - and why
it works for me - and not you...
On 17 December 2012 17:14, Horacio Villanueva <[email protected]> wrote:
> 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
>
>
------------------------------------------------------------------------------
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