DEF TEMP-TABLE tt FIELD f1 AS integer
                  field f2 as char.

def var i as integer.
def var str as char.
def buffer xtt for tt.

repeat i = 1 to 20:
   create tt. tt.f1 = i. tt.f2 = "test" + string(i).
end.

DEFINE QUERY q FOR tt SCROLLING.
OPEN QUERY q FOR EACH tt.

DEF BROWSE brws QUERY q 
DISPLAY 
     tt.f1 width-chars 10
     tt.f2 width-chars 10
     enable tt.f2
     WITH size 30 by 10 TITLE "Static browse" separators.

DEF FRAME fr brws skip str
   WITH TITLE "Frame" SIZE 70 BY 20 NO-LABELS.
   
def var cnt as integer.
on "row-entry" of browse brws do:
  cnt = cnt + 1.
  message "row-entry" cnt.  
end.       
   
ENABLE ALL WITH FRAME fr.

message "test 1: click on the bottom fill-in, click on the cell with '5'".
message "test 2: click on the bottom fill-in, click on the cell with 'test5'".

WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW.