From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Feb 1995 22:55:42 +0000 (+0000)
Subject: Limit initial width of console window to 80 characters.
X-Git-Tag: 20090517-FFI~6621
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3c97fee45156fee2b9978d59c60520434a49f6b2;p=mit-scheme.git

Limit initial width of console window to 80 characters.
---

diff --git a/v7/src/microcode/os2pmcon.c b/v7/src/microcode/os2pmcon.c
index a3a5f9f82..c5a6ce21b 100644
--- a/v7/src/microcode/os2pmcon.c
+++ b/v7/src/microcode/os2pmcon.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2pmcon.c,v 1.4 1995/02/14 00:41:31 cph Exp $
+$Id: os2pmcon.c,v 1.5 1995/02/21 22:55:42 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -126,8 +126,11 @@ OS2_initialize_pm_console (void)
   {
     unsigned short width;
     unsigned short height;
+    unsigned short max_width = (80 * CHAR_WIDTH);
     OS2_window_size (console_wid, (& width), (& height));
     console_resize (width, height);
+    if (width > max_width)
+      OS2_window_set_size (console_wid, max_width, height);
   }
 }