/* ------------------------------------------- Copyright Mahrouss Logic ------------------------------------------- */ #include /// invalid resource handle, they always start from 1. #define kInvalidRsrc 0 ///////////////////////////////////////////////////////////////////////// CA_EXTERN_C WindowPort* WmCreateWindow(const CharacterTypeUTF8* name, const DWordType rsrcId) { CA_MUST_PASS(name); CA_MUST_PASS(rsrcId != kInvalidRsrc); return (WindowPort*)kApplicationObject->Invoke( kApplicationObject, kCallCreateWindow, name, rsrcId); } ///////////////////////////////////////////////////////////////////////// CA_EXTERN_C VoidType WmReleaseWindow(WindowPort* winPort) { CA_MUST_PASS(winPort); kApplicationObject->Invoke(kApplicationObject, kCallCloseWindow, winPort); } ///////////////////////////////////////////////////////////////////////// CA_EXTERN_C WindowPort* WmCreateMenu(const CharacterTypeUTF8* name, const DWordType rsrcId) { CA_MUST_PASS(name); CA_MUST_PASS(rsrcId != kInvalidRsrc); return (WindowPort*)kApplicationObject->Invoke(kApplicationObject, kCallCreateMenu, name, rsrcId); } ///////////////////////////////////////////////////////////////////////// CA_EXTERN_C VoidType WmReleaseMenu(WindowPort* winPort) { CA_MUST_PASS(winPort); kApplicationObject->Invoke(kApplicationObject, kCallCloseMenu, winPort); } ///////////////////////////////////////////////////////////////////////// CA_EXTERN_C Int32Type WmMoveWindow(WindowPort* id, WmPoint where) { if (!id) { return kWmErrInvalidArg; } id->windowPosition.X = where.X; id->windowPosition.Y = where.Y; id->windowMoving = True; return 0; } /// Colors! CA_EXTERN_C const ColorRef kRgbRed = 0x000000FF; CA_EXTERN_C const ColorRef kRgbGreen = 0x0000FF00; CA_EXTERN_C const ColorRef kRgbBlue = 0x00FF0000; CA_EXTERN_C const ColorRef kRgbBlack = 0x00000000; CA_EXTERN_C const ColorRef kRgbWhite = 0xFFFFFFFF;