Strange behaving inputbox

[BenJamin]

ok i looked at it and i had a similar problem. stilll am but this is how i wrote the code.

Dialog "Name"

Code:

Copy      Help

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



;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 220 132 "Form"
;3 ListBox 0x54230101 0x200 110 8 96 34 ""
;4 Edit 0x54031000 0x200 6 8 96 14 "Input"
;5 Button 0x54032000 0x0 6 62 48 14 "Copy"
;6 Static 0x54000000 0x0 4 82 198 30 ""
;1 Button 0x54030001 0x4 120 116 48 14 "OK"
;2 Button 0x54030000 0x4 170 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2010901 "" ""

str controls = "3 4"
str lb3 e4Inp
if(!ShowDialog("Name" 0 &controls 0 0 0 0 0 100 600)) ret

ret
;messages
sel message
,case WM_INITDIALOG
,DT_Init(hDlg lParam) ;;*
,PostMessage hDlg WM_COMMAND LBN_SELCHANGE<<16|3 id(3 hDlg)
,ret 1
,case WM_DESTROY DT_DeleteData(hDlg) ;;*
,case WM_COMMAND goto messages2
ret 1
;messages2
sel wParam
,case 5
,mac "CopyText"
,case LBN_SELCHANGE<<16|3
,_i=LB_SelectedItem(lParam)
,str sh
,sel _i
,,case 0 sh="help text 0"
,,case 1 sh="help text 1"
,,case 2 sh="help text 2"
,sh.setwintext(id(6 hDlg))
,
,
,
,case IDOK
,DT_Ok hDlg ;;*
,case IDCANCEL DT_Cancel hDlg ;;*
ret 1

[/code]

[/code] Function "CopyText"

Code:

Copy      Help

str s.getwintext(id(4 "Form"))
s.setclip
out s
[/code]