Code
Repeat
id=PeekEvent()
...
If id=$401 Then
Select EventSource()
Case btn_go
ActivateGadget play_list
tmp_n$ = GadgetItemText(play_list,SelectedGadgetItem(play_list))
Gosub get_url
SetGadgetText text_field_url,tmp_r$
End Select
End If
FlushEvents()
...
Forever
...
.get_url
For Radio.TRadio = Each TRadio
If Radio\name = tmp_n$ Then tmp_r$ = Radio\url : Return
Next
Return
когда нажимается btn_go, с помощью Gosub get_url название активного итема в play_list(tmp_n$) конвертируется в url(результат - tmp_r$), и url записывается в текст text_field_url
проблема в том, что при нажатии на кнопку ничего не происходит.
в дебаге выяснилось, что он пропускает эту часть кода:
Code
Select EventSource()
Case btn_go
ActivateGadget play_list
tmp_n$ = GadgetItemText(play_list,SelectedGadgetItem(play_list))
Gosub get_url
SetGadgetText text_field_url,tmp_r$
End Select
почему select игнорируется?