The Ecere SDK - sdk/blob - samples/guiAndGfx/dataBoxes/dataBoxes.ec

   1 import "ecere"
   2
   3 class ColorFun : Window
   4 {
   5    text = "Fun With Colors and Data Boxes";
   6    background = activeBorder;
   7    borderStyle = sizable;
   8    hasMaximize = true;
   9    hasMinimize = true;
  10    hasClose = true;
  11    nativeDecorations = true;
  12    tabCycle = true;
  13    size = { 640, 480 };
  14
  15    Color color;
  16    color = activeBorder;
  17    SavingDataBox colorBox
  18    {
  19       this, size = { 116, 20 }, position = { 176, 104 }; data = &color; type = class(Color);
  20
  21       bool NotifyChanged(bool closingDropDown)
  22       {
  23          background = color;
  24          return true;
  25       }
  26    };
  27
  28    Date date;
  29    DateTime now;
  30    date = (now.GetLocalTime(), Date { now.year, now.month, now.day });
  31    SavingDataBox dateBox
  32    {
  33       this, size = { 200, 20 }, position = { 376, 104 }; data = &date; type = class(Date);
  34    };
  35
  36    DateTime dateTime;
  37    dateTime = now;
  38    SavingDataBox dateTimeBox
  39    {
  40       this, size = { 200, 20 }, position = { 376, 304 }; data = &dateTime; type = class(DateTime);
  41    };
  42
  43    double d;
  44    d = Pi;
  45    SavingDataBox doubleBox
  46    {
  47       this, size = { 116, 20 }, position = { 176, 204 }; data = &d; type = class(double);
  48    };
  49 }
  50
  51 ColorFun form {};