The Ecere SDK - chess/blob - src/about.ec

   1 import "chess.ec"
   2
   3 class AboutChess : Window
   4 {
   5    background = black;
   6    foreground = white, size = Size { 440, 200 }, hasClose = true,
   7    text = APPNAME;
   8
   9    Button ok
  10    {
  11       this, isDefault = true, text = "OK",
  12       anchor = { bottom = 10 }, size = { 80 };
  13
  14       NotifyClicked = ButtonCloseDialog;
  15    };
  16
  17    Picture picture
  18    {
  19       this, position = { 0, 10 }, image = { ":aboutPic.jpg" },
  20       size = { 180, 130 }
  21    };
  22
  23    void OnRedraw(Surface surface)
  24    {
  25       surface.WriteTextf(200, 30, "Copyright (c) 1996-2005");
  26       surface.WriteTextf(200, 50, "   Jerome Jacovella-St-Louis");
  27       surface.WriteTextf(200, 70, "Models Copyright (c) 2004");
  28       surface.WriteTextf(200, 90, "   Gaetan Loyer");
  29    }
  30 }