Right, so that's a hook for scroll optimisations (when Simon gets round to

them) and a vaguely-working scrollbar.  Next stop: faster and more sensible
redraw in 1-bit modes at least.  Waiting five minutes for the test case
to scroll past is _tedious_.

[originally from svn r64]

mac.c

@@ -1,4 +1,29 @@
-/* $Id: mac.c,v 1.1.2.9 1999/02/28 17:05:10 ben Exp $ */
+/* $Id: mac.c,v 1.1.2.10 1999/03/01 22:26:49 ben Exp $ */
+/*
+ * Copyright (c) 1999 Ben Harris
+ * All rights reserved.
+ *
+ * Permission is hereby granted, free of charge, to any person
+ * obtaining a copy of this software and associated documentation
+ * files (the "Software"), to deal in the Software without
+ * restriction, including without limitation the rights to use,
+ * copy, modify, merge, publish, distribute, sublicense, and/or
+ * sell copies of the Software, and to permit persons to whom the
+ * Software is furnished to do so, subject to the following
+ * conditions:
+ * 
+ * The above copyright notice and this permission notice shall be
+ * included in all copies or substantial portions of the Software.
+ * 
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ * NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR
+ * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
+ * CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+ * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
 /*
  * mac.c -- miscellaneous Mac-specific routines
  */
@@ -177,7 +202,7 @@ static void mac_contentclick(WindowPtr window, EventRecord *event) {
 
     switch (mac_windowtype(window)) {
       case wTerminal:
-	/* XXX: Do something. */
+	mac_clickterm(window, event);
 	break;
       case wAbout:
 	if (DialogSelect(event, &(DialogPtr)window, &item))

macterm.c

@@ -1,4 +1,4 @@
-/* $Id: macterm.c,v 1.1.2.8 1999/02/28 17:05:11 ben Exp $ */
+/* $Id: macterm.c,v 1.1.2.9 1999/03/01 22:26:50 ben Exp $ */
 /*
  * Copyright (c) 1999 Ben Harris
  * All rights reserved.
@@ -58,8 +58,12 @@ struct mac_session {
 static void mac_initfont(struct mac_session *);
 static void mac_initpalette(struct mac_session *);
 static void mac_adjustsize(struct mac_session *);
+static pascal void mac_scrolltracker(ControlHandle, short);
 
-/* Temporary hack till I get the terminal emulator supporting multiple sessions */
+/*
+ * Temporary hack till I get the terminal emulator supporting multiple
+ * sessions
+ */
 
 static struct mac_session *onlysession;
 
@@ -110,7 +114,7 @@ void mac_newsession(void) {
     SetWRefCon(s->window, (long)s);
     s->scrollbar = GetNewControl(cVScroll, s->window);
     term_init();
-    term_size(24, 80, 100);
+    term_size(cfg.height, cfg.width, cfg.savelines);
     mac_initfont(s);
     mac_initpalette(s);
     /* Set to FALSE to not get palette updates in the background. */
@@ -181,6 +185,53 @@ static void mac_updatewinbg(struct mac_session *s) {
     SetWinColor(s->window, cth);
 }
 
+void mac_clickterm(WindowPtr window, EventRecord *event) {
+    struct mac_session *s;
+    Point mouse;
+    ControlHandle control;
+    int part;
+
+    s = (struct mac_session *)GetWRefCon(window);
+    SetPort(window);
+    mouse = event->where;
+    GlobalToLocal(&mouse);
+    part = FindControl(mouse, window, &control);
+    if (control == s->scrollbar) {
+	switch (part) {
+	  case kControlIndicatorPart:
+	    if (TrackControl(control, mouse, NULL) == kControlIndicatorPart)
+		term_scroll(+1, GetControlValue(control));
+	    break;
+	  case kControlUpButtonPart:
+	  case kControlDownButtonPart:
+	  case kControlPageUpPart:
+	  case kControlPageDownPart:
+	    TrackControl(control, mouse, mac_scrolltracker);
+	    break;
+	}
+    }
+}
+
+static pascal void mac_scrolltracker(ControlHandle control, short part) {
+    struct mac_session *s;
+
+    s = (struct mac_session *)GetWRefCon((*control)->contrlOwner);
+    switch (part) {
+      case kControlUpButtonPart:
+	term_scroll(0, -1);
+	break;
+      case kControlDownButtonPart:
+	term_scroll(0, +1);
+	break;
+      case kControlPageUpPart:
+	term_scroll(0, -(rows - 1));
+	break;
+      case kControlPageDownPart:
+	term_scroll(0, +(rows - 1));
+	break;
+    }
+}
+
 void mac_activateterm(WindowPtr window, Boolean active) {
     struct mac_session *s;
 
@@ -273,8 +324,6 @@ void do_text(struct mac_session *s, int x, int y, char *text, int len,
 
 /*
  * Call from the terminal emulator to get its graphics context.
- * I feel this should disappear entirely (and do_text should take
- * a Session as an argument).  Simon may disagree.
  */
 struct mac_session *get_ctx(void) {
 
@@ -360,6 +409,8 @@ void palette_set(int n, int r, int g, int b) {
 	16, 17, 18, 20, 22
     };
     
+    if (mac_gestalts.qdvers == gestaltOriginalQD)
+      return;
     col.red   = r * 0x0101;
     col.green = g * 0x0101;
     col.blue  = b * 0x0101;
@@ -381,3 +432,29 @@ void palette_reset(void) {
     ActivatePalette(s->window);
     /* Palette Manager will generate update events as required. */
 }
+
+/*
+ * Move `lines' lines from position `from' to position `to' in the
+ * window.
+ * Note that this is currently broken if "from" and "to" are more
+ * than "lines" lines apart.
+ */
+void optimised_move(int to, int from, int lines) {
+    Rect r;
+    RgnHandle update;
+    struct mac_session *s = onlysession;
+    int min, max, d;
+
+    SetPort(s->window);
+
+    min = (to < from ? to : from);
+    max = to + from - min;
+    d = max - min;
+
+    update = NewRgn();
+    r.left = 0; r.right = cols * font_width;
+    r.top = min * font_height; r.bottom = (max+lines) * font_height;
+    ScrollRect(&r, 0, (to - from) * font_height, update);
+    InvalRgn(update); /* XXX: necessary?  probably harmless anyway */
+    DisposeRgn(update);
+}