static status
initialiseTileAdjuster(TileAdjuster p, TileObj t)
{ Image img = getClassVariableValueObject(p, NAME_image);
Size size;
CursorObj crs;
BitmapObj bm;
if ( isNil(t->super) )
return errorPce(p, NAME_noSubTile, t);
if ( t->super->orientation == NAME_horizontal )
{ img = getClassVariableValueObject(p, NAME_himage);
crs = getClassVariableValueObject(p, NAME_horizontalResizeCursor);
} else
{ img = getClassVariableValueObject(p, NAME_vimage);
crs = getClassVariableValueObject(p, NAME_verticalResizeCursor);
}
size = getCopySize(img->size);
initialiseWindow((PceWindow) p, NAME_adjuster, size, DEFAULT);
assign(p, pen, ZERO);
assign(p, cursor, crs);
assign(p, orientation, t->super->orientation);
send(p, NAME_display, bm=newObject(ClassBitmap, img, EAV), EAV);
/*send(bm, NAME_cursor, crs, EAV);*/
assign(t, adjuster, p);
assign(p, client, t);
succeed;
}
static status
initialiseView(View v, Name name, Size size, DisplayObj display, Editor editor)
{ Editor e;
if ( isDefault(editor) )
{ Size s2;
if ( isDefault(size) && (s2 = getClassVariableValueObject(v, NAME_size)) )
size = newObject(ClassSize, s2->w, s2->h, EAV);
TRY(e = get(v, NAME_createEditor, size, EAV));
} else
e = editor;
initialiseWindow((PceWindow) v, name,
getSizeGraphical((Graphical) e), display);
return send(v, NAME_editor, e, EAV);
}
/*
Name WINAPI WinMain
Syntax WINAPI WinMain(HINSTANCE hInstance, HINSTANCE prevInstance,
PSTR cmdLine, int showCmd)
Param HINSTANCE hInstance - Handle to an intance
Param HINSTANCE prevInstance - No longer used (always 0)
Param PSTR cmdLine - command-line arguments as a Unicode string
Param int showCmd - Flag to indicate if the window will be minimized,
maximized, or shown normally
Return int - Not used
Brief Entry point of programme
*/
int WINAPI WinMain( HINSTANCE hInstance,
HINSTANCE prevInstance,
PSTR cmdLine,
int showCmd)
{
MSG msg;
registerWindow(hInstance);
if (!initialiseWindow(hInstance, showCmd))
return false;
App->initialise();
while(running)
{
if (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE))
{
if (msg.message == WM_QUIT)
{
running = false;
}
if (msg.message == WM_CLOSE)
{
running = false;
}
TranslateMessage (&msg);
DispatchMessage (&msg);
}
else
{
running = App->runFrame();
}
}
App->deinitialise();
return msg.wParam;
}
