Controlling macro from open dialog

[Matthew]

Please, can you tell me how I can scroll the text returned from the function, in the read only edit, rather than simply replacing it?

Function Dialog3

Code:

Copy      Help

/Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages


;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 223 135 "Dialog"
;3 Button 0x54032000 0x0 6 4 48 14 "Start"
;4 Button 0x54032000 0x0 6 22 48 14 "Stop"
;5 Edit 0x54030080 0x200 72 58 34 16 ""
;6 Static 0x54000000 0x0 6 58 60 16 "Number of times to loop"
;7 Edit 0x54030080 0x200 112 22 96 14 ""
;8 Static 0x54000000 0x0 6 76 60 14 "Success Message"
;9 Edit 0x54200844 0x20000 72 76 96 48 ""
;2 Button 0x54030000 0x4 6 42 48 14 "Exit"
;END DIALOG
;DIALOG EDITOR: "" 0x2030408 "" "" "" ""

str controls = "5 7 9"
str e5 e7 e9
if(!ShowDialog("Dialog3" &Dialog3 &controls)) ret
ret
;messages
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
,case WM_APP
,SetDlgItemText hDlg 9 F"{lParam%%s}"
/EnableWindow id(3 hDlg) 1; EnableWindow id(4 hDlg) 0
ret
;messages2
sel wParam
,case 3
,SetDlgItemText hDlg 9 ""
,EnableWindow id(3 hDlg) 0; EnableWindow id(4 hDlg) 1
,mac "Loop" "" hDlg _s.getwintext(id(5 hDlg))
,/e7=message
,
,case 4
,shutdown -6 0 "Loop"
,EnableWindow id(3 hDlg) 1; EnableWindow id(4 hDlg) 0
,
,case IDCANCEL
ret 1

;BEGIN MENU
;>&File
,;&Open : 101 0 0 Co
,;-
,;>&Recent
,,;Empty : 102 0 3
,,;<
,;<
;>&Edit
,;&Undo : 106 0 1 Cz
,;Enable Undo : 110
,;Disable Undo : 111
,;Cu&t : 103 0 0 Cx
,;-
,;Select &All : 104 0 0 Ca
,;<
;&Help : 105 0
;END MENU

Function Loop

Code:

Copy      Help

;;function that accepts argumnents from dialog and returns success message to dialog

function hDlg e5

int i
for i 0 e5
,wait 1
,out i
,SendMessage hDlg WM_APP 1 "success!"

Thank you kindly
Matt