From 62e509e9c90d728c9f65145947276f79112ab48c Mon Sep 17 00:00:00 2001
From: "Christian A. Weber" <chris@gna.ch>
Date: Tue, 2 Nov 1993 18:53:33 +0000
Subject: Initial revision

---
 Sleep.c | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 Sleep.c

(limited to 'Sleep.c')

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!");
+}
+
-- 
cgit v1.2.3