Add input-focus support for System 7, where the Control Manager can't do

[u/mdw/putty] / mac / macevlog.c

diff --git a/mac/macevlog.c b/mac/macevlog.c
index 2bc8929..7eb047e 100644 (file)
--- a/mac/macevlog.c
+++ b/mac/macevlog.c
@@ -1,4 +1,4 @@
-/* $Id: macevlog.c,v 1.1 2003/02/07 01:38:12 ben Exp $ */
+/* $Id: macevlog.c,v 1.5 2003/02/23 13:00:38 ben Exp $ */
 /*
  * Copyright (c) 2003 Ben Harris
  * All rights reserved.
@@ -42,13 +42,15 @@
 
 static void mac_draweventloggrowicon(Session *s);
 static void mac_adjusteventlogscrollbar(Session *s);
+static void mac_clickeventlog(WindowPtr, EventRecord *);
+static void mac_activateeventlog(WindowPtr, EventRecord *);
+static void mac_groweventlog(WindowPtr, EventRecord *);
+static void mac_updateeventlog(WindowPtr);
+static void mac_closeeventlog(WindowPtr);
 
 static void mac_createeventlog(Session *s)
 {
     Rect view;
-#if TARGET_API_MAC_CARBON
-    Rect controlrect;
-#endif
     ListBounds bounds = { 0, 0, 0, 1 }; /* 1 column, 0 rows */
     Point csize = { 0, 0 };
     GrafPtr saveport;
@@ -57,8 +59,14 @@ static void mac_createeventlog(Session *s)
 
     s->eventlog_window = GetNewWindow(wEventLog, NULL, (WindowPtr)-1);
     wi = smalloc(sizeof(*wi));
+    memset(wi, 0, sizeof(*wi));
     wi->s = s;
     wi->wtype = wEventLog;
+    wi->click = &mac_clickeventlog;
+    wi->activate = &mac_activateeventlog;
+    wi->grow = &mac_groweventlog;
+    wi->update = &mac_updateeventlog;
+    wi->close = &mac_closeeventlog;
     SetWRefCon(s->eventlog_window, (long)wi);
     GetPort(&saveport);
     SetPort((GrafPtr)GetWindowPort(s->eventlog_window));
@@ -80,7 +88,6 @@ static void mac_createeventlog(Session *s)
 #else
     (*s->eventlog)->selFlags = lExtendDrag | lNoDisjoint | lNoExtend;
 #endif
-    ShowWindow(s->eventlog_window);
 }
 
 void mac_freeeventlog(Session *s)
@@ -104,7 +111,7 @@ void logevent(void *frontend, char *str)
 {
     Terminal *term = frontend;
     Session *s = term->frontend;
-    ListBounds bounds;
+    ListBounds bounds, visible;
     Cell cell = { 0, 0 };
 
     if (s->eventlog == NULL)
@@ -114,12 +121,18 @@ void logevent(void *frontend, char *str)
 
 #if TARGET_API_MAC_CARBON
     GetListDataBounds(s->eventlog, &bounds);
+    GetListVisibleCells(s->eventlog, &visible);
 #else
     bounds = (*s->eventlog)->dataBounds;
+    visible = (*s->eventlog)->visible;
 #endif
+
     cell.v = bounds.bottom;
     LAddRow(1, cell.v, s->eventlog);
     LSetCell(str, strlen(str), cell, s->eventlog);
+    /* ">=" and "2" because there can be a blank cell below the last one. */
+    if (visible.bottom >= bounds.bottom)
+       LScroll(0, 2, s->eventlog);
 }
 
 static void mac_draweventloggrowicon(Session *s)
@@ -178,7 +191,7 @@ void mac_clickeventlog(WindowPtr window, EventRecord *event)
     SetPort(saveport);
 }
 
-void mac_groweventlog(WindowPtr window, EventRecord *event)
+static void mac_groweventlog(WindowPtr window, EventRecord *event)
 {
     Session *s = mac_windowsession(window);
     Rect limits;
@@ -210,7 +223,7 @@ void mac_groweventlog(WindowPtr window, EventRecord *event)
 #endif
 }
 
-void mac_activateeventlog(WindowPtr window, EventRecord *event)
+static void mac_activateeventlog(WindowPtr window, EventRecord *event)
 {
     Session *s = mac_windowsession(window);
     int active = (event->modifiers & activeFlag) != 0;
@@ -219,7 +232,7 @@ void mac_activateeventlog(WindowPtr window, EventRecord *event)
     mac_draweventloggrowicon(s);
 }
 
-void mac_updateeventlog(WindowPtr window)
+static void mac_updateeventlog(WindowPtr window)
 {
     Session *s = mac_windowsession(window);
 #if TARGET_API_MAC_CARBON
@@ -240,9 +253,16 @@ void mac_updateeventlog(WindowPtr window)
     EndUpdate(window);
 }
 
+static void mac_closeeventlog(WindowPtr window)
+{
+
+    HideWindow(window);
+}
+
 void mac_showeventlog(Session *s)
 {
 
+    SelectWindow(s->eventlog_window);
     ShowWindow(s->eventlog_window);
 }