Fwd: Fwd: aubit4GL PROMPT doesn't see on text mode
Horacio Villanueva <[email protected]>
| Newsgroups | gmane.comp.lang.4gl.aubit.general |
|---|---|
| Message-ID | <CA+-DnDGZbVKB16JjnhAXOEFhzOZ2sPVgjGxNeq5RNgFK4CP1ig@mail.gmail.com> |
Well, I'm still stuck on this, the suggestions doesn't work... Any ideas how to solve this? -Regards- ---------- Forwarded message ---------- From: Mike Aubury <[email protected]> Date: Mon, Dec 17, 2012 at 11:24 AM Subject: Re: [Aubit4gl-discuss] Fwd: aubit4GL PROMPT doesn't see on text mode To: Horacio Villanueva <[email protected]> Cc: Aubit Discussion <[email protected]> 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 > > -- 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