From b8f6f17cc0955c6b0b690692ed85a88985cc3712 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 31 Jan 1995 22:00:21 +0000
Subject: [PATCH] Implement window-manipulation procedures for OS/2 graphics
 windows.

---
 v7/src/runtime/os2graph.scm | 57 +++++++++++++++++++++++++++++++++++--
 1 file changed, 55 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/os2graph.scm b/v7/src/runtime/os2graph.scm
index 68cc93c45..3596b3bb9 100644
--- a/v7/src/runtime/os2graph.scm
+++ b/v7/src/runtime/os2graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2graph.scm,v 1.1 1995/01/06 00:50:16 cph Exp $
+$Id: os2graph.scm,v 1.2 1995/01/31 22:00:21 cph Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -70,7 +70,19 @@ MIT in each case. |#
 	   (set-coordinate-limits ,os2-graphics/set-coordinate-limits)
 	   (set-drawing-mode ,os2-graphics/set-drawing-mode)
 	   (set-foreground-color ,os2-graphics/set-foreground-color)
-	   (set-line-style ,os2-graphics/set-line-style))))
+	   (set-line-style ,os2-graphics/set-line-style)
+	   (window-size ,os2-graphics/window-size)
+	   (set-window-size ,os2-graphics/set-window-size)
+	   (window-position ,os2-graphics/window-position)
+	   (set-window-position ,os2-graphics/set-window-position)
+	   (set-window-title ,os2-graphics/set-window-title)
+	   (hide-window ,os2-graphics/hide-window)
+	   (minimize-window ,os2-graphics/minimize-window)
+	   (maximize-window ,os2-graphics/maximize-window)
+	   (restore-window ,os2-graphics/restore-window)
+	   (raise-window ,os2-graphics/raise-window)
+	   (lower-window ,os2-graphics/lower-window)
+	   (desktop-size ,os2-graphics/desktop-size))))
   (register-graphics-device-type 'OS/2 os2-graphics-device-type)
   (set! event-descriptor #f)
   (set! event-previewer-registration #f)
@@ -551,6 +563,47 @@ MIT in each case. |#
 (define-integrable (set-os2-graphics-device/background-color! device color)
   (set-os2-window/background-color! (graphics-device/descriptor device) color))
 
+(define (os2-graphics/window-size device)
+  (let ((w.h (os2win-get-size (os2-graphics-device/wid device))))
+    (values (car w.h)
+	    (cdr w.h))))
+
+(define (os2-graphics/set-window-size device width height)
+  (os2win-set-size (os2-graphics-device/wid device) width height))
+
+(define (os2-graphics/window-position device)
+  (let ((x.y (os2win-get-pos (os2-graphics-device/wid device))))
+    (values (car x.y)
+	    (cdr x.y))))
+
+(define (os2-graphics/set-window-position device x y)
+  (os2win-set-pos (os2-graphics-device/wid device) x y))
+
+(define (os2-graphics/set-window-title device title)
+  (os2win-set-title (os2-graphics-device/wid device) title))
+
+(define (os2-graphics/hide-window device)
+  (os2win-set-state (os2-graphics-device/wid device) window-state:hide))
+
+(define (os2-graphics/minimize-window device)
+  (os2win-set-state (os2-graphics-device/wid device) window-state:minimize))
+
+(define (os2-graphics/maximize-window device)
+  (os2win-set-state (os2-graphics-device/wid device) window-state:maximize))
+
+(define (os2-graphics/restore-window device)
+  (os2win-set-state (os2-graphics-device/wid device) window-state:restore))
+
+(define (os2-graphics/raise-window device)
+  (os2win-set-state (os2-graphics-device/wid device) window-state:top))
+
+(define (os2-graphics/lower-window device)
+  (os2win-set-state (os2-graphics-device/wid device) window-state:bottom))
+
+(define (os2-graphics/desktop-size device)
+  device
+  (values (os2win-desktop-width) (os2win-desktop-height)))
+
 ;;;; Protection lists
 
 (define (make-protection-list)
-- 
2.25.1