1 files changed, 56 insertions, 0 deletions
diff --git a/Sleep.c b/Sleep.c
new file mode 100644
index 0000000..550f932
--- /dev/null
+++ b/Sleep.c
@@ -0,0 +1,56 @@
+#include <proto/exec.h>
+#include <proto/intuition.h>
+#include <graphics/gfxbase.h>
+#include <string.h>
+
+#include "Bobi.h"
+
+extern struct GfxBase	*GfxBase;
+extern struct Screen	*mainscreen;
+extern char				idstring[];
+extern UWORD			mainpalette[];
+extern ULONG			rexxsigmask;
+
+/****************************************************************************
+**	Screen und so schliessen und schlafen gehn
+*/
+
+void SleepFunc(void)
+{
+	struct Screen *wb;
+
+	static struct NewWindow NewW =
+	{
+		-1,-1,-1,-1,0,1,CLOSEWINDOW,
+		WINDOWDRAG+WINDOWDEPTH+WINDOWCLOSE+NOCAREREFRESH,
+		NULL,NULL,idstring,NULL,NULL,0,0,(UWORD)-1,(UWORD)-1,WBENCHSCREEN
+	};
+
+	if(wb=(void *)OpenWorkBench())
+	{
+		struct Window *w;
+
+		if(NewW.LeftEdge<0)
+		{
+			NewW.Width    = 85+8*strlen(idstring);
+			NewW.Height   = wb->RastPort.TxHeight+3;
+			NewW.LeftEdge = wb->Width-NewW.Width;
+			NewW.TopEdge  = wb->Height-NewW.Height;
+		}
+
+		if(w=OpenWindow(&NewW))
+		{
+			Cleanup(FALSE);
+			Wait(SIGMASK(w)|rexxsigmask);
+			NewW.LeftEdge = w->LeftEdge;
+			NewW.TopEdge  = w->TopEdge;
+			CloseWindow(w);
+			OpenMain();
+			LoadPalette(mainpalette);
+			RexxMsgHandler();
+		}
+		else ShowMonoReq2("Can't open sleep window!");
+	}
+	else ShowMonoReq2("Can't open the Workbench screen!");
+}
+