The following is the vpiOldDomains module - have all the domain in your project and use that ...
Code: Select all
/*****************************************************************************
Copyright (c) Prolog Development Center A/S
******************************************************************************/
class vpiOldDomains
open core, vpiDomains
domains
handledFlag =
defaultHandling;
handled(gui_native::lResult Result).
% @short Domain is used to specify response from event handling responders.
% @detail <b>defaultHandling</b> means that event should be processed
% with the default VPI handling. <br>
% <b>handled</b>(#Result) means that the event is processed in the event handling responder
% and VPI does not need to process it.<br>
% #Result is returned value, which can be used by the code which calls the event handling
% responder.
% @end
constants
handledFlagNull : handledFlag = handled(gui_api::rNull).
domains
createHandler = (gui_native::lParam CreationData) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Create</a> </b> events.
% @end
domains
destroyHandler = () -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Destroy</a> </b> events.
% @end
domains
getFocusHandler = () -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_GetFocus</a> </b> events.
% @end
domains
loseFocusHandler = () -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_LoseFocus</a> </b> events.
% @end
domains
sizeHandler = (integer Width, integer Height) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Size</a> </b> events.
% @end
domains
moveHandler = (integer X,integer Y) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Move</a> </b> events.
% @end
domains
updateHandler = (rct Rectangle) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Update</a> </b> events.
% @end
domains
eraseBackgroundHandler = () -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_EraseBackground</a> </b> events.
% @end
domains
closeRequestHandler = () -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_CloseRequest</a> </b> events.
% @end
domains
mouseDownHandler = (pnt Point, keyModifier ShiftControlAlt, integer Button) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_MouseDown</a> </b> events.
% @end
domains
mouseUpHandler = (pnt Point, keyModifier ShiftControlAlt, integer Button) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_MouseUp</a> </b> events.
% @end
domains
mouseDblHandler = (pnt Point, keyModifier ShiftControlAlt, integer Button) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_MouseDb</a> </b> events.
% @end
domains
mouseMoveHandler = (pnt Point, keyModifier ShiftControlAlt, integer* Buttons) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_MouseMove</a> </b> events.
% @end
domains
charHandler = (integer Char, keyModifier ShiftControlAlt) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Char</a> </b> events.
% @end
domains
keyDownHandler = (integer Char, keyModifier ShiftControlAlt) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_KeyDow</a> </b> events.
% @end
domains
keyUpHandler = (integer Char, keyModifier ShiftControlAlt) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_KeyUp</a> </b> events.
% @end
domains
vScrollHandler = (scrollCode SCROLLCODE, integer Pos) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_VScroll</a> </b> events.
% @end
domains
hScrollHandler = (scrollCode SCROLLCODE, integer Pos) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b><ae_HScroll></a> </b> events.
% @end
domains
menuItemHandler = (menuTag Menu_TAG) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Menu</a> </b> events.
% @end
domains
initMenuHandler = () -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_InitMenu</a> </b> events.
% @end
domains
controlHandler = (ctlid Ctlid, wintype Wintype, windowHandle Window, controlInfo CONTROL_INFo) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Control</a> </b> events.
% @end
domains
timerHandler = (timerId TimerId) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Time</a> </b> events.
% @end
domains
timerId = handle.
domains
ownerMeasureItemHandler = (unsigned CtlType, ctlid Ctlid, unsigned ItemId, integer Data) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_OwnerMeasureItem</a> </b> events.
% @end
domains
ownerDrawHandler =
(unsigned Ctltype, ctlid CtlId, unsigned ItemID, vpiOwnerDraw::itemaction ItemAction, vpiOwnerDraw::itemstate ItemState, windowHandle Window,
rct RectItem, integer ItemData) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_OwnerDra</a> </b> events.
% @end
domains
ddeHandler = (ddeconv Conv, ddeevent Event) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_DDE</a> </b> events.
% @end
domains
endSessionHandler = (booleanInt AbortPosible) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_EndSession</a> </b> events.
% @end
domains
nativeHandler = (unsigned Message, unsigned WParam, integer LParam) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Native</a> </b> events.
% @end
domains
eventUserHandler = (integer Id, integer Ptr) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_User</a> </b> events.
% @end
domains
endApplicationHandler = (pointer Id) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_EndApplication</a> </b> events.
% @end
domains
stateHandler = (stateInfo STATE_INFo) -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_State</a> </b> events.
% @end
domains
activateHandler = () -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Activate</a> </b> events.
% @end
domains
deactivateHandler = () -> handledFlag.
% @short The predicate domain for declaration of event handling responder predicates,
% which handling the <b> <a>e_Deactivate</a> </b> events.
% @end
end class vpiOldDomains