I tried following but it doesn't work. :(
Code: Select all
)ED foo[3]
Code: Select all
)ED foo[3]
]locate abc
∇ #.myprog (1 found)
[55] abc
∧
]locate abc -name
∇ #.myprog (1 found)
#.myprog[55] abc
∧
Code: Select all
∇foo
[0] foo
[1] 1
[2] 2
[3] 3
[4] ∇
∇OpenFooOnLine
[0] OpenFooOnLine lineNumber;cmd
[1] :If 0=lineNumber
[2] cmd←'⎕ED ''foo'''
[3] :Else
[4] cmd←'⎕ED ''foo[',(⍕lineNumber),']'''
[5] :EndIf
[6] ⎕←cmd
[7]
[8] ⍎cmd
[9] ∇
OpenFooOnLine 0 - works fine
⎕ED 'foo'
OpenFooOnLine 1 - doesn't :(
⎕ED 'foo[1]'
Code: Select all
⎕NQ '⎕SE' 'KeyPress' 'a'
foo[25]
nikll wrote:How can I to do the same for Alt+"a" , if it possible?
Thanks
:)
⎕NQ'⎕SE' 'KeyPress' '' 0 65 4
Code: Select all
⎕NQ'⎕SE' 'KeyPress' '' 0 65 4
翿
Code: Select all
⎕NQ'⎕SE' 'KeyPress' 'UD'
KEY CODE UNRECOGNISED
⎕NQ'⎕SE' 'KeyPress' ''
翿
⎕fx'foo' '1 1 1 1' '2 2 9 2' '3 3 3 3' ⍝ Create a function to work on
0 0 ⍴(1 2 5/'ED' 'DC' 'RC' )⎕pfkey 33 ⍝ 2 Down Cursors, 5 Right Cursors
{⎕nq '⎕se' 'KeyPress' ⍵}¨'foo',⊂'F33'