Clarion Community Help

TakeWindowEvent, DERIVED, PROC

The TakeWindowEvent method processes all non-field events for the window and returns a value indicating whether window ACCEPT loop processing is complete and should stop. TakeWindowEvent returns Level:Benign to indicate processing of this event should continue normally; it returns Level:Notify to indicate processing is completed for this event and the ACCEPT loop should CYCLE; it returns Level:Fatal to indicate the event could not be processed and the ACCEPT loop should BREAK.

Implementation:

TakeWindowEvent implements standard handling of EVENT:OpenWindow Open method), EVENT:LoseFocus, EVENT:GainFocus (Reset method), and EVENT:Sized (WindowResizeClass.Resize method). Return values are declared in ABERROR.INC.

The TakeEvent method calls the TakeWindowEvent method.

Return Data Type:     BYTE

Example:

MyWindowManager.TakeEvent PROCEDURE

RVal BYTE(Level:Benign)

I USHORT,AUTO

CODE

IF ~FIELD()

 RVal = SELF.TakeWindowEvent()

 IF RVal THEN RETURN RVal.

END

CASE EVENT()

 OF EVENT:Accepted; RVal = SELF.TakeAccepted()

 OF EVENT:Rejected; RVal = SELF.TakeRejected()

 OF EVENT:Selected; RVal = SELF.TakeSelected()

 OF EVENT:NewSelection;RVal = SELF.TakeNewSelection()

 OF EVENT:Completed; RVal = SELF.TakeCompleted()

 OF EVENT:CloseWindow OROF EVENT:CloseDown

 RVal = SELF.TakeCloseEvent()

END

IF RVal THEN RETURN RVal.

IF FIELD()

 RVal = SELF.TakeFieldEvent()

END

RETURN Rval

See Also:     WindowManager.TakeEvent