3 class Designer : DesignerBase
7 if(GetActiveDesigner() == this)
9 SetActiveDesigner(null);
15 // *** DesignerBase Implementation ***
19 codeEditor.ModifyCode();
22 void UpdateProperties()
24 codeEditor.DesignerModifiedObject();
27 void CodeAddObject(Instance instance, ObjectInfo * object)
29 codeEditor.AddObject(instance, object);
32 void SheetAddObject(ObjectInfo object)
34 codeEditor.sheet.AddObject(object, object.name, typeData, true); //className, true);
37 void AddToolBoxClass(Class _class)
39 ((IDEWorkSpace)master).toolBox.AddControl(_class);
42 void AddDefaultMethod(Instance instance, Instance classInstance)
44 Class _class = instance._class;
46 Method defaultMethod = null;
48 for( ; _class; _class = _class.base)
52 for(method = (Method)_class.methods.first; method; method = (Method)((BTNode)method).next)
54 if(method.type == virtualMethod)
57 method.dataType = ProcessTypeString(method.dataTypeString, false);
58 if(method.vid < minID && (instance == classInstance || (method.dataType.thisClass && eClass_IsDerived(classInstance._class, method.dataType.thisClass.registered))))
60 defaultMethod = method;
68 codeEditor.AddMethod(defaultMethod);
71 bool ObjectContainsCode(ObjectInfo object)
73 // Confirmation if control contains code
77 if(object.instCode.members)
79 for(members = object.instCode.members->first; members; members = members.next)
81 if(members.type == methodMembersInit)
83 //if(!Code_IsFunctionEmpty(members.function))
94 void DeleteObject(ObjectInfo object)
97 codeEditor.DeleteObject(object);
100 void RenameObject(ObjectInfo object, char * name)
102 if(object && (name || !object.classDefinition))
103 codeEditor.RenameObject(object, name);
106 bool FindObject(Instance * object, char * string)
108 ObjectInfo classObject;
109 for(classObject = codeEditor.classes.first; classObject; classObject = classObject.next)
112 if(classObject.name && !strcmp(string, classObject.name))
114 *object = classObject.instance;
117 for(check = classObject.instances.first; check; check = check.next)
119 if(check.name && !strcmp(string, check.name))
121 *object = check.instance;
131 void SelectObjectFromDesigner(ObjectInfo object)
133 codeEditor.SelectObjectFromDesigner(object);
136 borderStyle = sizable;
137 isActiveClient = true;
138 hasVertScroll = true;
139 hasHorzScroll = true;
145 anchor = Anchor { left = 300, right = 150, top = 0, bottom = 0 };
148 CodeEditor codeEditor;
150 Menu fileMenu { menu, $"File", f };
151 MenuItem fileSaveItem
153 fileMenu, $"Save", s, ctrlS;
154 bool NotifySelect(MenuItem selection, Modifiers mods)
156 return codeEditor.MenuFileSave(selection, mods);
159 MenuItem fileSaveAsItem
161 fileMenu, $"Save As...", a;
162 bool NotifySelect(MenuItem selection, Modifiers mods)
164 return codeEditor.MenuFileSaveAs(selection, mods);
169 bool OnClose(bool parentClosing)
173 if(codeEditor && !codeEditor.closing)
175 if(!codeEditor.visible)
177 if(!codeEditor.Destroy(0))
192 bool OnActivate(bool active, Window previous, bool * goOnWithActivation, bool direct)
196 codeEditor.EnsureUpToDate();
197 codeEditor.fixCaret = true;
200 classDesigner.Activate();
206 bool OnKeyHit(Key key, unichar ch)
208 return codeEditor.sheet.OnKeyHit(key, ch);
211 watch(modifiedDocument)
213 fileSaveItem.disabled = !modifiedDocument && codeEditor.fileName;
216 // *** METHODS ACCESSED FROM PROPERTY SHEET/TOOLBOX/CODE EDITOR ***
221 classDesigner.Reset();
222 classDesigner.SelectObject(null, null);
223 classDesigner.Destroy(0);
224 delete classDesigner;
230 if(this && classDesigner)
231 classDesigner.ListToolBoxClasses(this);
234 void SelectObject(ObjectInfo object, Instance instance)
236 ClassDesignerBase classDesigner = this.classDesigner;
238 if(instance && instance._class.module.application != codeEditor.privateModule)
239 printf("warning: SelectObject: instance._class.module.application != codeEditor.privateModule\n");
241 if(!classDesigner || !instance || classDesigner._class != (Class)eInstance_GetDesigner(instance))
245 classDesigner.SelectObject(null, null);
246 classDesigner.Destroy(0);
247 classDesigner = null;
248 delete this.classDesigner;
252 this.classDesigner = classDesigner = eInstance_New(eInstance_GetDesigner(instance));
253 incref classDesigner;
254 //if(!classDesigner.parent)
256 classDesigner.parent = this;
257 classDesigner.anchor = Anchor { left = 0, right = 0, top = 0, bottom = 0 };
259 classDesigner.Create();
262 // Call class editor SelectObject
264 classDesigner.SelectObject(object, instance);
269 // Call class editor AddObject
271 classDesigner.AddObject();
275 codeEditor.Activate();
278 void CreateObject(Instance instance, ObjectInfo object, bool isClass, Instance iclass)
280 subclass(ClassDesignerBase) designerClass = eInstance_GetDesigner(instance);
282 // Call class editor CreateObject
284 designerClass.CreateObject(this, instance, object, isClass, iclass);
287 void ::PostCreateObject(Instance instance, ObjectInfo object, bool isClass, Instance iclass)
289 subclass(ClassDesignerBase) designerClass = eInstance_GetDesigner(instance);
291 // Call class editor PostCreateObject
293 designerClass.PostCreateObject(instance, object, isClass, iclass);
296 void ::DroppedObject(Instance instance, ObjectInfo object, bool isClass, Instance iclass)
298 subclass(ClassDesignerBase) designerClass = eInstance_GetDesigner(instance);
300 // Call class editor PostCreateObject
302 designerClass.DroppedObject(instance, object, isClass, iclass);
305 void PrepareTestObject(Instance instance)
307 subclass(ClassDesignerBase) designerClass = eInstance_GetDesigner(instance);
309 designerClass.PrepareTestObject(this, instance);
312 void ::DestroyObject(Instance instance)
314 subclass(ClassDesignerBase) designerClass = eInstance_GetDesigner(instance);
316 designerClass.DestroyObject(instance);
319 void ::FixProperty(Property prop, Instance instance)
321 subclass(ClassDesignerBase) designerClass = eInstance_GetDesigner(instance);
323 designerClass.FixProperty(prop, instance);