build: add the SIBO SDK

2026-07-06 18:01:36 +01:00
parent d76326729c
commit 64e484448c
757 changed files with 97167 additions and 0 deletions
@@ -0,0 +1,38 @@
+/* DEWSERV.C */
+
+#include <demo.g>
+#include <hwim.h>
+
+GLREF_D WSERV_SPEC *wserv_channel;
+
+LOCAL_C INT StatusWindowWidth(VOID)
+    {
+    P_EXTENT ext;
+
+    wInquireStatusWindow(-1,&ext);
+    return(ext.width);
+    }
+
+LOCAL_C VOID InitClientWindow(PR_DEWSERV *self)
+    {
+    W_WINDATA wd;
+    PR_WIN *cliwin;
+
+    wd.extent.tl.x=wd.extent.tl.y=0;
+    wd.extent.height=wserv_channel->conn.info.pixels.y;
+    wd.extent.width=wserv_channel->conn.info.pixels.x-StatusWindowWidth();
+    cliwin=f_newsend(CAT_DEMO_HWIM,C_BWIN,O_WN_CONNECT,NULL,W_WIN_EXTENT,&wd);
+    self->wserv.cli=cliwin;
+    cliwin->win.flags=PR_BWIN_CORNER_4|PR_BWIN_SHADOW_1;
+    p_send3(cliwin,O_WN_EMPHASISE,TRUE);
+    hInitVis(cliwin);
+    }
+
+#pragma METHOD_CALL
+
+METHOD VOID dewserv_ws_dyn_init(PR_DEWSERV *self)
+    {
+    wsSetList(W_STATUS_WINDOW_ICON,NULL,0);
+    wStatusWindow(W_STATUS_WINDOW_BIG);
+    InitClientWindow(self);
+    }