🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: bit.listserv.xedit-l
Article #689

Cursor control in Xedit profile screen

#689
From: Barry Walton
Date: Thu, 22 Apr 1993 15:19
93 lines
3728 bytes
I am trying to write an XEDIT profile (called CTEXT XEDIT) to simply
display a help file for users in a pleasing format.  I want to have
a command line, as well as define some PF keys.  I have been able to
do this, but with one problem.  When a user types something in the
command line area, the cursor flies over the the far right end of the
screen (on the same line).  I have tried putting the line CURSOR SCREEN
2 7 in the XEDIT profile, to no avail.  Does anybody know how to
prevent that from happening ?  Is there a good basic guide to writing
XEDIT profiles to control screen (the IBM manuals are very cryptic).

Here is the profile file :

*************************************************************
**                                                         **
**     CTEXT    XEDIT ===> B. WALTON - ACS  ===> 1991      **
**                                                         **
*************************************************************
SET CMDLINE TOP
SET SCALE OFF
SET MSGMODE ON
SET MSGLINE ON 3
SET PREFIX OFF
SET ENTER SOS TABF
SET STAY ON
SET TABS 1
SET WRAP ON
SET TRUNC 80
SET SPILL WORD
SET PACK OFF
SET ARBCHAR ON .
SET CURLINE ON 3
SET VERIFY OFF
SET NULLS ON
SET CASE MIXED IGNORE
SET SYNONYM ON
SET PF 1 DOWN 9
SET PF 2 UP 9
SET PF 3 QUIT
SET PF 4 TOP
SET PF 5 BOTTOM
SET PF 6 EQ
SET PF 7 UP 18
SET PF 8 DOWN 18
SET PF 9 QQUIT
SET PF 10 LEFT 20
SET PF 11 RIGHT 20
SET PF 12 EQ
SET PF 13
SET PF 14
SET PF 15
SET PF 16
SET PF 17
SET PF 18
SET PF 19
SET PF 20
SET PF 21
SET PF 22
SET PF 23
SET PF 24
*************************************************************
TRANSFER SCREEN
&READ VARS &OPT &LINE
&BEGSTACK 2
       Keys :  PF3 = Quit  PF4 = Top  PF5 = Bottom  PF7 = Up  PF8 = Down
===============================================================================
&READ STRING &TEXT
SET RESERVED &LINE WHITE HIGH &TEXT
&READ STRING &TEXT
SET RESERVED -2 BLUE  HIGH &TEXT
SET COLOR CURLINE YELLOW
SET COLOR TOFEOF  YELLOW
SET COLOR FILEAREA BLUE
SET COLOR IDLINE RED
SET COLOR MSGLINE WHITE HIGH
SET COLOR STATAREA GREEN
SET STAY ON
CURSOR SCREEN 2 7

-------------- End of program ----------------

Another thing I'd like to do is prevent the user from typing anything
in the file area.  I know about the command SET RESERVED, but that works
only on a line at a time (at least as far as I can see).  How can I
'SET RESERVED' the entire file area?  What I want to happen is that
the cursor can be moved only to the command line when the <enter> key
is pressed.  Any ideas on any of this ?

Thanks in advance.

Barry Walton   BITNET :   BWALTON @ MILLERSV
               Internet : bwalton@mu2.millersv.edu

Millersville University of PA
Technical Details
Message-ID: <XEDIT-L%93042215501119@RUTVM1.RUTGERS.EDU>
Path: arc1-ca.pugleaf.net!gmd.de!newsserver.jvnc.net!howland.reston.ans.net!zaphod.mps.ohio-state.edu!uwm.edu!psuvax1!psuvm!auvm!MU2.MILLERSV.EDU!BWALTON

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10c92b,89ad2692cc1a6fcb,start
X-Google-Attributes: gid10c92b,public
X-Google-ArrivalTime: 1993-04-22 14:02:52 PST
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Path: arc1-ca.pugleaf.net!gmd.de!newsserver.jvnc.net!howland.reston.ans.net!zaphod.mps.ohio-state.edu!uwm.edu!psuvax1!psuvm!auvm!MU2.MILLERSV.EDU!BWALTON
Return-Path: <@AUVM.AMERICAN.EDU,@UGA.CC.UGA.EDU:owner-xedit-l@UGA.CC.UGA.EDU>
Return-Path: <@UGA.CC.UGA.EDU,
             @RUTVM1.RUTGERS.EDU:owner-xedit-l@RUTVM1.RUTGERS.EDU>
Message-ID: <XEDIT-L%93042215501119@RUTVM1.RUTGERS.EDU>
Newsgroups: bit.listserv.xedit-l
Date:         Thu, 22 Apr 1993 15:19:00 ET
Sender:       VM System Editor List <XEDIT-L@UGA.BITNET>
From:         Barry Walton <BWALTON@MU2.MILLERSV.EDU>
Organization: Millersville University
Subject:      Cursor control in Xedit profile screen
Comments: To: XEDIT Discussion List <xedit-l%rutvm1.bitnet@MU2.MILLERSV.EDU>
Lines: 93