The Ecere SDK - sdk/blob - ide/src/designer/Sheet.ec

   1 import "ide"
   2
   3 import "CodeObject"
   4
   5 static void UnusedFunction()
   6 {
   7    int a;
   8    Module b;
   9    a.OnGetString(0,0,0);
  10    a.OnFree();
  11    a.OnCopy(null);
  12    a.OnCompare(null);
  13    a.OnSaveEdit(null,0);
  14    a.OnEdit(null,null,0,0,0,0,0);
  15    a.OnDisplay(null,0,0,0,0,0,0);
  16    b.OnLoad();
  17 }
  18
  19 extern int __ecereVMethodID_class_OnEdit;
  20 extern int __ecereVMethodID_class_OnDisplay;
  21 extern int __ecereVMethodID_class_OnGetString;
  22 extern int __ecereVMethodID_class_OnFree;
  23 extern int __ecereVMethodID_class_OnCompare;
  24 extern int __ecereVMethodID_class_OnCopy;
  25 extern int __ecereVMethodID_class_OnSaveEdit;
  26
  27 //#define SHOW_METHODS
  28
  29
  30 // *** THESE METHODS SHOULD BE IMPROVED UPON AND USED TO SET PROPERTIES FROM NOW ON ***
  31 //     (Other locations where this will be useful: JSON (DataValue version?), CodeEditor, ...)
  32 // This takes in a value according to the any_object rules
  33
  34 void SetPropValue(Property prop, void * object, any_object value)
  35 {
  36    Class type = prop.dataTypeClass;
  37    if(!type)
  38       type = prop.dataTypeClass = eSystem_FindClass(prop._class.module, prop.dataTypeString);
  39
  40    if(type.type == normalClass || type.type == noHeadClass || type.type == structClass)
  41    {
  42       prop.Set(object, value);
  43    }
  44    // TOFIX: How to swiftly handle classes with base data type?
  45    else if(type == class(double) || !strcmp(type.dataTypeString, "double"))
  46    {
  47       ((void (*)(void *, double))(void *)prop.Set)(object, *(double *)value);
  48    }
  49    else if(type == class(float) || !strcmp(type.dataTypeString, "float"))
  50    {
  51       ((void (*)(void *, float))(void *)prop.Set)(object, *(float *)value);
  52    }
  53    else if(type.typeSize == sizeof(int64))// || !strcmp(type.dataTypeString, "int64") || !strcmp(type.dataTypeString, "unsigned int64") || !strcmp(type.dataTypeString, "uint64"))
  54    {
  55       ((void (*)(void *, int64))(void *)prop.Set)(object, *(int64 *)value);
  56    }
  57    else if(type.typeSize == sizeof(int))// || !strcmp(type.dataTypeString, "int") || !strcmp(type.dataTypeString, "unsigned int") || !strcmp(type.dataTypeString, "uint"))
  58    {
  59       ((void (*)(void *, int))(void *)prop.Set)(object, *(int *)value);
  60    }
  61    else if(type.typeSize == sizeof(short int)) // || !strcmp(type.dataTypeString, "short") || !strcmp(type.dataTypeString, "unsigned short") || !strcmp(type.dataTypeString, "uint16") ||  !strcmp(type.dataTypeString, "int16"))
  62    {
  63       ((void (*)(void *, short))(void *)prop.Set)(object, *(short *)value);
  64    }
  65    else if(type.typeSize == sizeof(byte))// || !strcmp(type.dataTypeString, "char") || !strcmp(type.dataTypeString, "unsigned char") || !strcmp(type.dataTypeString, "byte"))
  66    {
  67       ((void (*)(void *, byte))(void *)prop.Set)(object, *(byte *)value);
  68    }
  69    else
  70    {
  71       ((void (*)(void *, void *))(void *)prop.Set)(object, value);
  72    }
  73 }
  74
  75 any_object GetPropValue(Property prop, Instance object)
  76 {
  77    if(object)
  78    {
  79       Class type = prop.dataTypeClass;
  80       if(!type)
  81       {
  82          type = prop.dataTypeClass = eSystem_FindClass(prop._class.module, prop.dataTypeString);
  83       }
  84
  85       if(type.type == normalClass || type.type == noHeadClass || type.type == structClass)
  86       {
  87          return ((void*(*)())(void *)prop.Get)(object);
  88       }
  89       // TOFIX: How to swiftly handle classes with base data type?
  90       else if(type == class(double) || !strcmp(type.dataTypeString, "double"))
  91       {
  92          double d = ((double(*)())(void *)prop.Get)(object);
  93          return d;
  94       }
  95       else if(type == class(float) || !strcmp(type.dataTypeString, "float"))
  96       {
  97          float f =((float(*)())(void *)prop.Get)(object);
  98          return f;
  99       }
 100       else if(type.typeSize == sizeof(int64))// || !strcmp(type.dataTypeString, "int64") || !strcmp(type.dataTypeString, "unsigned int64") || !strcmp(type.dataTypeString, "uint64"))
 101       {
 102          return ((int64(*)())(void *)prop.Get)(object);
 103       }
 104       else if(type.typeSize == sizeof(int))// || !strcmp(type.dataTypeString, "int") || !strcmp(type.dataTypeString, "unsigned int") || !strcmp(type.dataTypeString, "uint"))
 105       {
 106          return ((int(*)())(void *)prop.Get)(object);
 107       }
 108       else if(type.typeSize == sizeof(short int)) // || !strcmp(type.dataTypeString, "short") || !strcmp(type.dataTypeString, "unsigned short") || !strcmp(type.dataTypeString, "uint16") ||  !strcmp(type.dataTypeString, "int16"))
 109       {
 110          return ((short(*)())(void *)prop.Get)(object);
 111       }
 112       else if(type.typeSize == sizeof(byte))// || !strcmp(type.dataTypeString, "char") || !strcmp(type.dataTypeString, "unsigned char") || !strcmp(type.dataTypeString, "byte"))
 113       {
 114          return ((byte(*)())(void *)prop.Get)(object);
 115       }
 116       else
 117       {
 118          return prop.Get(object);
 119       }
 120    }
 121    else
 122       return 0;
 123 }
 124
 125 void CopyProperty(Property prop, Instance dest, Instance src)
 126 {
 127    Class type = prop.dataTypeClass;
 128    if(!type)
 129       type = prop.dataTypeClass = eSystem_FindClass(prop._class.module, prop.dataTypeString);
 130
 131    if(type.type == structClass)
 132    {
 133       void * propData = new0 byte[type.structSize];
 134       prop.Get(src, propData);
 135       prop.Set(dest, propData);
 136       delete propData;
 137    }
 138    else if(type.type == normalClass || type.type == noHeadClass)
 139    {
 140       // TOCHECK: Why was there a return here?
 141       /*return */prop.Set(dest, ((void*(*)())(void *)prop.Get)(src));
 142    }
 143    // TOFIX: How to swiftly handle classes with base data type?
 144    else if(type == class(double) || !strcmp(type.dataTypeString, "double"))
 145    {
 146       ((void (*)(void *, double))(void *)prop.Set)(dest, ((double(*)())(void *)prop.Get)(src));
 147    }
 148    else if(type == class(float) || !strcmp(type.dataTypeString, "float"))
 149    {
 150       ((void (*)(void *, float))(void *)prop.Set)(dest, ((float(*)())(void *)prop.Get)(src));
 151    }
 152    else if(type.typeSize == sizeof(int64))// || !strcmp(type.dataTypeString, "int64") || !strcmp(type.dataTypeString, "unsigned int64") || !strcmp(type.dataTypeString, "uint64"))
 153    {
 154       ((void (*)(void *, int64))(void *)prop.Set)(dest, ((int64(*)())(void *)prop.Get)(src));
 155    }
 156    else if(type.typeSize == sizeof(int))// || !strcmp(type.dataTypeString, "int") || !strcmp(type.dataTypeString, "unsigned int") || !strcmp(type.dataTypeString, "uint"))
 157    {
 158       ((void (*)(void *, int))(void *)prop.Set)(dest, ((int(*)())(void *)prop.Get)(src));
 159    }
 160    else if(type.typeSize == sizeof(short int)) // || !strcmp(type.dataTypeString, "short") || !strcmp(type.dataTypeString, "unsigned short") || !strcmp(type.dataTypeString, "uint16") ||  !strcmp(type.dataTypeString, "int16"))
 161    {
 162       ((void (*)(void *, short))(void *)prop.Set)(dest, ((short(*)())(void *)prop.Get)(src));
 163    }
 164    else if(type.typeSize == sizeof(byte))// || !strcmp(type.dataTypeString, "char") || !strcmp(type.dataTypeString, "unsigned char") || !strcmp(type.dataTypeString, "byte"))
 165    {
 166       ((void (*)(void *, byte))(void *)prop.Set)(dest, ((byte(*)())(void *)prop.Get)(src));
 167    }
 168    else
 169    {
 170       prop.Set(dest, prop.Get(src));
 171    }
 172 }
 173
 174 void GetProperty(Property prop, Instance object, DataValue value)
 175 {
 176    if(object)
 177    {
 178       Class type = prop.dataTypeClass;
 179       if(!type)
 180       {
 181          type = prop.dataTypeClass = eSystem_FindClass(prop._class.module, prop.dataTypeString);
 182 #ifdef _DEBUG
 183          if(prop._class.module.application == __thisModule &&
 184             prop.dataTypeClass.module.application == ((Designer)GetActiveDesigner()).codeEditor.privateModule)
 185             printf($"Warning");
 186 #endif
 187       }
 188
 189       if(type.type == normalClass || type.type == noHeadClass || type.type == structClass)
 190       {
 191          value.p = ((void*(*)())(void *)prop.Get)(object);
 192       }
 193       // TOFIX: How to swiftly handle classes with base data type?
 194       else if(type == class(double) || !strcmp(type.dataTypeString, "double"))
 195       {
 196          value.d = ((double(*)())(void *)prop.Get)(object);
 197       }
 198       else if(type == class(float) || !strcmp(type.dataTypeString, "float"))
 199       {
 200          value.f = ((float(*)())(void *)prop.Get)(object);
 201       }
 202       else if(type.typeSize == sizeof(int64))// || !strcmp(type.dataTypeString, "int64") || !strcmp(type.dataTypeString, "unsigned int64") || !strcmp(type.dataTypeString, "uint64"))
 203       {
 204          value.i64 = ((int64(*)())(void *)prop.Get)(object);
 205       }
 206       else if(type.typeSize == sizeof(int))// || !strcmp(type.dataTypeString, "int") || !strcmp(type.dataTypeString, "unsigned int") || !strcmp(type.dataTypeString, "uint"))
 207       {
 208          value.i = ((int(*)())(void *)prop.Get)(object);
 209       }
 210       else if(type.typeSize == sizeof(short int)) // || !strcmp(type.dataTypeString, "short") || !strcmp(type.dataTypeString, "unsigned short") || !strcmp(type.dataTypeString, "uint16") ||  !strcmp(type.dataTypeString, "int16"))
 211       {
 212          value.s = ((short(*)())(void *)prop.Get)(object);
 213       }
 214       else if(type.typeSize == sizeof(byte))// || !strcmp(type.dataTypeString, "char") || !strcmp(type.dataTypeString, "unsigned char") || !strcmp(type.dataTypeString, "byte"))
 215       {
 216          value.uc = ((byte(*)())(void *)prop.Get)(object);
 217       }
 218       else
 219       {
 220          value.i = prop.Get(object);
 221       }
 222    }
 223    else
 224       value.i64 = 0;
 225 }
 226
 227 void SetProperty(Property prop, Instance object, DataValue value)
 228 {
 229    if(object)
 230    {
 231       Class type = prop.dataTypeClass;
 232       if(!type)
 233          type = prop.dataTypeClass = eSystem_FindClass(prop._class.module, prop.dataTypeString);
 234
 235       if(type.type == normalClass || type.type == noHeadClass || type.type == structClass)
 236       {
 237          prop.Set(object, value);
 238       }
 239       // TOFIX: How to swiftly handle classes with base data type?
 240       else if(type == class(double) || !strcmp(type.dataTypeString, "double"))
 241       {
 242          ((void (*)(void *, double))(void *)prop.Set)(object, value.d);
 243       }
 244       else if(type == class(float) || !strcmp(type.dataTypeString, "float"))
 245       {
 246          ((void (*)(void *, float))(void *)prop.Set)(object, value.f);
 247       }
 248       else if(type.typeSize == sizeof(int64))// || !strcmp(type.dataTypeString, "int64") || !strcmp(type.dataTypeString, "unsigned int64") || !strcmp(type.dataTypeString, "uint64"))
 249       {
 250          ((void (*)(void *, int64))(void *)prop.Set)(object, value.i64);
 251       }
 252       else if(type.typeSize == sizeof(int))// || !strcmp(type.dataTypeString, "int") || !strcmp(type.dataTypeString, "unsigned int") || !strcmp(type.dataTypeString, "uint"))
 253       {
 254          ((void (*)(void *, int))(void *)prop.Set)(object, value.i);
 255       }
 256       else if(type.typeSize == sizeof(short int)) // || !strcmp(type.dataTypeString, "short") || !strcmp(type.dataTypeString, "unsigned short") || !strcmp(type.dataTypeString, "uint16") ||  !strcmp(type.dataTypeString, "int16"))
 257       {
 258          ((void (*)(void *, short))(void *)prop.Set)(object, value.s);
 259       }
 260       else if(type.typeSize == sizeof(byte))// || !strcmp(type.dataTypeString, "char") || !strcmp(type.dataTypeString, "unsigned char") || !strcmp(type.dataTypeString, "byte"))
 261       {
 262          ((void (*)(void *, byte))(void *)prop.Set)(object, value.uc);
 263       }
 264       else
 265       {
 266          ((void (*)(void *, int))(void *)prop.Set)(object, value.i);
 267       }
 268    }
 269 }
 270
 271 class Sheet : Window
 272 {
 273    text = $"Sheet";
 274    borderStyle = sizable;
 275    hasClose = true;
 276    //tabCycle = true;
 277    size.w = 300;
 278    anchor = { left = 0, top = 0, bottom = 0 };
 279    background = formColor;
 280
 281    Sheet()
 282    {
 283       dropBox.AddField(dropField);
 284       properties.AddField(propertyName);
 285       properties.AddField(propertyValue);
 286       methods.AddField(methodName);
 287    }
 288
 289    ~Sheet()
 290    {
 291       categories.Free(null);
 292    }
 293
 294    DropBox dropBox
 295    {
 296       this,
 297       anchor = { left = 0, top = 0, right = 0 };
 298
 299       bool NotifySelect(DropBox control, DataRow row, Modifiers keyFlags)
 300       {
 301          ObjectInfo selected = (ObjectInfo)(row ? row.tag : null);
 302          ToolBox toolBox = ((IDEWorkSpace)parent).toolBox;
 303
 304          if(codeEditor && selected)
 305             codeEditor.SelectObject(selected);
 306
 307          // TODO: Get containing class of object
 308          toolBox.selectedClass = selected ? selected.oClass : null;
 309
 310          object = selected ? selected.instance : null;
 311
 312          methods.Clear();
 313          ListProperties(true);
 314
 315          {
 316             DataRow row;
 317             row = methods.currentRow;
 318             if(row)
 319                strcpy(selectedMethod, ((CodeObject)row.GetData(methodName)).name);
 320          }
 321
 322
 323          if(selected && selected.instance && codeEditor)
 324          {
 325             Class _class;
 326             int c = 0;
 327             int rowHeight = methods.rowHeight;
 328
 329             propertyValue.userData = (void *)selected.instance;
 330
 331             // Fill up the methods
 332             {
 333                CodeObjectType type;
 334                {
 335                   for(_class = selected.instance._class; _class && _class.type != systemClass; _class = _class.base)
 336                   {
 337                      int id;
 338                      for(id = _class.base ? _class.base.vTblSize : 0; id<_class.vTblSize; id++)
 339                      {
 340                         Method method;
 341                         for(method = (Method)_class.methods.first; method; method = (Method)((BTNode)method).next)
 342                         {
 343                            if(method.type == virtualMethod && method.vid == id)
 344                            {
 345                               if(!method.dataType)
 346                                  method.dataType = ProcessTypeString(method.dataTypeString, false);
 347
 348                               type = method.dataType.thisClass ? typeEvent : typeMethod;
 349                               {
 350                                  DataRow row = methods.AddRow();
 351                                  CodeObject codeObject
 352                                  {
 353                                     eventsUp = (selected.oClass == selected) ? false : true;
 354                                     type = type;
 355                                     method = method;
 356                                     name = method.name;
 357                                     overriden = codeEditor.FindMethod(method.name, &codeObject.function, null);
 358                                  };
 359                                  if(!codeObject.overriden || codeObject.overriden == 2)
 360                                     codeEditor.FindCompatibleMethods(method, codeObject.compatible);
 361
 362                                  row.SetData(methodName, codeObject);
 363
 364                                  if(!strcmp(method.name, selectedMethod))
 365                                     methods.currentRow = row;
 366                               }
 367                            }
 368                         }
 369                      }
 370                   }
 371                }
 372             }
 373             methods.Sort(methodName, 1);
 374             {
 375                DataRow row;
 376                for(row = methods.firstRow; row; row = row.next)
 377                {
 378                   CodeObject codeObject = row.GetData(methodName);
 379                   CreateButtons(codeObject, row.index * rowHeight, rowHeight, row);
 380                }
 381             }
 382          }
 383          return true;
 384       }
 385    };
 386    DataField dropField { dataType = class(CodeObject) };
 387
 388    Button propBtn
 389    {
 390       this, inactive = true, text = $"Properties", bevelOver = true, isRadio = true;
 391       size.h = 20;
 392       anchor = { left = 0, bottom = 3, right = 0.5 };
 393       bitmap = null;
 394
 395       bool NotifyClicked(Button button, int x, int y, Modifiers mods)
 396       {
 397          text = $"Properties";
 398          button.font = { $"Tahoma", 8.25f, bold = true };
 399          methBtn.font = null;
 400
 401          methods.visible = false;
 402          methBtn.Activate();      // Ensure proper cycling (until tab order?)
 403          properties.visible = true;
 404
 405          alphabetical.disabled = false;
 406          categorized.disabled = false;
 407
 408          properties.Activate();
 409
 410          // ((IDEWorkSpace)master).SheetSelected(Properties);
 411          return true;
 412       }
 413    };
 414
 415    Button methBtn
 416    {
 417       this, inactive = true, bevelOver = true;
 418       text = $"Methods";
 419       isRadio = true;
 420       bitmap = null;
 421       size.h = 20;
 422       anchor = { bottom = 3, left = 0.5, right = 0 };
 423
 424       bool NotifyClicked(Button button, int x, int y, Modifiers mods)
 425       {
 426          text = $"Methods";
 427          button.font = { $"Tahoma", 8.25f, bold = true };
 428          propBtn.font = null;
 429
 430          properties.visible = false;
 431          methBtn.Activate();      // Ensure proper cycling (until tab order?)
 432          methods.visible = true;
 433
 434          alphabetical.disabled = true;
 435          categorized.disabled = true;
 436
 437          methods.Activate();
 438
 439          // ((IDEWorkSpace)master).SheetSelected(Methods);
 440          return true;
 441       }
 442    };
 443
 444    // Menu
 445    menu = Menu { };
 446    MenuPlacement editMenu { menu, text = $"Edit" };
 447    Menu viewMenu { menu, text = $"View" };
 448
 449    // Property Sheet
 450    ListBox properties
 451    {
 452       this, anchor = { left = 0, right = 0, top = 50, bottom = 25 };
 453       hasVertScroll = true, alwaysEdit = true, collapseControl = true, resizable = true;
 454       background = viewsBackground;
 455       foreground = viewsText;
 456
 457       bool NotifySelect(ListBox control, DataRow row, Modifiers keyFlags)
 458       {
 459          /*
 460          if(row)
 461          {
 462             strcpy(selectedProp, (char *)row.GetData(propertyName));
 463             selectedScroll = properties.scroll.y;
 464             selectedScroll -= row.index * properties.rowHeight;
 465          }
 466          else
 467             selectedProp[0] = 0;
 468          if(row)
 469          {
 470             prop = ((PropertyInfo)row.GetData(propertyValue)).prop;
 471          }
 472          else
 473             prop = null;
 474          */
 475          return true;
 476       }
 477    };
 478
 479    DataField propertyName { dataType = class(char *), width = 130 };
 480    DataField propertyValue { dataType = class(PropertyInfo), width = 0, editable = true };
 481
 482    // Method Sheet
 483    ListBox methods
 484    {
 485       this, anchor = { left = 0, right = 0, top = 50, bottom = 25 };
 486       hasVertScroll = true;
 487       background = viewsBackground;
 488       foreground = viewsText;
 489       // alwaysEdit = true;
 490       // resizable = true;
 491
 492       bool NotifyDoubleClick(ListBox control, int x, int y, Modifiers mods)
 493       {
 494          CodeObject object = control.GetData(methodName);
 495          if(object)
 496             codeEditor.AddMethod(object.method);
 497          return false;
 498       }
 499
 500       bool NotifyRightClick(ListBox control, int x, int y, Modifiers mods)
 501       {
 502          CodeObject object = control.GetData(methodName);
 503          Menu menu { };
 504          PopupMenu popupMenu;
 505          MenuItem item;
 506          if(object.overriden == 0)
 507          {
 508             MenuItem { menu, $"Override", o, enter, bold = true, NotifySelect = OverrideMethodSelected };
 509             if(object.compatible.count)
 510             {
 511                Menu attachMenu { menu, $"Attach", a };
 512                OldLink compatible;
 513                for(compatible = object.compatible.first; compatible; compatible = compatible.next)
 514                {
 515                   ClassFunction function = compatible.data;
 516                   MenuItem { attachMenu, function.declarator.symbol.string, id = (int)function, NotifySelect = AttachMethodSelected };
 517                }
 518             }
 519          }
 520          else if(object.overriden == 1)
 521          {
 522             MenuItem { menu, $"Go to", g, enter, bold = true, NotifySelect = GotoMethodSelected };
 523             MenuItem { menu, $"Detach", d, d, NotifySelect = DetachMethodSelected };
 524             MenuItem { menu, $"Delete", del, del, NotifySelect = DeleteMethodSelected };
 525          }
 526          else if(object.overriden == 2)
 527          {
 528             MenuItem { menu, $"Go to", g, enter, bold = true, NotifySelect = GotoMethodSelected };
 529             MenuItem { menu, $"Detach", d, d, NotifySelect = DetachMethodSelected };
 530             if(object.compatible.count > 1)
 531             {
 532                Menu attachMenu { menu, $"Reattach", r };
 533                OldLink compatible;
 534                for(compatible = object.compatible.first; compatible; compatible = compatible.next)
 535                {
 536                   ClassFunction function = compatible.data;
 537                   if(function != object.function)
 538                   {
 539                      MenuItem { attachMenu, function.declarator.symbol.string, id = (int)function, NotifySelect = ReattachMethodSelected };
 540                   }
 541                }
 542             }
 543          }
 544
 545          attachMethod = object.method;
 546          popupMenu = PopupMenu { menu = menu, master = this, position =
 547             {
 548                x + control.absPosition.x - app.desktop.absPosition.x,
 549                y + control.absPosition.y - app.desktop.absPosition.y
 550             } };
 551          popupMenu.Create();
 552          // popupMenu.Capture();
 553          return false;
 554       }
 555
 556       bool NotifyKeyDown(ListBox listBox, DataRow row, Key key, unichar ch)
 557       {
 558          if(row)
 559          {
 560             CodeObject object = row.GetData(methodName);
 561             switch((SmartKey)key)
 562             {
 563                case enter:
 564                   if(!object.overriden)
 565                      listBox.NotifyDoubleClick(this, listBox, 0,0, 0);
 566                   else
 567                      codeEditor.GoToMethod(object.method.name);
 568                   break;
 569                case del:
 570                   if(object.deleteBtn)
 571                      object.deleteBtn.NotifyClicked(this, object.deleteBtn, 0,0,0);
 572                   else if(object.detachBtn)
 573                      object.detachBtn.NotifyClicked(this, object.detachBtn, 0,0,0);
 574                   break;
 575                case a:
 576                   if(object.attachBtn)
 577                      object.attachBtn.NotifyPushed(this, object.attachBtn, 0,0,0);
 578                   break;
 579                case d:
 580                   if(object.detachBtn)
 581                      object.detachBtn.NotifyClicked(this, object.detachBtn, 0,0,0);
 582                   break;
 583             }
 584          }
 585          return true;
 586       }
 587    };
 588
 589    DataField methodName { dataType = class(CodeObject) };
 590
 591 #ifdef SHOW_METHODS
 592    methBtn.font = { $"Tahoma", 8.25, bold = true };
 593    methBtn.checked = true;
 594    properties.visible = false;
 595    text = $"Methods";
 596 #else
 597    propBtn.font = { $"Tahoma", 8.25f, bold = true };
 598    propBtn.checked = true;
 599    methods.visible = false;
 600    text = $"Properties";
 601 #endif
 602
 603    Button alphabetical
 604    {
 605       this, bevelOver = true, inactive = true, position = { 25, 25 }, size = { 24, 24 };
 606       bitmap = { "<:ecere>elements/orderAscending.png" };
 607       // isRadio = true;
 608
 609       bool NotifyClicked(Button button, int x, int y, Modifiers mods)
 610       {
 611          if(!alphabetical.checked)
 612          {
 613             alphabetical.checked = true;
 614             categorized.checked = false;
 615
 616             ListProperties(true);
 617          }
 618          return true;
 619       }
 620    };
 621
 622    Button categorized
 623    {
 624       this, bevelOver = true, checked = true, inactive = true, position = { 0, 25 }, size = { 24, 24 };
 625       bitmap = { "<:ecere>elements/orderCategorized.png" };
 626       // isRadio = true;
 627
 628       bool NotifyClicked(Button button, int x, int y, Modifiers mods)
 629       {
 630          if(!categorized.checked)
 631          {
 632             categorized.checked = true;
 633             alphabetical.checked = false;
 634
 635             ListProperties(true);
 636          }
 637          return true;
 638       }
 639    };
 640
 641    property CodeEditor codeEditor
 642    {
 643       set
 644       {
 645          if(codeEditor != value)
 646          {
 647             codeEditor = value;
 648             // Refill it up
 649             dropBox.Clear();
 650             dropField.userData = codeEditor;
 651             methodName.userData = codeEditor;
 652
 653             if(codeEditor)
 654                codeEditor.EnumerateObjects(this);
 655           }
 656       }
 657       get
 658       {
 659          return codeEditor;
 660       }
 661    }
 662
 663    property SheetType sheetSelected
 664    {
 665       set
 666       {
 667          if(methBtn.checked != (value == SheetType::methods))
 668             ToggleSheet();
 669       }
 670       get
 671       {
 672          return methBtn.checked ? methods : properties;
 673       }
 674    }
 675
 676    bool OnClose(bool parentClosing)
 677    {
 678       if(!parentClosing)
 679       {
 680          visible = false;
 681          return false;
 682       }
 683       return true;
 684    }
 685
 686    bool OnKeyDown(Key key, unichar ch)
 687    {
 688       if(key == shiftTab)
 689          dropBox.Activate();
 690       else if(key == tab)
 691          ToggleSheet();
 692       else if(key == escape)
 693       {
 694          Window activeClient = ide.activeClient;
 695          if(activeClient)
 696             activeClient.Activate();
 697          else
 698             ide.RepositionWindows(true);
 699       }
 700       return true;
 701    }
 702
 703    bool OnKeyHit(Key key, unichar ch)
 704    {
 705       return properties.OnKeyHit(key, ch);
 706    }
 707
 708    bool OnActivate(bool active, Window previous, bool * goOnWithActivation, bool direct)
 709    {
 710       if(active && codeEditor)
 711          codeEditor.EnsureUpToDate();
 712       return true;
 713    }
 714
 715    void ListProperties(bool clear)
 716    {
 717       DataRow row = dropBox.currentRow;
 718       ObjectInfo selected = row ? (ObjectInfo)row.tag : null;
 719
 720       //int scroll = 0;
 721       bool categorized = this.categorized.checked;
 722       bool currentRow = false;
 723       char selectedProp[1024];
 724
 725       if(clear)
 726       {
 727          Category cat;
 728          DataRow row = properties.currentRow;
 729          if(row)
 730          {
 731             DataRow propRow = row;
 732             char * propName;
 733             while(propRow && propRow.parent && !propRow.parent.isHeader)
 734                propRow = row.parent;
 735
 736             propName = propRow.GetData(propertyName);
 737             strcpy(this.selectedProp, propName);
 738             selectedScroll = properties.scroll.y;
 739             selectedScroll -= propRow.index * properties.rowHeight;
 740          }
 741          currentRow = this.selectedProp[0] ? true : false;
 742
 743          for(cat = categories.first; cat; cat = cat.next)
 744          {
 745             cat.collapsed = cat.row.collapsed;
 746             cat.row = null;
 747          }
 748
 749          // Preserve selected property (PropertySheetSelect will null it)
 750          strcpy(selectedProp, this.selectedProp);
 751          properties.Clear();
 752          strcpy(this.selectedProp, selectedProp);
 753       }
 754       if(selected && selected.instance && codeEditor)
 755       {
 756          Instance test = eInstance_New(selected.instance._class);
 757          Class _class = null;
 758          incref test;
 759
 760          // Put it in the same desktop window...
 761          if(selected.classDefinition)
 762             codeEditor.designer.PrepareTestObject(test);
 763
 764          // Fill up the properties
 765          while(_class != selected.instance._class)
 766          {
 767             BitMember bitMember = null;
 768             Class lastClass = _class;
 769             Property propIt;
 770
 771             for(_class = selected.instance._class; _class.base != lastClass && _class.base.type != systemClass && _class.inheritanceAccess != privateAccess; _class = _class.base);
 772
 773             for(propIt = _class.membersAndProperties.first; propIt; propIt = propIt.next)
 774             {
 775                if(propIt.isProperty)
 776                {
 777                   Property prop = eClass_FindProperty(selected.instance._class, propIt.name, GetPrivateModule());
 778
 779                   if(prop && prop.Set && prop.Get && prop.compiled)
 780                   {
 781                      bool disabled = Code_IsPropertyDisabled(selected, prop.name);
 782                      bool bold;
 783                      Class dataType = prop.dataTypeClass;
 784                      if(!dataType)
 785                         dataType = prop.dataTypeClass = eSystem_FindClass(codeEditor.privateModule, prop.dataTypeString);
 786
 787                      if(!strcmp(_class.name, "DesignerBase"))
 788                         disabled = true;
 789                      bold = !disabled && Code_IsPropertyModified(test, selected, prop);
 790
 791                      if(dataType)
 792                      {
 793                         DataRow row;
 794                         PropertyInfo info { prop, disabled, bold ? codeEditor.boldFont : codeEditor.normalFont };
 795                         char * name = prop.category ? prop.category : $"Misc";
 796                         Category category = categories.FindName(name, false);
 797
 798                         // Hide properties like this for now..
 799                         if(name && !strcmp(name, "Private"))
 800                         {
 801                            delete info;
 802                            continue;
 803                         }
 804
 805                         if(!category)
 806                         {
 807                            category = Category { name = name };
 808                            categories.AddName(category);
 809                         }
 810                         if(!category.row && categorized)
 811                         {
 812                            PropertyInfo catInfo { null, false, null, name };
 813                            category.row = properties.AddRow();
 814                            category.row.SetData(propertyName, name );
 815                            category.row.SetData(propertyValue, catInfo);
 816                            category.row.isHeader = true;
 817                            category.row.collapsed = category.collapsed;
 818                         }
 819
 820                         if(clear)
 821                         {
 822                            row = categorized ? category.row.FindRow((int)prop) : properties.FindRow((int)prop);
 823                            if(!row)
 824                               row = categorized ? category.row.AddRow() : properties.AddRow();
 825                            row.tag = (int)prop;
 826                         }
 827                         else
 828                            row = categorized ? category.row.FindRow((int)prop) : properties.FindRow((int)prop);
 829
 830                         row.SetData(propertyName, prop.name);
 831                         row.SetData(propertyValue, info);
 832
 833                         if(clear && !strcmp(prop.name, this.selectedProp))
 834                            properties.currentRow = row;
 835
 836                         if(!dataType.noExpansion && (dataType.type == structClass || dataType.type == normalClass || dataType.type == noHeadClass || dataType.type == bitClass))
 837                         {
 838                            DataMember member;
 839
 840                            if(clear)
 841                               row.collapsed = true;
 842
 843                            for(member = dataType.membersAndProperties.first; member; member = member.next)
 844                            {
 845                               if(member.isProperty)
 846                               {
 847                                  Property subProp = (Property)member;
 848                                  if(!subProp.conversion && subProp.Get && subProp.Set)
 849                                  {
 850                                     DataRow subRow;
 851                                     PropertyInfo info { prop, disabled, bold ? codeEditor.boldFont : codeEditor.normalFont, null, null, subProp };
 852
 853                                     if(clear)
 854                                     {
 855                                        subRow = row.AddRow();
 856                                        subRow.tag = (int)subProp;
 857                                     }
 858                                     else
 859                                        subRow = row.FindRow((int)subProp);
 860
 861                                     subRow.SetData(propertyName, subProp.name);
 862                                     subRow.SetData(propertyValue, info);
 863                                  }
 864                               }
 865                               else if(member.name)
 866                               {
 867                                  DataRow subRow;
 868                                  PropertyInfo info { prop, disabled, bold ? codeEditor.boldFont : codeEditor.normalFont, null, member, null };
 869                                  if(clear)
 870                                  {
 871                                     subRow = row.AddRow();
 872                                     subRow.tag = (int)member;
 873                                  }
 874                                  else
 875                                     subRow = row.FindRow((int)member);
 876
 877                                  subRow.SetData(propertyName, member.name);
 878                                  subRow.SetData(propertyValue, info);
 879                               }
 880                               else
 881                               {
 882                                  DataMember subMember;
 883                                  for(subMember = member.members.first; subMember; subMember = subMember.next)
 884                                  {
 885                                     DataRow subRow;
 886                                     PropertyInfo info { prop, disabled, bold ? codeEditor.boldFont : codeEditor.normalFont, null, subMember, null, member.offset };
 887                                     if(clear)
 888                                     {
 889                                        subRow = row.AddRow();
 890                                        subRow.tag = (int)subMember;
 891                                     }
 892                                     else
 893                                        subRow = row.FindRow((int)subMember);
 894
 895                                     subRow.SetData(propertyName, subMember.name);
 896                                     subRow.SetData(propertyValue, info);
 897                                  }
 898                               }
 899                            }
 900                         }
 901                      }
 902                   }
 903                }
 904             }
 905          }
 906          delete test;
 907          // Sort alphabetically for now...
 908          if(clear)
 909          {
 910             // properties.Sort(null, 1);
 911             properties.Sort(propertyValue, 1);
 912             if(!properties.currentRow)
 913             {
 914                bool found = false;
 915
 916                for(_class = selected.instance._class; _class; _class = _class.base)
 917                {
 918                   Property prop;
 919                   for(prop = _class.membersAndProperties.first; prop; prop = prop.next)
 920                   {
 921                      if(prop.isProperty && prop.Set && prop.Get && prop.compiled)
 922                      {
 923                         if(_class.defaultProperty && !strcmp(prop.name, _class.defaultProperty))
 924                         {
 925                            DataRow row;
 926                            char * name = prop.category ? prop.category : $"Misc";
 927                            Category category = categories.FindName(name, false);
 928                            row = category ? (categorized ? category.row.FindRow((int)prop) : properties.FindRow((int)prop)) : null;
 929                            properties.currentRow = row;
 930                            found = true;
 931                            break;
 932                         }
 933                      }
 934                   }
 935                   if(found) break;
 936                }
 937                if(!found)
 938                   properties.currentRow = properties.firstRow;
 939             }
 940
 941             if(currentRow)
 942             {
 943                DataRow row = properties.currentRow;
 944                properties.scroll.y = selectedScroll + row.index * properties.rowHeight;
 945             }
 946          }
 947       }
 948    }
 949
 950    void AddObject(ObjectInfo object, char * name, CodeObjectType type, bool select)
 951    {
 952       DataRow after = null;
 953       DataRow row;
 954       CodeObject codeObject;
 955       char * bitmap = null;
 956       bool foundClass = false;
 957
 958       for(row = dropBox.firstRow; row; row = row.next)
 959       {
 960          CodeObject codeObject = row.GetData(null);
 961          if(codeObject.object.oClass == object.oClass)
 962             foundClass = true;
 963          else if(foundClass)
 964             break;
 965          after = row;
 966       }
 967
 968       row = (DataRow)dropBox.AddRowAfter(after);
 969
 970       row.tag = (int)object;
 971
 972       codeObject =
 973       {
 974          object = object;
 975          name = name;
 976          type = type;
 977          indent = (type == typeClass) ? 0 : 1;
 978       };
 979
 980       if(type != typeClass)
 981          bitmap = (char *)eClass_GetProperty(object.instance._class, "icon");
 982       if(bitmap)
 983       {
 984          codeObject.bitmap = { bitmap };
 985          AddResource(codeObject.bitmap);
 986       }
 987
 988       row.SetData(null, codeObject);
 989
 990       if(select)
 991       {
 992          this.object = object ? object.instance : null;
 993          propertyValue.userData = object ? (void *)object.instance : null;
 994          dropBox.SelectRow(row);
 995       }
 996    }
 997
 998    void DeleteObject(ObjectInfo object)
 999    {
1000       DataRow row = dropBox.FindRow((int)object);
1001       if(row)
1002       {
1003          CodeObject codeObject = row.GetData(null);
1004
1005          if(codeObject.bitmap)
1006             RemoveResource(codeObject.bitmap);
1007          dropBox.DeleteRow(row);
1008       }
1009    }
1010
1011    void SelectObject(ObjectInfo object)
1012    {
1013       if(this)
1014       {
1015          DataRow row = dropBox.FindRow((int)object);
1016          this.object = object ? object.instance : null;
1017          propertyValue.userData = object ? (void *)object.instance : null;
1018          dropBox.SelectRow(row);
1019       }
1020    }
1021
1022    void RenameObject(ObjectInfo object, char * name)
1023    {
1024       DataRow row = dropBox.FindRow((int)object);
1025       CodeObject codeObject = row.GetData(null);
1026       // Isn't this useless? Shouldn't it be after?
1027       codeObject.name = name;
1028       // row.SetData(null, codeObject);  // Is this necessary?
1029    }
1030
1031    void DataBox::EditSetData(any_object setValue, bool closingDropDown)
1032    {
1033       ((Sheet)master.master).SetData(setValue, this);
1034    }
1035
1036    void SetData(any_object setValue, DataBox dataBox)
1037    {
1038       //PropertyInfo propertyPtr = row.GetData(null);
1039       PropertyInfo propertyPtr = properties.GetData(null);
1040       Property prop = propertyPtr ? propertyPtr.prop : null;
1041       Instance object = this.object;
1042       if(prop)
1043       {
1044          Class dataType = prop.dataTypeClass;
1045          if(!dataType)
1046             dataType = prop.dataTypeClass = eSystem_FindClass(codeEditor.privateModule, prop.dataTypeString);
1047          if(propertyPtr.subMember)
1048          {
1049             DataMember member = propertyPtr.subMember;
1050             Class subDataType = member.dataTypeClass;
1051             if(!member.dataTypeClass)
1052                subDataType = member.dataTypeClass = eSystem_FindClass(codeEditor.privateModule, member.dataTypeString);
1053             if(subDataType)
1054             {
1055                void * data = null;
1056                if(!subDataType.dataType)
1057                   subDataType.dataType = ProcessTypeString(subDataType.dataTypeString, false);
1058
1059                if(dataType.type == structClass)
1060                {
1061                   data = new0 byte[dataType.structSize];
1062                   prop.Get(object, data);
1063                   // CopyBytes((byte *)data + member.offset + propertyPtr.extraOffset, &setValue, subDataType.size);
1064                   CopyBytes((byte *)data + member.offset + propertyPtr.extraOffset, (void *)setValue, subDataType.dataType.size);
1065                   prop.Set(object, data);
1066                }
1067                else if(dataType.type == normalClass || dataType.type == noHeadClass)
1068                {
1069                }
1070                else
1071                {
1072                   if(dataType.type == bitClass)
1073                   {
1074                      BitMember bitMember = (BitMember) member;
1075                      if(subDataType)
1076                      {
1077                         DataValue value = { 0 };
1078                         value.ui = prop.Get(object);
1079                         value.ui &= ~ (uint)bitMember.mask;
1080                         value.ui |= *(uint32 *)setValue << bitMember.pos;
1081                         prop.Set(object, value.ui);
1082                      }
1083                   }
1084                   else
1085                   {
1086                      data = dataType.typeSize ? new0 byte[dataType.typeSize] : null;
1087                      prop.Get(object, data);
1088                      // CopyBytes((byte *)data + member.offset + propertyPtr.extraOffset, &setValue, subDataType.typeSize);
1089                      CopyBytes((byte *)data + member.offset + propertyPtr.extraOffset, (void *)setValue, subDataType.dataType.size);
1090                      // TODO: Support non 32 bit datatypes here
1091                      prop.Set(object, data);
1092                   }
1093                }
1094
1095                if(data) dataType._vTbl[__ecereVMethodID_class_OnFree](dataType,&data);
1096                delete data;
1097             }
1098          }
1099          else if(propertyPtr.subProperty)
1100          {
1101             Property subProperty = propertyPtr.subProperty;
1102             Class subDataType = subProperty.dataTypeClass;
1103             if(!subDataType)
1104                subDataType = subProperty.dataTypeClass = eSystem_FindClass(codeEditor.privateModule, subProperty.dataTypeString);
1105             if(subDataType)
1106             {
1107                void * data = null;
1108
1109                if(dataType.type == structClass)
1110                {
1111                   data = new0 byte[dataType.structSize];
1112                   prop.Get(object, data);
1113                   subProperty.Set(data, *(uint32 *)setValue);
1114                   prop.Set(object, data);
1115                }
1116                else if(dataType.type == normalClass || dataType.type == noHeadClass)
1117                {
1118                   Instance current = (Instance)prop.Get(object);
1119                   Instance propObject = eInstance_New(dataType);
1120                   CopyInstanceData(dataType, propObject, current);
1121                   subProperty.Set(propObject, (uint32)setValue);
1122                   prop.Set(object, propObject);
1123                }
1124                else
1125                {
1126                   data = dataType.typeSize ? new0 byte[dataType.typeSize] : null;
1127                   prop.Get(object, data);
1128                   subProperty.Set(data, (uint32)setValue);
1129                   // TODO: Support not 32 bit data types here
1130                   prop.Set(object, data);
1131                }
1132
1133                if(data) dataType._vTbl[__ecereVMethodID_class_OnFree](dataType,&data);
1134                delete data;
1135             }
1136          }
1137          else
1138          {
1139             SetPropValue(prop, object, (uint32)setValue);
1140          }
1141          Code_FixProperty(propertyPtr.prop, object);
1142
1143          properties.Update(null);
1144          dropBox.Update(null);
1145          codeEditor.designer.Update(null);
1146          codeEditor.Update(null);   // patch for redraw bug if on top
1147
1148          ListProperties(false);
1149
1150          dataBox.editor.font = { propertyPtr.font.faceName, propertyPtr.font.size, propertyPtr.font.bold };
1151          codeEditor.ModifyCode();
1152       }
1153    }
1154
1155    bool SaveEdit(PropertyInfo propertyPtr, Instance object)
1156    {
1157       codeEditor.designer.Update(null);
1158       codeEditor.Update(null);   // patch for redraw bug if on top
1159       properties.Update(null);
1160       dropBox.Update(null);
1161
1162       Code_FixProperty(propertyPtr.prop, object);
1163       ListProperties(false);
1164
1165       codeEditor.ModifyCode();
1166       return true;
1167    }
1168
1169    void ToggleSheet()
1170    {
1171       if(!propBtn.checked)
1172       {
1173          propBtn.checked = true;
1174          propBtn.NotifyClicked(this, propBtn, 0,0,0);
1175       }
1176       else
1177       {
1178          methBtn.checked = true;
1179          methBtn.NotifyClicked(this, methBtn, 0,0,0);
1180       }
1181    }
1182
1183    bool AttachMethodSelected(MenuItem selection, Modifiers mods)
1184    {
1185       ClassFunction function = (ClassFunction)selection.id;
1186       codeEditor.AttachMethod(attachMethod, function);
1187       return true;
1188    }
1189
1190    bool ReattachMethodSelected(MenuItem selection, Modifiers mods)
1191    {
1192       ClassFunction function = (ClassFunction)selection.id;
1193       CodeObject object = methods.GetData(methodName);
1194       codeEditor.ReAttachMethod(attachMethod, function);
1195       return true;
1196    }
1197
1198    bool OverrideMethodSelected(MenuItem selection, Modifiers mods)
1199    {
1200       ClassFunction function = (ClassFunction)selection.id;
1201       CodeObject object = methods.GetData(methodName);
1202       if(object)
1203          codeEditor.AddMethod(object.method);
1204       return true;
1205    }
1206
1207    bool GotoMethodSelected(MenuItem selection, Modifiers mods)
1208    {
1209       ClassFunction function = (ClassFunction)selection.id;
1210       CodeObject object = methods.GetData(methodName);
1211       if(object)
1212          codeEditor.GoToMethod(object.method.name);
1213       return true;
1214    }
1215
1216    bool DetachMethodSelected(MenuItem selection, Modifiers mods)
1217    {
1218       ClassFunction function = (ClassFunction)selection.id;
1219       CodeObject object = methods.GetData(methodName);
1220       if(object)
1221          codeEditor.DetachMethod(object.method, object.function, object.overriden);
1222       return true;
1223    }
1224
1225    bool DeleteMethodSelected(MenuItem selection, Modifiers mods)
1226    {
1227       ClassFunction function = (ClassFunction)selection.id;
1228       CodeObject object = methods.GetData(methodName);
1229       if(object)
1230          object.deleteBtn.NotifyClicked(this, object.deleteBtn, 0,0,0);
1231       return true;
1232    }
1233
1234    bool AddMethodClicked(Button button, int x, int y, Modifiers mods)
1235    {
1236       DataRow row = (DataRow)button.id;
1237       CodeObject object = row.GetData(methodName);
1238       codeEditor.AddMethod(object.method);
1239       return true;
1240    }
1241
1242    void CreateButtons(CodeObject codeObject, int y, int h, DataRow row)
1243    {
1244       BitmapResource bitmap;
1245
1246       if(codeObject.overriden)
1247       {
1248          if(codeObject.overriden == 1)
1249          {
1250             codeObject.deleteBtn = Button
1251             {
1252                methods, master = this,
1253                inactive = true,
1254                bitmap = { ":actions/delete.png", alphaBlend = true },
1255                anchor = { right = 16, top = y },
1256                size = { 16, h },
1257                id = (int)row;
1258
1259                bool NotifyClicked(Button button, int x, int y, Modifiers mods)
1260                {
1261                   CodeObject codeObject = ((DataRow)button.id).GetData(null);
1262                   bool confirmation = !Code_IsFunctionEmpty(codeObject.function, codeObject.method, codeEditor.selected);
1263
1264                   if(confirmation)
1265                   {
1266                      char title[1024];
1267                      sprintf(title, $"Delete %s", codeObject.name);
1268                      if(MessageBox
1269                         {
1270                            master = parent, type = okCancel, text = title,
1271                            contents = $"Method still contains code. Are you sure you want to delete it?"
1272                         }.Modal() == ok)
1273                         confirmation = false;
1274                   }
1275
1276                   if(!confirmation && codeObject.function.attached.count)
1277                   {
1278                      char title[1024];
1279                      sprintf(title, $"Delete %s", codeObject.name);
1280                      confirmation = true;
1281                      if(MessageBox
1282                         {
1283                            master = parent, type = okCancel, text = title,
1284                            contents = $"Other methods are still attached to this method. Are you sure you want to delete it?"
1285                         }.Modal() == ok)
1286                         confirmation = false;
1287                   }
1288
1289                   if(!confirmation)
1290                   {
1291                      codeEditor.DeleteMethod(codeObject.function);
1292                   }
1293                   return false;
1294                }
1295             };
1296             incref codeObject.deleteBtn;
1297             codeObject.deleteBtn.Create();
1298          }
1299
1300          if(codeObject.overriden == 2 || !codeObject.function.attached.count)
1301          {
1302             codeObject.detachBtn = Button
1303             {
1304                methods,
1305                master = methods.master,
1306                inactive = true,
1307                bitmap = { ":actions/detach.png" },
1308                anchor = { right = 0, top = y },
1309                size = { 16, h },
1310                id = (int)row;
1311
1312                bool NotifyClicked(Button button, int x, int y, Modifiers mods)
1313                {
1314                   DataRow row = (DataRow)button.id;
1315                   CodeObject object = row.GetData(methodName);
1316
1317                   codeEditor.DetachMethod(object.method, object.function, object.overriden);
1318                   return true;
1319                }
1320             };
1321             incref codeObject.detachBtn;
1322             codeObject.detachBtn.Create();
1323          }
1324       }
1325       else
1326       {
1327          if(codeObject.compatible.count)
1328          {
1329             codeObject.attachBtn = Button
1330             {
1331                parent = methods, master = methods.master,
1332                inactive = true,
1333                bitmap = { ":actions/attach.png" },
1334                anchor = { right = 0, top = y },
1335                size = { 16, h },
1336                id = (int)row;
1337
1338                bool NotifyPushed(Button button, int x, int y, Modifiers mods)
1339                {
1340                   // Create menu
1341                   DataRow row = (DataRow)button.id;
1342                   CodeObject object = row.GetData(methodName);
1343                   OldLink compatible;
1344                   PopupMenu popupMenu;
1345
1346                   Menu menu { };
1347
1348                   for(compatible = object.compatible.first; compatible; compatible = compatible.next)
1349                   {
1350                      ClassFunction function = compatible.data;
1351                      MenuItem { menu, function.declarator.symbol.string, id = (int)function, NotifySelect = AttachMethodSelected };
1352                   }
1353                   attachMethod = object.method;
1354
1355                   popupMenu = PopupMenu
1356                   {
1357                      master = this, menu = menu,
1358                      position =
1359                      {
1360                         button.absPosition.x - app.desktop.position.x,
1361                         button.absPosition.y - app.desktop.position.y + button.size.h
1362                      };
1363                   };
1364                   popupMenu.Create();
1365                   button.ReleaseCapture();
1366                   popupMenu.Capture();
1367                   return false;
1368                }
1369             };
1370             incref codeObject.attachBtn;
1371             codeObject.attachBtn.Create();
1372          }
1373       }
1374    }
1375    Instance object;
1376    Method attachMethod;
1377    char selectedMethod[1024];
1378    CodeEditor codeEditor;
1379    OldList categories;
1380    char selectedProp[1024];
1381    int selectedScroll;
1382 }
1383
1384 static int String_OnCompare(char ** string1, char ** string2)
1385 {
1386    int result = 0;
1387    if(*string1 && *string2)
1388       result = strcmpi(*string1, *string2);
1389    else if(!*string1 && *string2)
1390       result = 1;
1391    else if(*string1 && !*string2)
1392       result = -1;
1393    return result;
1394 }
1395
1396 static void CopyInstanceData(Class dataType, Instance propObject, Instance current)
1397 {
1398    Class _class;
1399    for(_class = dataType; _class && _class.type != systemClass; _class = _class.base)
1400    {
1401       DataMember member;
1402       for(member = _class.membersAndProperties.first; member; member = member.next)
1403       {
1404          Class memberType = member.dataTypeClass;
1405          if(!memberType)
1406             memberType = member.dataTypeClass = eSystem_FindClass(((Designer)GetActiveDesigner()).codeEditor.privateModule, member.dataTypeString);
1407          if(member.isProperty)
1408          {
1409             Property subProp = (Property) member;
1410             if(subProp.Get && subProp.Set)
1411                CopyProperty(subProp, propObject, current);
1412          }
1413          else
1414          {
1415             if(memberType)
1416                // TOCHECK: I have serious doubts this works in many cases.
1417                memberType._vTbl[__ecereVMethodID_class_OnCopy](memberType, (byte *)propObject + member.offset, (byte *)current + member.offset);
1418             else if(member.memberOffset)
1419                memcpy((byte *)propObject + member.offset, (byte *)current + member.offset, member.memberOffset);
1420          }
1421       }
1422    }
1423 }
1424
1425 class PropertyInfo : struct
1426 {
1427 public:
1428    Property prop;
1429    bool disabled;
1430    FontResource font;
1431    char * categoryName;
1432    DataMember subMember;
1433    Property subProperty;
1434    uint extraOffset;
1435
1436    void OnDisplay(Surface surface, int x, int y, int width, Instance object, Alignment alignment, DataDisplayFlags displayFlags)
1437    {
1438       Property prop = this.prop;
1439
1440       surface.TextFont(font.font);
1441       if(disabled)
1442       {
1443          surface.SetBackground(Color { 170, 170, 170 });
1444          surface.Area(0,0, x+width-1, y+100);
1445       }
1446       else if(prop && prop.dataTypeString)
1447       {
1448          Class dataType = prop.dataTypeClass;
1449          Module module = ((Designer)GetActiveDesigner()).codeEditor.privateModule;
1450          if(!dataType)
1451             dataType = prop.dataTypeClass = eSystem_FindClass(module, prop.dataTypeString);
1452
1453          if(dataType && prop.Get)
1454          {
1455             void * dataPtr, * data = null, * subData = null;
1456             DataValue valueData, valueSubData;
1457             uint64 bitValue;
1458
1459             // Get main prop
1460             if(dataType.type == structClass)
1461             {
1462                data = new0 byte[dataType.structSize];
1463                prop.Get(object, data);
1464                dataPtr = data;
1465             }
1466             else
1467             {
1468                GetProperty(prop, object, &valueData);
1469
1470                if(dataType.type == normalClass)
1471                   dataPtr = valueData.p;
1472                else
1473                   dataPtr = &valueData;
1474             }
1475
1476             // Get sub prop
1477             if(this.subMember)
1478             {
1479                DataMember member = this.subMember;
1480                Class subDataType = member.dataTypeClass;
1481                if(!subDataType)
1482                   subDataType = member.dataTypeClass = eSystem_FindClass(((Designer)GetActiveDesigner()).codeEditor.privateModule, member.dataTypeString);
1483                if(subDataType)
1484                {
1485                   if(dataType.type == bitClass)
1486                   {
1487                      BitMember bitMember = (BitMember)member;
1488                      bitValue = (valueData.i & bitMember.mask) >> bitMember.pos;
1489                      dataPtr = &bitValue;
1490                   }
1491                   else
1492                      dataPtr = (byte *)dataPtr + member.offset + this.extraOffset;
1493                }
1494                dataType = subDataType;
1495             }
1496             else if(this.subProperty)
1497             {
1498                Property subProperty = this.subProperty;
1499                Class subDataType = subProperty.dataTypeClass;
1500                if(!subDataType)
1501                   subDataType = subProperty.dataTypeClass = eSystem_FindClass(((Designer)GetActiveDesigner()).codeEditor.privateModule, subProperty.dataTypeString);
1502                if(!subProperty.Get) subDataType = null;
1503                if(subDataType)
1504                {
1505                   if(subDataType.type == structClass)
1506                   {
1507                      subData = new0 byte[subDataType.structSize];
1508                      subProperty.Get(dataPtr, subData);
1509                      dataPtr = subData;
1510                   }
1511                   else
1512                   {
1513                      GetProperty(subProperty, dataPtr, &valueSubData);
1514                      if(subDataType.type == normalClass)
1515                         dataPtr = valueSubData.p;
1516                      else
1517                         dataPtr = &valueSubData;
1518                   }
1519                }
1520                dataType = subDataType;
1521             }
1522
1523             if(dataType)
1524                dataType._vTbl[__ecereVMethodID_class_OnDisplay](dataType, dataPtr, surface, x, y, width, null, alignment, displayFlags);
1525
1526             delete data;
1527             delete subData;
1528          }
1529       }
1530    }
1531
1532    Window OnEdit(DataBox dataBox, Window obsolete, int x, int y, int w, int h, void * unused)
1533    {
1534       EditBox editData = null;
1535       Property prop = this.prop;
1536
1537       dataBox.SetData = Sheet::EditSetData;
1538       if(prop && prop.dataTypeString && !this.disabled)
1539       {
1540          Sheet propertyWindow = (Sheet)dataBox.master.master;
1541          Instance object = propertyWindow.object;
1542          Class dataType = prop.dataTypeClass;
1543          if(!dataType)
1544             dataType = prop.dataTypeClass = eSystem_FindClass(((Designer)GetActiveDesigner()).codeEditor.privateModule, prop.dataTypeString);
1545
1546          if(dataType && prop.Get)
1547          {
1548             void * dataPtr, * data = null, * subData = null;
1549             DataValue valueData, valueSubData;
1550             uint64 bitValue;
1551
1552             // Get main prop
1553             if(dataType.type == structClass)
1554             {
1555                data = new0 byte[dataType.structSize];
1556                prop.Get(object, data);
1557                dataPtr = data;
1558             }
1559             else
1560             {
1561                GetProperty(prop, object, &valueData);
1562                if(dataType.type == normalClass)
1563                   dataPtr = valueData.p;
1564                else
1565                   dataPtr = &valueData;
1566             }
1567
1568             // Get sub prop
1569             if(this.subMember)
1570             {
1571                DataMember member = this.subMember;
1572                Class subDataType = member.dataTypeClass;
1573                if(!subDataType)
1574                   subDataType = member.dataTypeClass = eSystem_FindClass(((Designer)GetActiveDesigner()).codeEditor.privateModule, member.dataTypeString);
1575                if(subDataType)
1576                {
1577                   if(dataType.type == bitClass)
1578                   {
1579                      BitMember bitMember = (BitMember)member;
1580                      bitValue = (valueData.i & bitMember.mask) >> bitMember.pos;
1581                      dataPtr = &bitValue;
1582                   }
1583                   else
1584                      dataPtr = (byte *)dataPtr + member.offset + this.extraOffset;
1585                }
1586                dataType = subDataType;
1587             }
1588             else if(this.subProperty)
1589             {
1590                Property subProperty = this.subProperty;
1591                Class subDataType = subProperty.dataTypeClass;
1592                if(!subDataType)
1593                   subDataType = subProperty.dataTypeClass = eSystem_FindClass(((Designer)GetActiveDesigner()).codeEditor.privateModule, subProperty.dataTypeString);
1594                if(!subProperty.Get) subDataType = null;
1595                if(subDataType)
1596                {
1597                   if(subDataType.type == structClass)
1598                   {
1599                      subData = new0 byte[subDataType.structSize];
1600                      subProperty.Get(dataPtr, subData);
1601                      dataPtr = subData;
1602                   }
1603                   else
1604                   {
1605                      GetProperty(subProperty, dataPtr, &valueSubData);
1606                      if(subDataType.type == normalClass)
1607                         dataPtr = valueSubData.p;
1608                      else
1609                         dataPtr = &valueSubData;
1610                   }
1611                }
1612                dataType = subDataType;
1613             }
1614
1615             if(dataType)
1616                editData = (void *)dataType._vTbl[__ecereVMethodID_class_OnEdit](dataType, dataPtr, dataBox, obsolete,  x, y, w, h, object /*unused*/);
1617
1618             delete data;
1619             delete subData;
1620
1621             editData.font = { font.faceName, font.size, font.bold };
1622          }
1623       }
1624       return editData;
1625    }
1626
1627    int OnCompare(PropertyInfo data2)
1628    {
1629       char * category1 = prop ? prop.category : categoryName;
1630       char * category2 = data2.prop ? data2.prop.category : data2.categoryName;
1631       int result;
1632
1633       if(!category1) category1 = $"Misc";
1634       if(!category2) category2 = $"Misc";
1635
1636       if(!prop)
1637       {
1638          // result = String::OnCompare((String)category1, (String)category2);
1639          result = String_OnCompare(&category1, &category2);
1640       }
1641       else
1642       //if(!result)
1643       {
1644          if(subMember && !data2.subMember)
1645          {
1646             result = 1;
1647          }
1648          else if(!subMember && data2.subMember)
1649          {
1650             result = 1;
1651          }
1652          else if(subMember && data2.subMember)
1653          {
1654             if(subMember.id < data2.subMember.id)
1655                result = -1;
1656             else if(subMember.id > data2.subMember.id)
1657                result = 1;
1658             else
1659                result = 0;
1660          }
1661          else if(subProperty && !data2.subProperty)
1662          {
1663             result = 1;
1664          }
1665          else if(!subProperty && data2.subProperty)
1666          {
1667             result = 1;
1668          }
1669          else if(subProperty && data2.subProperty)
1670          {
1671             if(subProperty.id < data2.subProperty.id)
1672                result = -1;
1673             else if(subProperty.id > data2.subProperty.id)
1674                result = 1;
1675             else
1676                result = 0;
1677          }
1678          else if(prop && !data2.prop)
1679             result = 1;
1680          else if(!prop && data2.prop)
1681             result = -1;
1682          else
1683             // result = ((String)prop.name).OnCompare(data2.prop.name);
1684             // result = String::OnCompare((String)prop.name, (String)data2.prop.name);
1685             result = String_OnCompare(&prop.name, &data2.prop.name);
1686       }
1687       return result;
1688    }
1689
1690    bool OnSaveEdit(Window editControl, void * unusedData)
1691    {
1692       Property prop = this.prop;
1693       if(prop)
1694       {
1695          Sheet sheet = (Sheet)editControl.master.master.master;
1696          Instance object = sheet.object;
1697          Class mainDataType = prop.dataTypeClass;
1698          Class dataType;
1699          bool result = false;
1700          void * dataPtr, * data = null, * subData = null;
1701          void * propObject = null;
1702          DataValue valueData = { 0 }, valueSubData = { 0 };
1703          uint bitValue;
1704
1705          if(!mainDataType)
1706             mainDataType = prop.dataTypeClass = eSystem_FindClass(((Designer)GetActiveDesigner()).codeEditor.privateModule, prop.dataTypeString);
1707          dataType = mainDataType;
1708
1709          // Prepare main prop
1710          if(dataType.type == structClass)
1711          {
1712             data = new0 byte[dataType.structSize];
1713             if(this.subMember || this.subProperty)
1714                prop.Get(object, data);
1715             dataPtr = data;
1716             propObject = data;
1717          }
1718          else if(dataType.type == normalClass || dataType.type == noHeadClass)
1719          {
1720             dataPtr = &valueData;
1721
1722             if(this.subMember || this.subProperty)
1723             {
1724                Class _class;
1725                Instance current = (Instance)prop.Get(object);
1726                propObject = valueData.p = eInstance_New(dataType);
1727                CopyInstanceData(dataType, propObject, current);
1728             }
1729          }
1730          else
1731          {
1732
1733             if(this.subMember || this.subProperty)
1734                GetProperty(prop, object, &valueData);
1735
1736             dataPtr = &valueData;
1737             propObject = &valueData;
1738          }
1739
1740          // Prepare sub prop
1741          if(this.subMember)
1742          {
1743             DataMember member = this.subMember;
1744             Class subDataType = member.dataTypeClass;
1745             if(!subDataType)
1746                subDataType = member.dataTypeClass = eSystem_FindClass(((Designer)GetActiveDesigner()).codeEditor.privateModule, member.dataTypeString);
1747             if(subDataType)
1748             {
1749                if(dataType.type == bitClass)
1750                   dataPtr = &bitValue;
1751                else
1752                   dataPtr = (byte *)dataPtr + member.offset + this.extraOffset;
1753             }
1754             dataType = subDataType;
1755          }
1756          else if(this.subProperty)
1757          {
1758             Property subProperty = this.subProperty;
1759             Class subDataType = subProperty.dataTypeClass;
1760
1761             if(!subDataType)
1762                subDataType = subProperty.dataTypeClass =
1763                   eSystem_FindClass(((Designer)GetActiveDesigner()).codeEditor.privateModule, subProperty.dataTypeString);
1764             if(!subProperty.Get) subDataType = null;
1765             if(subDataType)
1766             {
1767                if(subDataType.type == structClass)
1768                {
1769                   subData = new0 byte[subDataType.structSize];
1770                   dataPtr = subData;
1771                }
1772                else
1773                   dataPtr = &valueSubData;
1774             }
1775             dataType = subDataType;
1776          }
1777
1778          if(dataType)
1779          {
1780             if(dataType._vTbl[__ecereVMethodID_class_OnSaveEdit](dataType, dataPtr, editControl, null))
1781             {
1782                if(mainDataType.type == bitClass && this.subMember)
1783                {
1784                   BitMember bitMember = (BitMember)this.subMember;
1785                   valueData.ui &= ~ (uint)bitMember.mask;
1786                   valueData.ui |= bitValue << bitMember.pos;
1787                }
1788                if(this.subProperty)
1789                {
1790                   if(dataType.type == structClass)
1791                      this.subProperty.Set(propObject, subData);
1792                   else if(dataType.type == unitClass || dataType.type == enumClass || dataType.type == bitClass)
1793                   {
1794                      if(!strcmp(dataType.dataTypeString, "float"))
1795                         ((void(*)(void *,float))(void *)this.subProperty.Set)(propObject, valueSubData.f);
1796                      else if(!strcmp(dataType.dataTypeString, "double"))
1797                         ((void(*)(void *,double))(void *)this.subProperty.Set)(propObject, valueSubData.d);
1798                      else if(!strcmp(dataType.dataTypeString, "byte"))
1799                         ((void(*)(void *,byte))(void *)this.subProperty.Set)(propObject, valueSubData.uc);
1800                      else if(!strcmp(dataType.dataTypeString, "uint16"))
1801                         ((void(*)(void *,uint16))(void *)this.subProperty.Set)(propObject, valueSubData.us);
1802                      else
1803                         this.subProperty.Set(propObject, valueSubData.ui);
1804                   }
1805                   else
1806                      this.subProperty.Set(propObject, valueSubData.ui);
1807                }
1808                if(mainDataType.type == structClass)
1809                   prop.Set(object, data);
1810                else if(mainDataType.type == unitClass || mainDataType.type == enumClass || mainDataType.type == bitClass)
1811                {
1812                   if(!strcmp(mainDataType.dataTypeString, "float"))
1813                      ((void(*)(void *,float))(void *)prop.Set)(object, valueData.f);
1814                   else if(!strcmp(mainDataType.dataTypeString, "double"))
1815                      ((void(*)(void *,double))(void *)prop.Set)(object, valueData.d);
1816                   else if(!strcmp(mainDataType.dataTypeString, "byte"))
1817                      ((void(*)(void *,byte))(void *)prop.Set)(object, valueData.uc);
1818                   else if(!strcmp(mainDataType.dataTypeString, "uint16"))
1819                      ((void(*)(void *,uint16))(void *)prop.Set)(object, valueData.us);
1820                   else
1821                      prop.Set(object, valueData.ui);
1822                }
1823                else
1824                   prop.Set(object, valueData.ui);
1825
1826                result = true;
1827             }
1828             if(data == dataPtr)     dataType._vTbl[__ecereVMethodID_class_OnFree](dataType, &data);
1829             if(subData == dataPtr)  dataType._vTbl[__ecereVMethodID_class_OnFree](dataType, &subData);
1830          }
1831          delete data;
1832          delete subData;
1833
1834          if(result)
1835             return sheet.SaveEdit(this, object);
1836       }
1837       return false;
1838    }
1839 };
1840
1841 class Category : struct
1842 {
1843    Category prev, next;
1844    char * name;
1845    DataRow row;
1846    bool collapsed;
1847 };