OberonCore

<Caption>::StartMenu:ButtonTitles:STutorial</Caption>

Simple Translation:  “::” + RepositoryName + “:” + DictionaryName + “:” + Word
Complex Translation:  “::” + RepositoryName + “:” + DictionaryName + “:” + String
whereas each occurrence of “:” x “:” in String will be replaced by the translation of x.

      PROCEDURE Translate(value: Strings.String): Strings.String;
      VAR
         res : WORD;
         temp, word : Strings.String;
         dictionary : Repositories.Dictionary;
      BEGIN
         IF value # NIL THEN
            Repositories.GetTranslationInfo(value^, dictionary, word, res);
            IF (dictionary # NIL) & (word # NIL) THEN
               temp := dictionary.Translate(word, languages);
               IF (temp # word) THEN
                  RETURN temp
               END
            END
         END;
         RETURN NIL
      END Translate;

   Display = OBJECT (Displays.Display) (* only one instance of this object allowed ! *)

      PROCEDURE Transfer*( VAR buf: ARRAY OF CHAR;  ofs, stride, x, y, w, h, op: LONGINT );
      BEGIN

         IF letWindowsHandleTheBuffer THEN
            IF op = Displays.set THEN
               ToMemory( root, buf, ofs, stride, x, y, w, h );  ToWindow( root, x, y, w, h, root.dx, root.dy );
            ELSE FromMemory( root, buf, ofs, stride, x, y, w, h );
            END;
         ELSE
            IF root.bmadr = 0 THEN GetDC( root ) END;
            InitFrameBuffer( root.bmadr, disp.width * disp.height * format, disp.width * disp.format);  Transfer^( buf, ofs, stride, x, y, w, h, op );
            IF Displays.reverse THEN
               IF op = Displays.set THEN ToWindow( root, disp.width-x-w,disp.height-y-h, w, h, root.dx, root.dy );  END;
            ELSE
               IF op = Displays.set THEN ToWindow( root, x, y, w, h, root.dx, root.dy );  END;
            END;
         END;

      END Transfer;

   END Display;