Strange Behaviour on RUNed Routine

[sundale]

To choose an item from a list box is easy.
But, if the list is read from the database, over hundreds of items are listed,
then the listbox is not a good choice.

So, instead, I tried to list them and select.
The idea is successful, but I am facing strange behaviour:

To clear the listed items after selection, I used sub-applicaton.
Using RUN command, I have created sample as bellow.

The behaviour:
1. At first call, it displays correctly.
2. On second call, it duplicate the list
3. On third call, it beocme three times of the list.
4. And continue, even though I clear the screen from the runed program.

Question:
1. Am I done something wrong?
2. How to clear the sub-program's screen
3. A better method of list and selection?
4. Can I kill the RUNned program?


The main routine

    run "testrunsub", #sr
    html "
        <TABLE  border-style:solid; bordercolorlight='#000000' bgcolor='#C0C0C0' cellspacing='1' cellpadding='6'><TR>
            <TD style='background-color: #008000' align='right'><font color='#FFFFFF'>"
            html "Ship Information</font></TD>"
            html "</TD><TD><b>Owner:"
                textbox #owner, owner$, 20
                imagebutton #selowner, "/green_down.gif", [selectOwner]
            html "</TD><TD><b>Captain:</b>"
                textbox #captain, captain$, 5
                imagebutton #selcaptain, "/green_down.gif", [selectCaptain]
            html "</TD><TD>"
                button #accept, "Accept", [acceptAll]
            html "</TD></TR></TABLE>"
    wait

[selectOwner]
    kf$ = "#owner"
    goto [callnow]
    
[selectCaptain]
    kf$ = "#captain"

[callnow]
    render #sr
    k = #sr readit(kf$)
    wait

[acceptAll]
    print "Owner = ";#owner contents$()
    print "Captain = ";#captain contents$()

end

The sub-routine

    global fname$
    wait

[setUnique]
    cls
    html "<script> document.getElementById('"; fname$; "').value = '"; EventKey$; "';</script>"
    wait

function readit(f$)
    fname$ = f$
    own$ = "Rose,Garden"
    cap$ = "Cook,Halock,Underpants"
    if f$="#owner" then d$=own$ else d$=cap$

    cls
    e$ = word$(d$,1,",")
    i = 1
    while e$<>""
        link #getu, e$, [setUnique]
        html "   "
        #getu setkey(e$)
        i = i + 1
        e$ = word$(d$,i,",")
    wend
end function

[Carl Gundel - admin]

Hi,

Use CLS to clear the rendered area of a sub program.

-Carl

[sundale]

Hi Carl,

I did it, in the sub-program two times. At call time, and when the result is set. That is the reason I am reporting this thread.
Are there any command to reset/Restart/Kill the sub-program?

[sundale]

Tried to run the sub-program just before render it, and it clears the problem.
So, it restart() before use. Simply moving the run statement solves the symptom.

But......
Then wondering, whether this will create other problem? Such as memory full?
Is it really restart the sub-program?

I tried just call several times, by clicking imagebutton to call the routine without selection. All calls are remain. If I click the previously rendered item, it set the value and erased - just the portion which has created, and the remaining still showing.

I guess, every call will consume memory.

Now, back to square.
I want one instance, and clean solution.

Please try the code, then you will know what I mean.

Thanks.

[kokenge]

sundale
I changed your code a little to see why it will not clear.
It is strange, I cannot get it to clear either.
I was running in a test project.

projectDir$	= "test_project"
incdir$		= DefaultDir$ + "\projects\" + projectDir$ + "\"
imageDir$	= DefaultDir$ + "\projects\" + projectDir$ + "\image\"
    html "
        <TABLE  border-style:solid; bordercolorlight='#000000' bgcolor='#C0C0C0' cellspacing='1' cellpadding='6'><TR>
            <TD style='background-color: #008000' align='right'><font color='#FFFFFF'>"
            html "Ship Information</font></TD>"
            html "</TD><TD><b>Owner:"
                textbox #owner, owner$, 20
                button #selowner, "Owner", [selectOwner]
            html "</TD><TD><b>Captain:</b>"
                textbox #captain, captain$, 5
                button #selcaptain, "Captain", [selectCaptain]
            html "</TD></TR></TABLE>"
    wait

[selectOwner]
UserInfo$ = "owner";"||";#owner	contents$()
gosub [runit]
wait
    
[selectCaptain]
UserInfo$ = "captain";"||";#captain contents$()
gosub [runit]
wait

[runit]
run incdir$;"testsub.bas", #incdir
render #incdir
RETURN

end

The testsub.bas program

cls  ' does not clear

html "<HR>"
html "<table bgcolor=wheat border=1><tr><td>"
query$	= word$(UserInfo$,1,"||")
what$	= word$(UserInfo$,2,"||")

if query$ = "owner" then
	html "owner = ";what$;"<BR>"
	d$ = "Rose,Garden"
	gosub [readit]
	wait
end if

if query$ = "captain" then
	html "Captain = ";what$
	html "<HR>"
	d$ = "Cook,Halock,Underpants"
	gosub [readit]
	wait
end if
wait

[readit]
 e$ = word$(d$,1,",")
    i = 1
    while e$<>""
        link #getu, e$, [setUnique]
             #getu setkey(e$)
       html "   Time ";time$();" "
        i = i + 1
        e$ = word$(d$,i,",")
    wend
html "</td></tr></tabel>"
return

[sundale]

Hi kokenge,

I have found the solution just for this case.
Put render statement between TABLE and WAIT statement on my main code.

What I have learned are: (need to verify by RB expert, anyway)

1) Every render has it's own instance, so when you call three times,
by calling the routine, it has three instances. Then each instance
is activated or called. Each instance displays the result.

???One thing not sure is why it is not cleared? Because, I clear the screen
using CLS every time the rourine started. Also, when I exit the sub-program.
==> I guess, each instance erases it's own display only.

2) Due to reason 1, we can only use render statement only once.
3) The render statement is effective at the spot it is executed.
So, if you want sub-program display bellow the main contents,
you should place the render statement after the main contents is displayed.
Otherwise, it sub-program contents will be displayed above the main.

I do not know what will happen, if I want to use it several different location.
Usualy the sample program uses it only once, so it is not known until experienced.

Wondering, Carl got time to explain the proper use of RENDER statement in detail.

Thanks,
sundale