Fix various breakages my Carbonisation caused in the Classic build, notably
[u/mdw/putty] / mac / macterm.c
index 685d9fe..51ecb09 100644 (file)
@@ -1,4 +1,4 @@
-/* $Id: macterm.c,v 1.62 2003/02/01 12:54:40 simon Exp $ */
+/* $Id: macterm.c,v 1.66 2003/02/04 02:03:53 ben Exp $ */
 /*
  * Copyright (c) 1999 Simon Tatham
  * Copyright (c) 1999, 2002 Ben Harris
@@ -80,7 +80,7 @@
 static void mac_initfont(Session *);
 static pascal OSStatus uni_to_font_fallback(UniChar *, ByteCount, ByteCount *,
                                            TextPtr, ByteCount, ByteCount *,
-                                           LogicalAddress *,
+                                           LogicalAddress,
                                            ConstUnicodeMappingPtr);
 static void mac_initpalette(Session *);
 static void mac_adjustwinbg(Session *);
@@ -94,18 +94,6 @@ static void text_click(Session *, EventRecord *);
 void pre_paint(Session *s);
 void post_paint(Session *s);
 
-#if TARGET_RT_MAC_CFM
-static RoutineDescriptor mac_scrolltracker_upp =
-    BUILD_ROUTINE_DESCRIPTOR(uppControlActionProcInfo,
-                            (ProcPtr)mac_scrolltracker);
-static RoutineDescriptor do_text_for_device_upp =
-    BUILD_ROUTINE_DESCRIPTOR(uppDeviceLoopDrawingProcInfo,
-                            (ProcPtr)do_text_for_device);
-#else /* not TARGET_RT_MAC_CFM */
-#define mac_scrolltracker_upp  mac_scrolltracker
-#define do_text_for_device_upp do_text_for_device
-#endif /* not TARGET_RT_MAC_CFM */
-
 void mac_startsession(Session *s)
 {
     char *errmsg;
@@ -181,15 +169,20 @@ static void mac_workoutfontscale(Session *s, int wantwidth,
     int gotwidth, i;
     const char text = 'W';
     FontInfo fi;
+#if TARGET_API_MAC_CARBON
+    CQDProcsPtr gp = GetPortGrafProcs(GetWindowPort(s->window));;
+#else
+    QDProcsPtr gp = s->window->grafProcs;;
+#endif
 
     numer.v = denom.v = 1; /* always */
     numer.h = denom.h = 1;
     for (i = 0; i < 3; i++) {
        tmpnumer = numer;
        tmpdenom = denom;
-       if (s->window->grafProcs != NULL)
+       if (gp != NULL)
            gotwidth = InvokeQDTxMeasUPP(1, &text, &tmpnumer, &tmpdenom, &fi,
-                                        s->window->grafProcs->txMeasProc);
+                                        gp->txMeasProc);
        else
            gotwidth = StdTxMeas(1, &text, &tmpnumer, &tmpdenom, &fi);
        /* The result of StdTxMeas must be scaled by the factors it returns. */
@@ -207,17 +200,15 @@ static void mac_workoutfontscale(Session *s, int wantwidth,
 static UnicodeToTextFallbackUPP uni_to_font_fallback_upp;
 
 static void mac_initfont(Session *s) {
-    Str255 macfont;
     FontInfo fi;
     TextEncoding enc;
     OptionBits fbflags;
 
-    SetPort(s->window);
-    c2pstrcpy(macfont, s->cfg.font.name);
-    GetFNum(macfont, &s->fontnum);
+    SetPort((GrafPtr)GetWindowPort(s->window));
+    GetFNum(s->cfg.font.name, &s->fontnum);
     TextFont(s->fontnum);
-    TextFace(s->cfg.font.isbold ? bold : 0);
-    TextSize(s->cfg.font.height);
+    TextFace(s->cfg.font.face);
+    TextSize(s->cfg.font.size);
     GetFontInfo(&fi);
     s->font_width = CharWidth('W'); /* Well, it's what NCSA uses. */
     s->font_ascent = fi.ascent;
@@ -227,10 +218,10 @@ static void mac_initfont(Session *s) {
                         &s->font_stdnumer, &s->font_stddenom);
     mac_workoutfontscale(s, s->font_width * 2,
                         &s->font_widenumer, &s->font_widedenom);
-    TextSize(s->cfg.font.height * 2);
+    TextSize(s->cfg.font.size * 2);
     mac_workoutfontscale(s, s->font_width * 2,
                         &s->font_bignumer, &s->font_bigdenom);
-    TextSize(s->cfg.font.height);
+    TextSize(s->cfg.font.size);
     if (!s->cfg.bold_colour) {
        TextFace(bold);
        s->font_boldadjust = s->font_width - CharWidth('W');
@@ -242,12 +233,12 @@ static void mac_initfont(Session *s) {
     if (mac_gestalts.encvvers != 0 &&
        UpgradeScriptInfoToTextEncoding(kTextScriptDontCare,
                                        kTextLanguageDontCare,
-                                       kTextRegionDontCare, macfont,
+                                       kTextRegionDontCare, s->cfg.font.name,
                                        &enc) == noErr &&
        CreateUnicodeToTextInfoByEncoding(enc, &s->uni_to_font) == noErr) {
        if (uni_to_font_fallback_upp == NULL)
            uni_to_font_fallback_upp =
-               NewUnicodeToTextFallbackProc(&uni_to_font_fallback);
+               NewUnicodeToTextFallbackUPP(&uni_to_font_fallback);
        fbflags = kUnicodeFallbackCustomOnly;
        if (mac_gestalts.uncvattr & kTECAddFallbackInterruptMask)
            fbflags |= kUnicodeFallbackInterruptSafeMask;
@@ -257,12 +248,15 @@ static void mac_initfont(Session *s) {
            goto no_encv;
        }
     } else {
+       char cfontname[256];
+
       no_encv:
        s->uni_to_font = NULL;
+       p2cstrcpy(cfontname, s->cfg.font.name);
        s->font_charset =
            charset_from_macenc(FontToScript(s->fontnum),
                                GetScriptManagerVariable(smRegionCode),
-                               mac_gestalts.sysvers, s->cfg.font.name);
+                               mac_gestalts.sysvers, cfontname);
     }
 
     mac_adjustsize(s, s->term->rows, s->term->cols);
@@ -270,7 +264,7 @@ static void mac_initfont(Session *s) {
 
 static pascal OSStatus uni_to_font_fallback(UniChar *ucp,
     ByteCount ilen, ByteCount *iusedp, TextPtr obuf, ByteCount olen,
-    ByteCount *ousedp, LogicalAddress *cookie, ConstUnicodeMappingPtr mapping)
+    ByteCount *ousedp, LogicalAddress cookie, ConstUnicodeMappingPtr mapping)
 {
 
     if (olen < 1)
@@ -361,6 +355,7 @@ static void mac_adjustwinbg(Session *s) {
     else
 #endif
     {
+#if !TARGET_API_MAC_CARBON
        if (s->wctab == NULL)
            s->wctab = (WCTabHandle)NewHandle(sizeof(**s->wctab));
        if (s->wctab == NULL)
@@ -371,6 +366,7 @@ static void mac_adjustwinbg(Session *s) {
        (*s->wctab)->ctTable[0].value = wContentColor;
        (*s->wctab)->ctTable[0].rgb = (*s->palette)->pmInfo[DEFAULT_BG].ciRGB;
        SetWinColor(s->window, s->wctab);
+#endif
     }
 }
 
@@ -382,36 +378,62 @@ void mac_adjusttermcursor(WindowPtr window, Point mouse, RgnHandle cursrgn) {
     ControlHandle control;
     short part;
     int x, y;
+#if TARGET_API_MAC_CARBON
+    Cursor arrow;
+    Rect rect;
+    RgnHandle visrgn;
+#endif
 
-    SetPort(window);
+    SetPort((GrafPtr)GetWindowPort(window));
     s = (Session *)GetWRefCon(window);
     GlobalToLocal(&mouse);
     part = FindControl(mouse, window, &control);
     if (control == s->scrollbar) {
+#if TARGET_API_MAC_CARBON
+       SetCursor(GetQDGlobalsArrow(&arrow));
+       RectRgn(cursrgn, GetControlBounds(s->scrollbar, &rect));
+#else
        SetCursor(&qd.arrow);
        RectRgn(cursrgn, &(*s->scrollbar)->contrlRect);
-       SectRgn(cursrgn, window->visRgn, cursrgn);
+#endif
     } else {
        x = mouse.h / s->font_width;
        y = mouse.v / s->font_height;
-       if (s->raw_mouse)
+       if (s->raw_mouse) {
+#if TARGET_API_MAC_CARBON
+           SetCursor(GetQDGlobalsArrow(&arrow));
+#else
            SetCursor(&qd.arrow);
-       else
+#endif
+       } else
            SetCursor(*GetCursor(iBeamCursor));
        /* Ask for shape changes if we leave this character cell. */
        SetRectRgn(cursrgn, x * s->font_width, y * s->font_height,
                   (x + 1) * s->font_width, (y + 1) * s->font_height);
-       SectRgn(cursrgn, window->visRgn, cursrgn);
     }
+#if TARGET_API_MAC_CARBON
+    visrgn = NewRgn();
+    GetPortVisibleRegion(GetWindowPort(window), visrgn);
+    SectRgn(cursrgn, visrgn, cursrgn);
+    DisposeRgn(visrgn);
+#else  
+    SectRgn(cursrgn, window->visRgn, cursrgn);
+#endif
 }
 
 /*
  * Enable/disable menu items based on the active terminal window.
  */
+#if TARGET_API_MAC_CARBON
+#define DisableItem DisableMenuItem
+#define EnableItem EnableMenuItem
+#endif
 void mac_adjusttermmenus(WindowPtr window) {
     Session *s;
     MenuHandle menu;
+#if !TARGET_API_MAC_CARBON
     long offset;
+#endif
 
     s = (Session *)GetWRefCon(window);
     menu = GetMenuHandle(mFile);
@@ -426,7 +448,11 @@ void mac_adjusttermmenus(WindowPtr window) {
        EnableItem(menu, iCopy);
     else
        DisableItem(menu, iCopy);
+#if TARGET_API_MAC_CARBON
+    if (1)
+#else
     if (GetScrap(NULL, 'TEXT', &offset) == noTypeErr)
+#endif
        DisableItem(menu, iPaste);
     else
        EnableItem(menu, iPaste);
@@ -456,9 +482,10 @@ void mac_clickterm(WindowPtr window, EventRecord *event) {
     Point mouse;
     ControlHandle control;
     int part;
+    static ControlActionUPP mac_scrolltracker_upp = NULL;
 
     s = (Session *)GetWRefCon(window);
-    SetPort(window);
+    SetPort((GrafPtr)GetWindowPort(window));
     mouse = event->where;
     GlobalToLocal(&mouse);
     part = FindControl(mouse, window, &control);
@@ -472,7 +499,10 @@ void mac_clickterm(WindowPtr window, EventRecord *event) {
          case kControlDownButtonPart:
          case kControlPageUpPart:
          case kControlPageDownPart:
-           TrackControl(control, mouse, &mac_scrolltracker_upp);
+           if (mac_scrolltracker_upp == NULL)
+               mac_scrolltracker_upp =
+                   NewControlActionUPP(&mac_scrolltracker);
+           TrackControl(control, mouse, mac_scrolltracker_upp);
            break;
        }
     } else {
@@ -488,7 +518,7 @@ static void text_click(Session *s, EventRecord *event) {
     static int lastrow = -1, lastcol = -1;
     static Mouse_Action lastact = MA_NOTHING;
 
-    SetPort(s->window);
+    SetPort((GrafPtr)GetWindowPort(s->window));
     localwhere = event->where;
     GlobalToLocal(&localwhere);
 
@@ -531,6 +561,7 @@ static void text_click(Session *s, EventRecord *event) {
 
 void write_clip(void *cookie, wchar_t *data, int len, int must_deselect)
 {
+#if !TARGET_API_MAC_CARBON
     Session *s = cookie;
     char *mactextbuf;
     ByteCount iread, olen;
@@ -581,15 +612,19 @@ void write_clip(void *cookie, wchar_t *data, int len, int must_deselect)
     stsc->scrpStyleTab[0].scrpAscent = s->font_ascent;
     stsc->scrpStyleTab[0].scrpFont = s->fontnum;
     stsc->scrpStyleTab[0].scrpFace = 0;
-    stsc->scrpStyleTab[0].scrpSize = s->cfg.font.height;
+    stsc->scrpStyleTab[0].scrpSize = s->cfg.font.size;
     stsc->scrpStyleTab[0].scrpColor.red = 0;
     stsc->scrpStyleTab[0].scrpColor.green = 0;
     stsc->scrpStyleTab[0].scrpColor.blue = 0;
     PutScrap(stsz, 'styl', stsc);
     sfree(stsc);
+#endif
 }
 
 void get_clip(void *frontend, wchar_t **p, int *lenp) {
+#if TARGET_API_MAC_CARBON
+    *lenp = 0;
+#else
     Session *s = frontend;
     static Handle h = NULL;
     static wchar_t *data = NULL;
@@ -662,12 +697,17 @@ void get_clip(void *frontend, wchar_t **p, int *lenp) {
            *lenp = 0;
        }
     }
+#endif
 }
 
 static pascal void mac_scrolltracker(ControlHandle control, short part) {
     Session *s;
 
+#if TARGET_API_MAC_CARBON
+    s = (Session *)GetWRefCon(GetControlOwner(control));
+#else
     s = (Session *)GetWRefCon((*control)->contrlOwner);
+#endif
     switch (part) {
       case kControlUpButtonPart:
        term_scroll(s->term, 0, -1);
@@ -688,7 +728,10 @@ void mac_keyterm(WindowPtr window, EventRecord *event) {
     Session *s = (Session *)GetWRefCon(window);
     Key_Sym keysym = PK_NULL;
     unsigned int mods = 0, flags = PKF_NUMLOCK;
-    wchar_t utxt[1];
+    UniChar utxt[1];
+    char txt[1];
+    size_t len = 0;
+    ScriptCode key_script;
 
     ObscureCursor();
 
@@ -773,9 +816,52 @@ void mac_keyterm(WindowPtr window, EventRecord *event) {
       case 0x7E: keysym = PK_UP; break;
     }
 
-    /* XXX Map from key script to Unicode. */
-    utxt[0] = event->message & charCodeMask;
-    term_key(s->term, keysym, utxt, 1, mods, flags);
+    /* Map from key script to Unicode. */
+    txt[0] = event->message & charCodeMask;
+    key_script = GetScriptManagerVariable(smKeyScript);
+
+    if (mac_gestalts.encvvers != 0) {
+       static TextToUnicodeInfo key_to_uni = NULL;
+       static ScriptCode key_to_uni_script;
+       TextEncoding enc;
+       ByteCount iread, olen;
+       OSErr err;
+
+       if (key_to_uni != NULL && key_to_uni_script != key_script)
+           DisposeTextToUnicodeInfo(&key_to_uni);
+        if (key_to_uni == NULL || key_to_uni_script != key_script) {
+           if (UpgradeScriptInfoToTextEncoding(key_script,
+                                               kTextLanguageDontCare,
+                                               kTextRegionDontCare, NULL,
+                                               &enc) == noErr &&
+               CreateTextToUnicodeInfoByEncoding(enc, &key_to_uni) == noErr)
+               key_to_uni_script = key_script;
+           else
+               key_to_uni = NULL;
+       }
+       if (key_to_uni != NULL) {
+           err = ConvertFromTextToUnicode(key_to_uni, 1, txt,
+                                          (kUnicodeKeepInfoMask |
+                                           kUnicodeStringUnterminatedMask),
+                                          0, NULL, NULL, NULL,
+                                          sizeof(utxt), &iread, &olen, utxt);
+           if (err == noErr)
+               len = olen / sizeof(*utxt);
+       }
+    } else {
+       int charset;
+       char *tptr = txt;
+       int tlen = 1;
+
+       charset = charset_from_macenc(key_script,
+                                     GetScriptManagerVariable(smRegionCode),
+                                     mac_gestalts.sysvers, NULL);
+       if (charset != CS_NONE) {
+           len = charset_to_unicode(&tptr, &tlen, utxt, sizeof(utxt), charset,
+                                    NULL, NULL, 0);
+       }
+    }
+    term_key(s->term, keysym, utxt, len, mods, flags);
 }
 
 void request_paste(void *frontend)
@@ -803,12 +889,15 @@ void mac_growterm(WindowPtr window, EventRecord *event) {
     long grow_result;
     int newrows, newcols;
     Session *s;
+#if !TARGET_API_MAC_CARBON
     DragGrayRgnUPP draghooksave;
     GrafPtr portsave;
     FontInfo fi;
+#endif
 
     s = (Session *)GetWRefCon(window);
 
+#if !TARGET_API_MAC_CARBON
     draghooksave = LMGetDragHook();
     growterm_state.oldmsg[0] = '\0';
     growterm_state.zeromouse = event->where;
@@ -827,15 +916,18 @@ void mac_growterm(WindowPtr window, EventRecord *event) {
            StringWidth("\p99999x99999") + 4, fi.ascent + fi.descent + 4);
     SetPt(&growterm_state.msgorigin, 2, fi.ascent + 2);
     LMSetDragHook(NewDragGrayRgnUPP(mac_growtermdraghook));
+#endif
 
     SetRect(&limits, s->font_width + 15, s->font_height, SHRT_MAX, SHRT_MAX);
     grow_result = GrowWindow(window, event->where, &limits);
 
+#if !TARGET_API_MAC_CARBON
     DisposeDragGrayRgnUPP(LMGetDragHook());
     LMSetDragHook(draghooksave);
     InvalRect(&growterm_state.msgrect);
 
     SetPort(portsave);
+#endif
 
     if (grow_result != 0) {
        newrows = HiWord(grow_result) / s->font_height;
@@ -845,6 +937,7 @@ void mac_growterm(WindowPtr window, EventRecord *event) {
     }
 }
 
+#if !TARGET_API_MAC_CARBON
 static pascal void mac_growtermdraghook(void)
 {
     Session *s = growterm_state.s;
@@ -872,6 +965,7 @@ static pascal void mac_growtermdraghook(void)
     DrawString(pbuf);
     SetPort(portsave);
 }
+#endif
 
 void mac_closeterm(WindowPtr window)
 {
@@ -912,16 +1006,24 @@ void mac_activateterm(WindowPtr window, Boolean active) {
 
 void mac_updateterm(WindowPtr window) {
     Session *s;
+    Rect bbox;
+#if TARGET_API_MAC_CARBON
+    RgnHandle visrgn;
+#endif
 
     s = (Session *)GetWRefCon(window);
-    SetPort(window);
+    SetPort((GrafPtr)GetWindowPort(window));
     BeginUpdate(window);
     pre_paint(s);
-    term_paint(s->term, s,
-              PTOCC((*window->visRgn)->rgnBBox.left),
-              PTOCR((*window->visRgn)->rgnBBox.top),
-              PTOCC((*window->visRgn)->rgnBBox.right),
-              PTOCR((*window->visRgn)->rgnBBox.bottom), 1);
+#if TARGET_API_MAC_CARBON
+    visrgn = NewRgn();
+    GetPortVisibleRegion(GetWindowPort(window), visrgn);
+    GetRegionBounds(visrgn, &bbox);
+#else
+    bbox = (*window->visRgn)->rgnBBox;
+#endif
+    term_paint(s->term, s, PTOCC(bbox.left), PTOCR(bbox.top),
+              PTOCC(bbox.right), PTOCR(bbox.bottom), 1);
     /* Restore default colours in case the Window Manager uses them */
     if (HAVE_COLOR_QD()) {
        PmForeColor(DEFAULT_FG);
@@ -931,8 +1033,14 @@ void mac_updateterm(WindowPtr window) {
        BackColor(blackColor);
     }
     if (FrontWindow() != window)
+#if TARGET_API_MAC_CARBON
+       EraseRect(GetControlBounds(s->scrollbar, &bbox));
+    UpdateControls(window, visrgn);
+    DisposeRgn(visrgn);
+#else
        EraseRect(&(*s->scrollbar)->contrlRect);
     UpdateControls(window, window->visRgn);
+#endif
     mac_drawgrowicon(s);
     post_paint(s);
     EndUpdate(window);
@@ -942,12 +1050,16 @@ static void mac_drawgrowicon(Session *s) {
     Rect clip;
     RgnHandle savergn;
 
-    SetPort(s->window);
+    SetPort((GrafPtr)GetWindowPort(s->window));
     /*
      * Stop DrawGrowIcon giving us space for a horizontal scrollbar
      * See Tech Note TB575 for details.
      */
+#if TARGET_API_MAC_CARBON
+    GetPortBounds(GetWindowPort(s->window), &clip);
+#else
     clip = s->window->portRect;
+#endif
     clip.left = clip.right - 15;
     savergn = NewRgn();
     GetClip(savergn);
@@ -975,19 +1087,23 @@ struct do_text_args {
 void do_text(Context ctx, int x, int y, char *text, int len,
             unsigned long attr, int lattr) {
     Session *s = ctx;
-    int style = 0;
+    int style;
     struct do_text_args a;
     RgnHandle textrgn, saveclip;
+#if TARGET_API_MAC_CARBON
+    RgnHandle visrgn;
+#endif
     char mactextbuf[1024];
     UniChar unitextbuf[1024];
     wchar_t *unitextptr;
     int i, fontwidth;
     ByteCount iread, olen;
     OSStatus err;
+    static DeviceLoopDrawingUPP do_text_for_device_upp = NULL;
 
     assert(len <= 1024);
 
-    SetPort(s->window);
+    SetPort((GrafPtr)GetWindowPort(s->window));
 
     fontwidth = s->font_width;
     if ((lattr & LATTR_MODE) != LATTR_NORM)
@@ -1000,8 +1116,18 @@ void do_text(Context ctx, int x, int y, char *text, int len,
     a.textrect.right = (x + len) * fontwidth;
     if (a.textrect.right > s->term->cols * s->font_width)
        a.textrect.right = s->term->cols * s->font_width;
+#if TARGET_API_MAC_CARBON
+    visrgn = NewRgn();
+    GetPortVisibleRegion(GetWindowPort(s->window), visrgn);
+    if (!RectInRgn(&a.textrect, visrgn)) {
+       DisposeRgn(visrgn);
+       return;
+    }
+    DisposeRgn(visrgn);
+#else
     if (!RectInRgn(&a.textrect, s->window->visRgn))
        return;
+#endif
 
     /* Unpack Unicode from the mad format we get passed */
     for (i = 0; i < len; i++)
@@ -1029,25 +1155,26 @@ void do_text(Context ctx, int x, int y, char *text, int len,
     a.lattr = lattr;
     switch (lattr & LATTR_MODE) {
       case LATTR_NORM:
-       TextSize(s->cfg.font.height);
+       TextSize(s->cfg.font.size);
        a.numer = s->font_stdnumer;
        a.denom = s->font_stddenom;
        break;
       case LATTR_WIDE:
-       TextSize(s->cfg.font.height);
+       TextSize(s->cfg.font.size);
        a.numer = s->font_widenumer;
        a.denom = s->font_widedenom;
        break;
       case LATTR_TOP:
       case LATTR_BOT:
-       TextSize(s->cfg.font.height * 2);
+       TextSize(s->cfg.font.size * 2);
        a.numer = s->font_bignumer;
        a.denom = s->font_bigdenom;
        break;
     }
-    SetPort(s->window);
+    SetPort((GrafPtr)GetWindowPort(s->window));
     TextFont(s->fontnum);
-    if (s->cfg.font.isbold || (attr & ATTR_BOLD) && !s->cfg.bold_colour)
+    style = s->cfg.font.face;
+    if ((attr & ATTR_BOLD) && !s->cfg.bold_colour)
        style |= bold;
     if (attr & ATTR_UNDER)
        style |= underline;
@@ -1066,23 +1193,33 @@ void do_text(Context ctx, int x, int y, char *text, int len,
     ClipRect(&a.textrect);
     textrgn = NewRgn();
     RectRgn(textrgn, &a.textrect);
-    if (HAVE_COLOR_QD())
-       DeviceLoop(textrgn, &do_text_for_device_upp, (long)&a, 0);
-    else
+    if (HAVE_COLOR_QD()) {
+       if (do_text_for_device_upp == NULL)
+           do_text_for_device_upp =
+               NewDeviceLoopDrawingUPP(&do_text_for_device);
+       DeviceLoop(textrgn, do_text_for_device_upp, (long)&a, 0);
+    } else
        do_text_for_device(1, 0, NULL, (long)&a);
     SetClip(saveclip);
     DisposeRgn(saveclip);
     DisposeRgn(textrgn);
     /* Tell the window manager about it in case this isn't an update */
+#if TARGET_API_MAC_CARBON
+    ValidWindowRect(s->window, &a.textrect);
+#else
     ValidRect(&a.textrect);
+#endif
 }
 
 static pascal void do_text_for_device(short depth, short devflags,
                                      GDHandle device, long cookie) {
-    struct do_text_args *a;
+    struct do_text_args *a = (struct do_text_args *)cookie;
     int bgcolour, fgcolour, bright, reverse, tmp;
-
-    a = (struct do_text_args *)cookie;
+#if TARGET_API_MAC_CARBON
+    CQDProcsPtr gp = GetPortGrafProcs(GetWindowPort(a->s->window));
+#else
+    QDProcsPtr gp = a->s->window->grafProcs;
+#endif
 
     bright = (a->attr & ATTR_BOLD) && a->s->cfg.bold_colour;
     reverse = a->attr & ATTR_REVERSE;
@@ -1143,9 +1280,8 @@ static pascal void do_text_for_device(short depth, short devflags,
        break;
     }
     /* FIXME: Sort out bold width adjustments on Original QuickDraw. */
-    if (a->s->window->grafProcs != NULL)
-       InvokeQDTextUPP(a->len, a->text, a->numer, a->denom,
-                       a->s->window->grafProcs->textProc);
+    if (gp != NULL)
+       InvokeQDTextUPP(a->len, a->text, a->numer, a->denom, gp->textProc);
     else
        StdText(a->len, a->text, a->numer, a->denom);
 
@@ -1177,11 +1313,21 @@ void do_cursor(Context ctx, int x, int y, char *text, int len,
 void pre_paint(Session *s) {
     GDHandle gdh;
     Rect myrect, tmprect;
+#if TARGET_API_MAC_CARBON
+    RgnHandle visrgn;
+#endif
 
     if (HAVE_COLOR_QD()) {
        s->term->attr_mask = 0;
-       SetPort(s->window);
+       SetPort((GrafPtr)GetWindowPort(s->window));
+#if TARGET_API_MAC_CARBON
+       visrgn = NewRgn();
+       GetPortVisibleRegion(GetWindowPort(s->window), visrgn);
+       GetRegionBounds(visrgn, &myrect);
+       DisposeRgn(visrgn);
+#else
        myrect = (*s->window->visRgn)->rgnBBox;
+#endif
        LocalToGlobal((Point *)&myrect.top);
        LocalToGlobal((Point *)&myrect.bottom);
        for (gdh = GetDeviceList();
@@ -1239,8 +1385,8 @@ void set_sbar(void *frontend, int total, int start, int page) {
     Session *s = frontend;
 
     /* We don't redraw until we've set everything up, to avoid glitches */
-    (*s->scrollbar)->contrlMin = 0;
-    (*s->scrollbar)->contrlMax = total - page;
+    SetControlMinimum(s->scrollbar, 0);
+    SetControlMaximum(s->scrollbar, total - page);
     SetControlValue(s->scrollbar, start);
 #if !TARGET_CPU_68K
     if (mac_gestalts.cntlattr & gestaltControlMgrPresent)
@@ -1405,9 +1551,15 @@ int is_iconic(void *frontend)
 void get_window_pos(void *frontend, int *x, int *y)
 {
     Session *s = frontend;
+    Rect rect;
 
-    *x = s->window->portRect.left;
-    *y = s->window->portRect.top;
+#if TARGET_API_MAC_CARBON
+    GetPortBounds(GetWindowPort(s->window), &rect);
+#else
+    rect = s->window->portRect;
+#endif
+    *x = rect.left;
+    *y = rect.top;
 }
 
 /*
@@ -1416,9 +1568,15 @@ void get_window_pos(void *frontend, int *x, int *y)
 void get_window_pixels(void *frontend, int *x, int *y)
 {
     Session *s = frontend;
+    Rect rect;
 
-    *x = s->window->portRect.right - s->window->portRect.left;
-    *y = s->window->portRect.bottom - s->window->portRect.top;
+#if TARGET_API_MAC_CARBON
+    GetPortBounds(GetWindowPort(s->window), &rect);
+#else
+    rect = s->window->portRect;
+#endif
+    *x = rect.right - rect.left;
+    *y = rect.bottom - rect.top;
 }
 
 /*
@@ -1514,7 +1672,7 @@ void do_scroll(Context ctx, int topline, int botline, int lines) {
     RgnHandle update = NewRgn();
     Point g2l = { 0, 0 };
 
-    SetPort(s->window);
+    SetPort((GrafPtr)GetWindowPort(s->window));
 
     /*
      * Work out the part of the update region that will scrolled by
@@ -1528,11 +1686,19 @@ void do_scroll(Context ctx, int topline, int botline, int lines) {
        SetRectRgn(scrollrgn, 0, topline * s->font_height,
                   s->term->cols * s->font_width,
                   (botline - lines + 1) * s->font_height);
-    CopyRgn(((WindowPeek)s->window)->updateRgn, movedupdate);
+#if TARGET_API_MAC_CARBON
+    GetWindowRegion(s->window, kWindowUpdateRgn, movedupdate);
+#else
+    GetWindowUpdateRgn(s->window, movedupdate);
+#endif
     GlobalToLocal(&g2l);
     OffsetRgn(movedupdate, g2l.h, g2l.v); /* Convert to local co-ords. */
     SectRgn(scrollrgn, movedupdate, movedupdate); /* Clip scrolled section. */
+#if TARGET_API_MAC_CARBON
+    ValidWindowRgn(s->window, movedupdate);
+#else
     ValidRgn(movedupdate);
+#endif
     OffsetRgn(movedupdate, 0, -lines * s->font_height); /* Scroll it. */
 
     PenNormal();
@@ -1544,8 +1710,13 @@ void do_scroll(Context ctx, int topline, int botline, int lines) {
            s->term->cols * s->font_width, (botline + 1) * s->font_height);
     ScrollRect(&r, 0, - lines * s->font_height, update);
 
+#if TARGET_API_MAC_CARBON
+    InvalWindowRgn(s->window, update);
+    InvalWindowRgn(s->window, movedupdate);
+#else
     InvalRgn(update);
     InvalRgn(movedupdate);
+#endif
 
     DisposeRgn(scrollrgn);
     DisposeRgn(movedupdate);