From fea7210523de0320da9c33452bc3e628d8b20a4d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Dec 1994 20:48:20 +0000
Subject: [PATCH] Undo PC-specific changes from previous revision.  Add OS/2
 files.

---
 v7/src/edwin/edwin.pkg | 37 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index a611b9da7..3885aa1e5 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.156 1994/12/19 20:38:55 cph Exp $
+$Id: edwin.pkg,v 1.157 1994/12/19 20:48:20 cph Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -1049,6 +1049,30 @@ MIT in each case. |#
   (initialization (initialize-package!)))
 |#
 
+(define-package (edwin screen os2-screen)
+  (files "os2term")
+  (parent (edwin screen))
+  (export (edwin)
+	  os2-screen/get-position
+	  os2-screen/hide!
+	  os2-screen/lower!
+	  os2-screen/maximize!
+	  os2-screen/minimize!
+	  os2-screen/raise!
+	  os2-screen/restore!
+	  os2-screen/set-background-color!
+	  os2-screen/set-font!
+	  os2-screen/set-foreground-color!
+	  os2-screen/set-position!
+	  os2-screen/set-size!
+	  os2/desktop-width
+	  os2/desktop-height
+	  screen-char-width
+	  screen-char-height
+	  screen-pel-width
+	  screen-pel-height)
+  (initialization (initialize-package!)))
+
 (define-package (edwin x-commands)
   (files "xcom")
   (parent (edwin))
@@ -1097,6 +1121,17 @@ MIT in each case. |#
   (export (edwin screen win32)
 	  update-win32-screen-name!))
 
+(define-package (edwin os2-commands)
+  (files "os2com")
+  (parent (edwin))
+  (export (edwin)
+	  edwin-command$set-background-color
+	  edwin-command$set-font
+	  edwin-command$set-foreground-color
+	  edwin-command$set-screen-position
+	  edwin-command$set-screen-size
+	  edwin-command$show-screen-position
+	  edwin-command$show-screen-size))
 
 (define-package (edwin x-keys)
   (files "key-x11")
-- 
2.25.1