I know that from time to time things go wacko and such is the case with A5. Out of the blue my debugger stopped working, it loads but everything stops for about 2 minutes (as though the debugger is actually working) and then everything appears okey again. SO....... I reinstalled A5V4 and loaded the patch..... now debugger will load but does not appear. What can I do to make this nice feature work again? Byi the way I have not done anything new to my system for about 6 months and this started happening this week?
Another strange thing I was using a code in the onkey event of a form and it was working beautifully until this week as well. This is the code..it allowed the user to use the arrow keys on a multi state button to move from choice to choice and the enter key use to activate the action below the button. Now the button is activated, (button is pushed) but nothing happens) Any clues?
dim val as c
dim txt as c
dim shared num as n
txt=""
if this.active()="MULSTBTN1" then
if num>1.or.substr(Mulstbtn1.choice.list[num].text,1,1)=chr(169) then
Mulstbtn1.choice.list[num].text=substr(Mulstbtn1.choice.list[num].text,2,len(Mulstbtn1.choice.list[num].text))
end if
select
case a_user.key.value="{up}".and.a_user.key.event="down"
num=num-1
case a_user.key.value="{down}".and.a_user.key.event="down"
num=num+1
case a_user.key.value="{Right}".and.a_user.key.event="down"
num=num+11
case a_user.key.value="{left}".and.a_user.key.event="down".and.between(num,12,22)
num=num-11
end select
if num>22 then
num=1
end if
if num
Another strange thing I was using a code in the onkey event of a form and it was working beautifully until this week as well. This is the code..it allowed the user to use the arrow keys on a multi state button to move from choice to choice and the enter key use to activate the action below the button. Now the button is activated, (button is pushed) but nothing happens) Any clues?
dim val as c
dim txt as c
dim shared num as n
txt=""
if this.active()="MULSTBTN1" then
if num>1.or.substr(Mulstbtn1.choice.list[num].text,1,1)=chr(169) then
Mulstbtn1.choice.list[num].text=substr(Mulstbtn1.choice.list[num].text,2,len(Mulstbtn1.choice.list[num].text))
end if
select
case a_user.key.value="{up}".and.a_user.key.event="down"
num=num-1
case a_user.key.value="{down}".and.a_user.key.event="down"
num=num+1
case a_user.key.value="{Right}".and.a_user.key.event="down"
num=num+11
case a_user.key.value="{left}".and.a_user.key.event="down".and.between(num,12,22)
num=num-11
end select
if num>22 then
num=1
end if
if num
Comment