OberonCore

...
case WM_CHAR:
            if (((wParam >= 128) || !iscntrl(wParam)) || !lastKeyDownConsumed) {
                if (::IsWindowUnicode(MainHWND()) || keysAlwaysUnicode) {
                    wchar_t wcs[2] = {static_cast<wchar_t>(wParam), 0};
                    if (IsUnicodeMode()) {
                        // For a wide character version of the window:
                        char utfval[4];
                        unsigned int len = UTF8Length(wcs, 1);
                        UTF8FromUTF16(wcs, 1, utfval, len);
                        AddCharUTF(utfval, len);
                    } else {
                        UINT cpDest = CodePageOfDocument();
                        char inBufferCP[20];
                        int size = ::WideCharToMultiByte(cpDest,
                            0, wcs, 1, inBufferCP, sizeof(inBufferCP) - 1, 0, 0);
                        inBufferCP[size] = '\0';
                        AddCharUTF(inBufferCP, size);
                    }
                } else {
                    if (IsUnicodeMode()) {
                        AddCharBytes('\0', LOBYTE(wParam));
                    } else {
                        AddChar(LOBYTE(wParam));
                    }
                }
            }
            return 0;
...

...
case WM_CHAR:
            if (((wParam >= 128) || !iscntrl(wParam)) || !lastKeyDownConsumed) {
                if (TRUE) {
                    wchar_t wcs[2] = {static_cast<wchar_t>(wParam), 0};
                    if (IsUnicodeMode()) {
                        // For a wide character version of the window:
                        char utfval[4];
                        unsigned int len = UTF8Length(wcs, 1);
                        UTF8FromUTF16(wcs, 1, utfval, len);
                        AddCharUTF(utfval, len);
                    } else {
                        UINT cpDest = CodePageOfDocument();
                        char inBufferCP[20];
                        int size = ::WideCharToMultiByte(cpDest,
                            0, wcs, 1, inBufferCP, sizeof(inBufferCP) - 1, 0, 0);
                        inBufferCP[size] = '\0';
                        AddCharUTF(inBufferCP, size);
                    }
                } else {
                    if (IsUnicodeMode()) {
                        AddCharBytes('\0', LOBYTE(wParam));
                    } else {
                        AddChar(LOBYTE(wParam));
                    }
                }
            }
            return 0;
...

MODULE CdTest;
    IMPORT
        Iup := IupLib, Cd := CdLib, IupCd, SYSTEM;
    VAR
        canvas: Cd.Canvas;
        res: INTEGER;

PROCEDURE [ccall] ActionCB(self: Iup.Ihandle);
BEGIN
    res := Cd.CanvasActivate(canvas);
    Cd.CanvasClear(canvas);
    Cd.CanvasSetForeground(canvas, 0FF0000H);
    Cd.CanvasBox(canvas, 10, 55, 10, 55);
    res := Cd.CanvasFont(canvas, "Times", 0, 24);
    Cd.CanvasText(canvas, 100, 100, "Hello World!");
END ActionCB;   
   
PROCEDURE Main*;
    VAR
        dlg, cnv: Iup.Ihandle;
        context: Cd.Context;
        prev: Iup.Icallback; (* the address of the previous function associated to the action. *)
BEGIN
    res := Iup.Open(NIL, NIL);
   
    cnv := Iup.Canvas(NIL); ASSERT(cnv # NIL);
    Iup.SetAttribute(cnv, "RASTERSIZE", "300x200");
    Iup.SetAttribute(cnv, "EXPAND", "YES");
    prev := Iup.SetCallback(cnv, "ACTION", SYSTEM.ADR(ActionCB));
   
    dlg := Iup.Dialog(Iup.SetAttributes(Iup.Vbox(cnv, NIL), "MARGIN = 10x10, GAP = 10"));
    Iup.SetAttribute(dlg, "TITLE", "Canvas Draw Example");
   
    res := Iup.Map(dlg);
   
    context := IupCd.ContextIup();
    canvas := Cd.CreateCanvas(context, SYSTEM.VAL(Cd.Pointer, cnv));

    res := Iup.Show(dlg);
    res := Iup.MainLoop();
    Cd.KillCanvas(canvas);
    Iup.Destroy(cnv);
    Iup.Close();
       
END Main;
       
BEGIN
    Main;
END CdTest.Main

^Q DevLinker.LinkExe
Simple.exe := CdTest ~

Iup.SetAttribute(sci, "KEYSUNICODE", "YES");

MODULE CdTest3;
IMPORT
    gl := OglOpenGL32,
    glu := OglGLU32,
    glfw := GlfwLib,
    Cd := CdLib, CdOgl, (*Log,*) SYSTEM;
CONST w = 640; h = 480;
VAR canvas: Cd.Canvas;
PROCEDURE Main*;
VAR
    res: INTEGER;
    context: Cd.Context;
    oldang: REAL;
    par: Cd.String;
    run: BOOLEAN;
   
    PROCEDURE Status;
    BEGIN (*Log.Int(res); Log.Ln;*) ASSERT(res # 0);
    END Status;
   
BEGIN
   
    res := glfw.Init(); Status;
    res := glfw.OpenWindow(640,480, 0,0,0,0, 32,0, glfw.WINDOW); Status;
    glfw.SetWindowTitle("Test");
    glfw.Enable(glfw.KEY_REPEAT);
    glfw.SwapInterval(1);
   
    context := CdOgl.Context(); ASSERT(context # NIL);
    par := "640x480";
    canvas := Cd.CreateCanvas(context, SYSTEM.VAL(Cd.Pointer, par)); ASSERT(canvas # NIL);
   
    gl.MatrixMode(gl.GL_PROJECTION);
    gl.LoadIdentity();
   glu.Ortho2D(0, 640, 0, 480);

   gl.MatrixMode(gl.GL_MODELVIEW);
   gl.LoadIdentity();
   
    WHILE glfw.GetWindowParam(glfw.OPENED) # 0 DO
        IF Cd.CanvasActivate(canvas) = 0 THEN
           
            Cd.CanvasClear(canvas);
            Cd.CanvasSetForeground(canvas, 0FF0000H);
            Cd.CanvasBox(canvas, 10, 55, 10, 55);
            res := Cd.CanvasFont(canvas, "Times", {6}, 48);
            oldang := Cd.CanvasTextOrientation(canvas, 45);
            Cd.CanvasText(canvas, 100, 100, "Hello World!");
           
        END;
        glfw.SwapBuffers();
    END;
    Cd.KillCanvas(canvas);
    glfw.Terminate();
   
END Main;
       
BEGIN
    (*Main;*)
END CdTest3.Main

DevLinker.LinkExe
CdTest3.exe := CdTest3 ~

TYPE ILexer = ARRAY 11 OF SYSTEM.ADRESS;
VAR iLexer: ILexer;

PROCEDURE ['StdCall'] ILexerVersion(): LONGINT;
BEGIN
   RETURN 1
END ILexerVersion;

PROCEDURE ['StdCall'] GetLexerFactory(): SYSTEM.ADDRESS;
BEGIN
   iLexer[0] := SYSTEM.ADR(ILexerVersion);
   ...
   RETURN SYSTEM.ADR(iLexer)
END GetLexerFactory;