Initial community commit

Src/Wasabi/api/service/svcs/svc_accroleserver.cpp

@@ -0,0 +1,70 @@
+#include <precomp.h>
+
+#include "svc_accroleserver.h"
+#include <api/script/objects/guiobject.h>
+#include <api/wnd/api_window.h>
+
+#define CBCLASS svc_accRoleServerI
+START_DISPATCH;
+  CB(RS_HANDLEROLE,      handleRole);
+  CB(RS_CREATEOBJECT,    createObject);
+  VCB(RS_DESTROYOBJECT,  destroyObject);
+END_DISPATCH;
+#undef CBCLASS
+
+
+#define CBCLASS roleServerObjectI
+START_DISPATCH;
+  CB(RSO_WNDPROC,        wndProc);
+  CB(RSO_GETHWND,        gethWnd);
+  CB(RSO_FLATTENCONTENT, flattenContent);
+END_DISPATCH;
+#undef CBCLASS
+
+
+roleServerObjectI::roleServerObjectI(HWND par, api_window *w) {
+  wnd = w;
+  hwnd = NULL;
+  parent = par;
+  triedyet = 0;
+}
+
+roleServerObjectI::~roleServerObjectI() {
+  if (hwnd != NULL)
+    DestroyWindow(hwnd);
+}
+
+api_window *roleServerObjectI::getWnd() {
+  return wnd;
+}
+
+HWND roleServerObjectI::gethWnd() {
+  if (!triedyet) {
+    triedyet = 1;
+    hwnd = createWindow(parent);
+    if (hwnd !=NULL)
+      oldproc = (WNDPROC)GetWindowLong(hwnd, GWL_WNDPROC);
+    else
+      oldproc = NULL;
+  }
+  return hwnd;
+}
+
+ScriptObject *roleServerObjectI::getScriptObject() {
+  if (wnd == NULL) return NULL;
+  GuiObject *go = wnd->getGuiObject();
+  if (go == NULL) return NULL;
+  return go->guiobject_getScriptObject();
+}
+
+WNDPROC roleServerObjectI::getOldProc() {
+  return oldproc;
+}
+
+int roleServerObjectI::wndProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {
+  return CallWindowProc(oldproc, hWnd, uMsg, wParam, lParam);
+}
+
+int roleServerObjectI::flattenContent(HWND *w) {
+  return FLATTENFLAG_ASKPARENT;
+}