|
|
Post by mueh on Aug 18, 2019 7:28:09 GMT -5
George:
In FM (CmdHome) works perfect .
In Edit it gives Unknown line cmd "MI :DASD" when there was a TAG :DASD on that line .
with (LineNo) there is no Problem with Tag on the line .
Think it's caused by addtional Code in
METHOD krCmdHome()
'----- Get to nearest command area
LOCAL ix AS LONG
IF IsCData OR IsCLinN THEN ' In a line area somewhere
ix = sGetIX(CRow) ' Get IX of real DataLine
IF ix = 0 THEN MExitMeth ' Bail out if below last line
LLCtlS(ix) = LTRIM$(LLCtlG(ix)) ' Trim it
sPrint (BYCOPY LEFT$(LLCtlG(ix), ENV.LinNoSize), $$LnoHi, CRow, 1) ' ReDisplay it
me.TTblAdd(ix, TRIM$(LLCtlG(ix))) ' Update touched items
me.CsrCol = 1 ' Go back to LCmd area
ELSE ' Somewhere else
pCommand = LTRIM$(pCommand) ' Trim command
me.WindowCmd ' Re-do the command line
SetCmd ' Set the cursor
END IF
END METHOD
METHOD krLineNo()
'---------- LineNo key
LOCAL ix, i AS LONG
CsrLinDX = 0 ' Reset possible hidden DX line location
'----- Only if in an eligible line
IF IsCData OR IsCLinN THEN '
ix = sGetIX(CRow) ' Get IX of line the cursor is on
IF ix = 0 OR ix = -3 THEN sDoBeep: EXIT METHOD ' Below last line or Hex dash line? Bail out
me.CsrCol = 1 ' Move cursor back to col 1
ELSE '
sDoBeep ' Beep
END IF '
END METHOD
I think it should do only me.CsrCol = 1 as it's dine in krLineNo
Thanks
|
|
|
|
Post by George on Aug 18, 2019 12:33:32 GMT -5
MUEH: It fails both with (CmdHome) and with (LineNo), the extra stuff is not the cause.
The problem is that Edit line commands (even macros) are not allowed operands. So MI :DASD is treated as a line command name and of course fails.
No, this is not going to change.
George
|
|
|
|
Post by mueh on Aug 19, 2019 6:57:25 GMT -5
George: There is some missunderstanding .
I know that Line cmd's only accept a Numeric value .
The Problem is after you Position Cursor to Line Cmd area with (CmdHome) and you type in the Macro Name that
the :Tag or .Label txt in Lcmd is not saved and blanked before the Macro Name 1'st char shows up .
If Cursor is positioned with LMB or (LineNO) only the Macro Name is in Line cmd area and the Tag is remembered .
i'm shure it has to do with the additional Code .
Hope this clarifies Problem .
Thanks
|
|
|
|
Post by George on Aug 19, 2019 12:09:07 GMT -5
mueh: Yes, I'm still confused. I have RMB set to (CmdHome)(SetInsert)[MI ]
If :DASD is in the line cmd field, and I then RMB on that line, I get 'MI :DASD' in the line area, which of course fails.
What is it you do want? Just MI in the line command? in which case do as Robert suggests and do an (EraseEOL) first.
Help!
George
|
|
|
|
Post by mueh on Aug 19, 2019 12:27:28 GMT -5
George:Thanks for your Test.
Replace now the (CmdHome) with (LineNo) and you will see that MI without :DASD is set as it should .
I want the possibility to use ONE Key to execute the Macro in EDIT/FM Prinary CMD/Line Cmd regardless if there is an Label or Tag on that line .
EraseEOL will of course clear it but if i need a Parameter for Primary cmd Macro it is also cleared .
Thanks for your Patience .
|
|
|
|
Post by George on Aug 20, 2019 10:39:07 GMT -5
OK, simple solution.
(CmdHome)(SetInsert)[MI ]
On the command line it inserts a few extra blanks before the operand(s), which doesn't hurt.
On the Edit Line Command area it pushes any existing data out since the field is max 8 characters
On the FM Line command any existing data is pushed right since the field is scrollable, so the macro better be prepared to handle that.
George
|
|
|
|
Post by mueh on Aug 20, 2019 12:02:44 GMT -5
George: Looked simple but it doesn't work when LINE Number field is 6 Bytes . if MI followed by 6 blanks is used  remains in Line cmd and 2 blanks are inserted in Data . Sometimes i also want to pass a numeric value as Src_Op . Could you be so kind and sent me an exe with the new Code commented out METHOD krCmdHome()
'----- Get to nearest command area
LOCAL ix AS LONG
IF IsCData OR IsCLinN THEN ' In a line area somewhere
ix = sGetIX(CRow) ' Get IX of real DataLine
' IF ix = 0 THEN MExitMeth ' Bail out if below last line
' LLCtlS(ix) = LTRIM$(LLCtlG(ix)) ' Trim it
' sPrint (BYCOPY LEFT$(LLCtlG(ix), ENV.LinNoSize), $$LnoHi, CRow, 1) ' ReDisplay it
' me.TTblAdd(ix, TRIM$(LLCtlG(ix))) ' Update touched items
IF ix = 0 OR ix = -3 THEN sDoBeep: EXIT METHOD ' Below last line or Hex dash line? Bail out
me.CsrCol = 1 ' Go back to LCmd area
ELSE ' Somewhere else
pCommand = LTRIM$(pCommand) ' Trim command
me.WindowCmd ' Re-do the command line
SetCmd ' Set the cursor
END IF
END METHOD
I will test it if it solves all Problems . Thanks |
|
|
|
Post by George on Aug 20, 2019 14:46:00 GMT -5
I removed those lines, linenum length set to 6, RMB set to "(CmdHome)(SetInsert)[MI ]" then if :abc is in the linenum field, you still end up with "MI :ab", still not what you want.
We have to re-think just what it is you want. It seems sometimes you want MI inserted, sometimes as a replacement, can't have it both ways.
George
|
|
|
|
Post by mueh on Aug 21, 2019 6:55:17 GMT -5
George: I hope you ddidn't make and error in recreating the Problem .
Did you realy set the Label by entering :DASD + ENTER .
If you would have entered :DASD without enter and then hit RMB of Course you get MI :DASD as Line cmd .
To see the Problem more clearly define 2 Keys one for (LineNO) and another for (CmdHome) .
press the key on a line with a label :DASD
Now in both cases the CSR is in the Line Cmd area with the Label txt :DASD still in the line Cmd .
Typing now the Macro Name mi on Keyboard you will see the difference .
Either mi or miASD Shows up .
What happens if you place for a test the above CmdHome Code in krLineNo ?
if it doesn't fail then it has to do with the Name otherwise it's complicated .
I don't find it unusual to execute the same macro as Primary or Line Macro by ONE Key .
Thanks
|
|
|
|
Post by George on Aug 21, 2019 11:24:37 GMT -5
mueh: OK, I deleted the extraneous lines in CmdHome and tried again making sure the :abcd label was already established.
It now works as I think you expect. You were rightt, I wasn't hitting Enter before doing the RMB.
Next release.
George
|
|
remains in Line cmd and 2 blanks are inserted in Data .