browse doesn't scroll

[hopea]

The browse is in program2.p. Program2.p is executed on a trigger in a browse widget field in program1.p. The browse in program2, displays but doesn't scroll.

If I run the same program from a stub that passes the correct variables it works fine.

Thanks!

Here's the code:

/* program1.p */

on "ctrl-h" of t_xatrkd.t_value in browse b1a
do:
if t_xatrkd.t_lu ne ""
run program2.p
(input t_xatrkd.t_key,
input t_xatrkd.t_seq,
input t_xatrkd.t_file,
input t_xatrkd.t_field,
input t_xatrkd.t_value:screen-value in browse b1a,
output v_return_value,
output v_error,
output v_err_msg).
end.

/* program2.p */

define query qlu for pt_mstr
fields (pt_part pt_desc1 pt_desc2)
scrolling.
define browse blu query qlu
display
pt_part
pt_desc1
pt_desc2
with 8 down no-box no-assign.

define frame br1
blu at 1
with side-labels centered width 80 title " Part Number Lookup "
overlay.

on return of browse blu
do:
assign
p_return_value = pt_mstr.pt_part
p_error = false
p_err_msg = "".
apply "window-close" to current-window.
end. /* return */

open query qlu
for each pt_mstr where pt_part ge p_value
no-lock by pt_mstr.pt_part.
enable all with frame br1.
wait-for window-close of current-window.