OberonCore

   PROCEDURE InitIcons;
      VAR font: Fonts.Font;

      PROCEDURE DefaultAppearance;
      BEGIN
         font := Fonts.dir.Default(); iconFont := font.typeface$;
         leftExp := ">"; rightExp := "<";
         leftColl := "=>"; rightColl := "<=";
         coloredBackg := TRUE
      END DefaultAppearance;

   BEGIN
      IF Dialog.platform = Dialog.linux THEN (* Linux *)
         DefaultAppearance;
         coloredBackg := FALSE
      ELSIF Dialog.platform = Dialog.wine THEN (* Linux Wine *)
         iconFont := "Webdings";
         font := Fonts.dir.This(iconFont, 10*Fonts.point (*arbitrary*), {}, Fonts.normal);
         IF font.IsAlien() THEN DefaultAppearance
         ELSE
            leftExp  := 0F034X;    rightExp := 0F033X;
            leftColl := 0F038X;    rightColl := 0F037X;
            coloredBackg := FALSE
         END
      ELSIF Dialog.platform DIV 10 = 1 THEN (* Windows *)
         iconFont := "Wingdings";
         font := Fonts.dir.This(iconFont, 10*Fonts.point (*arbitrary*), {}, Fonts.normal);
         IF font.IsAlien() THEN DefaultAppearance
         ELSE
            (*
            leftExp[0] := SHORT(CHR(240)); leftExp[1] := 0X;
            rightExp[0] := SHORT(CHR(239)); rightExp[1] := 0X;
            leftColl[0] := SHORT(CHR(232)); leftColl[1] := 0X;
            rightColl[0] := SHORT(CHR(231)); rightColl[1] := 0X;
            *)
            leftExp[0] := 0F0F0X; leftExp[1] := 0X;   (* "" *)
            rightExp[0] := 0F0EFX; rightExp[1] := 0X;   (* "" *)
            leftColl[0] := 0F0E8X; leftColl[1] := 0X;   (* "" *)
            rightColl[0] := 0F0E7X; rightColl[1] := 0X;   (* "" *)
            coloredBackg := FALSE
         END
      ELSIF Dialog.platform DIV 10 = 2 THEN (* Mac *)
         iconFont := "Chicago";
         font := Fonts.dir.This(iconFont, 10*Fonts.point (*arbitrary*), {}, Fonts.normal);
         IF font.IsAlien() THEN DefaultAppearance
         ELSE
            leftExp := ">"; rightExp := "<";
            leftColl := "»"; rightColl := "«";
            coloredBackg := TRUE
         END
      ELSE
         DefaultAppearance
      END
   END InitIcons;