REVMEDIA FKB Articles - AREV, OI, REV G, jREV, JCDC, LIVEWATER,ADVANCED REVELATION, OPENINSIGHT, REVELATION G

RevMedia FKB

Document	V4I6A1
Title	Reader's Clinic - LCEdit and SCRIBE
Keywords	LCEDIT SCRIBE
Text	Charles Sherbow recently asked "When you edit a DOS table normally it is all on one line Then you press Shift+F7 and the table is vertical in nature When you leave the table and come back it is still in the state that you left it How do you check to see if a table is in the "vertical" or "horizontal" mode? Where are the variables?" Scattered throughout memory are a number of LABELLED common areas maintained by the system for things such as indexing and editing One of these is called LCEDIT and takes five parameters as follows /LCEdit/ LastPopupRow Unknown EditCount RowsEdited ScribeState LastPopupRow The row of the editor softkeys popup last selected Unknown As yet unknown EditCount How many copies of the editor have been called currently (equal to the number of times EDIT occurs on the return stack Note that this is not how many times EDIT appears on the program stack it is loaded only once) RowsEdited A field mark delimited array identifying the rows which have been edited in the format TableRow E G VOCLISTTABLES ScribeState A Char(247) delimited array of information about each of the editing sessions identified in RowsEdited Within each element individual characteristics are delimited by @RMs The array values are as follows (Using <> to indicate @RMs not @Fms) < 1 > Apparently unused < 2 > A flag indicating whether the delimiter being used for editing is a field mark or record mark (0 or null) or Carriage Return/Line Feed (1) < 3 > Row position of the line at the top of the current screen < 4 > Row position of the CURSOR < 5 > Column position of the character at the start of the CURRENT line < 6 > Column position of the CURSOR < 7 > A flag indicating whether the CURSOR is in destructive (0) or non destructive mode (1) < 8 > A flag indicating whether Insert (1) or Overwrite (0) is enabled < 9 > String last searched for WITH a Ctrl F/Ctrl R < 10 > Replacement string for Ctrl R < 11 > Apparently unused < 12 > Row position at start of block < 13 > Row position at end of block Thus to answer Charles' query one could use a code segment such as : Common /LCEdit/ LastPopupRow Unknown EditCount RowsEdited ScribeState Locate Table:"*":Row In RowsEdited USING @Fm SETTING Pos Then RowInfo = Field(ScribeState Char(247) Pos) RowIsDosFmt = Field(RowInfo @Rm 2) If RowIsDosFmt Then Call Msg("Yup") Else Call Msg("Nope") End Else Print Char(7) : End (Volume 4 Issue 6 Pages 4 5)

[revmedia/copyrigh.htm]

Page last modified: 31/01/03