OberonCore

PROCEDURE (rd: Rider) DrawString* (
      x, y: INTEGER; col: Ports.Color; IN s: ARRAY OF CHAR; font: Fonts.Font
   );
...
            res := WinApi.SetTextColor(dc, col);
            IF df.noGap THEN INC(x) END;   (* caret pos optimization *)
            (*PATCH BEGIN*)
            res := WinApi.ExtTextOutW(dc, x, y, 0, NIL, s, n, NIL)
            (*PATCH END*)
....
   END DrawString;