DEF TEMP-TABLE tt FIELD f1 AS INTEGER
                  FIELD f2 AS character format "x(20)" 
                  FIELD f3 AS LOGICAL.

def var i as integer.
repeat i = 1 to 100:
   CREATE tt. tt.f1 = i. 
end.

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

DEF BROWSE br QUERY q 
DISPLAY 
     tt.f1 
     tt.f2 
     tt.f3 VIEW-AS TOGGLE-BOX
   WITH size-chars 50 by 10 TITLE "Static browse" separators.

DEF FRAME fr br SKIP(1) 
WITH TITLE "Frame" SIZE 70 BY 15 NO-LABELS three-d.

ENABLE ALL WITH FRAME fr.

on mouse-select-up of br in frame fr
do:
  message "mouse-select-up".
end.

on mouse-select-click of br in frame fr
do:
  /* this handler doesn't work in 4GL if mouse-select-up trigger is present */
  message "mouse-select-click".
end.

on default-action of br in frame fr
do:
  message "default action".
end.

on mouse-select-down of br in frame fr
do:
  message "mouse-select-down".
end.

on mouse-select-dblclick of br in frame fr
do:
  /* this handler doesn't work in 4GL if mouse-select-up trigger is present */
    message "mouse-select-dblclick".
end.


WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW.