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 ea3381ba16746f4db9f0b42bb2e34eaae1bc92d2..c32ff6c49bd1f85c71517d646e73a591af598ce9 100644 (file)
--- 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 f161b7a939b50ab0fcfcdddee8bc3dd33f995246..fa0322f27cd623c86e3457091ecd99fe5e283454 100644 (file)
--- 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))