How to get a list of all AutoText files in the left pane

[win]

@kevin

Thanks for your help, the code has been modified, but it is still not finished.

The following code, the current test is normal! 

Missing 2nd, 3rd, 4th step code 

Macro Add autotext
Trigger CSAa     

Code:

Copy      Help

str s.getsel

str s1 ;;string variable. If need numeric, replace str with int or double.
if(!inp(s1 "Enter AutoText Abbreviation" "" "text")) ret
str s2 ;;string variable. If need numeric, replace str with int or double.
if(!inp(s2 "Enter a phrase description" "" "description")) ret
;
;1.code:Get a list of all AutoText files, The code below is an example, Suppose there are four AutoText files.

QMITEM q; int i
ARRAY(str) atn
rep
,i=qmitem(-i 1|16 &q 1)
,if(i=0) break
,if q.itype=4
,,atn[]=q.name
_s=atn

int iSel=ListDialog(_s)
out atn[iSel]

TO_Fav "TO_Text" 0 0
int w1=act(win("Text" "#32770"))

;2.code:Open atn[iSel] file
;3.code:The cursor is positioned at the end of the last AutoText field

paste s
but id(6 w1) ;;check box 'Multiline'

;4.code:Replace the default Abbreviation with the variable s1, Add a description with the variable s2