From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 24 Feb 1995 00:36:53 +0000 (+0000)
Subject: Add some extra screen-manipulation procedures, one of which is needed
X-Git-Tag: 20090517-FFI~6600
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c3780fcff1cae844e25579ae16d41e023fc458d4;p=mit-scheme.git

Add some extra screen-manipulation procedures, one of which is needed
by the 6.001 support to allow a Scheme program to activate an editor
screen.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index ea3381ba1..c32ff6c49 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.163 1995/02/14 00:30:44 cph Exp $
+$Id: edwin.pkg,v 1.164 1995/02/24 00:36:53 cph Exp $
 
 Copyright (c) 1989-95 Massachusetts Institute of Technology
 
@@ -1170,12 +1170,15 @@ MIT in each case. |#
     (export (edwin)
 	    os2-screen/get-frame-size
 	    os2-screen/get-position
+	    os2-screen/activate!
+	    os2-screen/deactivate!
 	    os2-screen/hide!
 	    os2-screen/lower!
 	    os2-screen/maximize!
 	    os2-screen/minimize!
 	    os2-screen/raise!
 	    os2-screen/restore!
+	    os2-screen/show!
 	    os2-screen/set-background-color!
 	    os2-screen/set-font!
 	    os2-screen/set-foreground-color!
diff --git a/v7/src/edwin/os2term.scm b/v7/src/edwin/os2term.scm
index f161b7a93..fa0322f27 100644
--- a/v7/src/edwin/os2term.scm
+++ b/v7/src/edwin/os2term.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: os2term.scm,v 1.4 1995/02/08 01:21:05 cph Exp $
+;;;	$Id: os2term.scm,v 1.5 1995/02/24 00:36:44 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
@@ -427,9 +427,18 @@
 (define (os2-screen/lower! screen)
   (os2win-set-state (screen-wid screen) window-state:bottom))
 
+(define (os2-screen/show! screen)
+  (os2win-set-state (screen-wid screen) window-state:show))
+
 (define (os2-screen/hide! screen)
   (os2win-set-state (screen-wid screen) window-state:hide))
 
+(define (os2-screen/activate! screen)
+  (os2win-set-state (screen-wid screen) window-state:activate))
+
+(define (os2-screen/deactivate! screen)
+  (os2win-set-state (screen-wid screen) window-state:deactivate))
+
 (define (os2-screen/minimize! screen)
   (os2win-set-state (screen-wid screen) window-state:minimize))