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

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

repeat i = 1 to 100:
   create tt. tt.f1 = i. tt.f2 = string(10 * i + i). tt.f3 = string(100 + 10 * i + 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 20 
     tt.f3 width-chars 20
     enable tt.f2 tt.f3
     WITH size 60 by 6 TITLE "Static browse" separators.

DEF FRAME fr brws 
   WITH TITLE "Frame" SIZE 70 BY 20 NO-LABELS.
   
   
ENABLE ALL WITH FRAME fr.

def var cnt-leave as integer.
on "row-leave" of browse brws do:
   cnt-leave = cnt-leave + 1.
   message "leave" cnt-leave.
end.


def var cnt-entry as integer.
on "row-entry" of browse brws do:
   cnt-entry = cnt-entry + 1.
   message "entry" cnt-entry.
end.

on "m" anywhere do:
   message "some message" view-as alert-box.
end.

WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW.