*-- This value contains the width of the * X-Button in Foxel. #DEFINE ccXButton 2 *-- Activate additional handler ON KEY LABEL LEFTMOUSE DO CheckShutDown *-- Check whether X-Button was clicked. We wait * until the user released the button. PROCEDURE CheckShutDown Private lcWindow lcWindow = MWindow() IF MROW(lcWindow) == -1 AND ; MCOL(lcWindow) > WCOL(lcWindow) - ccXButton DO WHILE MDOWN() ENDDO IF MROW(lcWIndow) == -1 AND ; MCOL(lcWindow) > WCOL(lcWindow) - ccXButton QUIT ENDIF ENDIF RETURNChristof