/* * File: bsubwin.cc * Purpose: wxWindows GUI builder - subwindows * Author: Julian Smart * Created: 1993 * Updated: * Copyright: (c) 1993, AIAI, University of Edinburgh */ static const char sccsid[] = "%W% %G%"; #include "wx.h" #include "wx_form.h" #include #include #include "wxbuild.h" #include "bapp.h" #include "namegen.h" #include "bframe.h" #include "bsubwin.h" #include "bitem.h" #include "bgdi.h" #include "bactions.h" #ifdef wx_x #include "wx_image.h" #endif #ifdef wx_msw #include "dib.h" #endif #ifdef wx_x #define DEFAULT_EDITOR "emacs" #endif #ifdef wx_msw #define DEFAULT_EDITOR "notepad" #endif BuildSubwindowData::BuildSubwindowData(BuildFrameData *theParent): BuildWindowData(theParent) { percentOfFrame = 100; hasBorder = FALSE; resizeMode = RESIZE_PROPORTIONAL; resizeModeString = copystring("Proportional"); labelFont = NULL; buttonFont = NULL; } BuildSubwindowData::~BuildSubwindowData(void) { if (resizeModeString) delete[] resizeModeString; if (labelFont) delete[] labelFont; if (buttonFont) delete[] buttonFont; } Bool BuildSubwindowData::ReadPrologAttributes(PrologExpr *expr, PrologDatabase *database) { BuildWindowData::ReadPrologAttributes(expr, database); expr->AssignAttributeValue("percent_of_frame", &percentOfFrame); expr->AssignAttributeValue("border", &hasBorder); expr->AssignAttributeValue("resize_mode", &resizeMode); expr->AssignAttributeValue("label_font", &labelFont); expr->AssignAttributeValue("button_font", &buttonFont); return TRUE; } Bool BuildSubwindowData::WritePrologAttributes(PrologExpr *expr, PrologDatabase *database) { BuildWindowData::WritePrologAttributes(expr, database); expr->AddAttributeValue("percent_of_frame", (long)percentOfFrame); expr->AddAttributeValue("border", (long)hasBorder); expr->AddAttributeValue("resize_mode", (long)resizeMode); expr->AddAttributeValueString("label_font", labelFont); expr->AddAttributeValueString("button_font", buttonFont); return TRUE; } void BuildSubwindowData::FindScreenPosition(int *sx, int *sy) { if (!userWindow) { *sx = x; *sy = y; return; } if (buildParent) { userWindow->GetPosition(sx, sy); buildParent->userWindow->ClientToScreen(sx, sy); } } void BuildSubwindowData::FindClientPosition(int sx, int sy, int *cx, int *cy) { if (buildParent) { *cx = sx; *cy = sy; buildParent->userWindow->ScreenToClient(cx, cy); } x = *cx; y = *cy; } // Generation void BuildSubwindowData::WriteClassImplementation(ostream& stream) { } void BuildSubwindowData::WriteClassDeclaration(ostream& stream) { } void BuildSubwindowData::GenerateWindowStyleString(char *buf) { buf[0] = 0; if (windowStyle & wxVSCROLL) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxVSCROLL"); } if (windowStyle & wxHSCROLL) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxHSCROLL"); } if (windowStyle & wxCAPTION) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxCAPTION"); } if (windowStyle & wxABSOLUTE_POSITIONING) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxABSOLUTE_POSITIONING"); } if (windowStyle & wxBORDER) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxBORDER"); } if (windowStyle & wxRETAINED) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxRETAINED"); } if (windowStyle & wxBACKINGSTORE) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxBACKINGSTORE"); } if (windowStyle & wxNATIVE_IMPL) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxNATIVE_IMPL"); } if ((windowStyle & wxDEFAULT_DIALOG_STYLE) == wxDEFAULT_DIALOG_STYLE) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxDEFAULT_DIALOG_STYLE"); } else { if (windowStyle & wxCAPTION) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxCAPTION"); } if (windowStyle & wxTHICK_FRAME) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxTHICK_FRAME"); } if (windowStyle & wxRESIZE_BORDER) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxRESIZE_BORDER"); } if (windowStyle & wxSYSTEM_MENU) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxSYSTEM_MENU"); } if (windowStyle & wxMINIMIZE_BOX) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxMINIMIZE_BOX"); } if (windowStyle & wxMAXIMIZE_BOX) { if (strlen(buf) > 0) strcat(buf, " | "); strcat(buf, "wxMAXIMIZE_BOX"); } } if (strlen(buf) == 0) strcat(buf, "0"); } // Add class-specific items to form void BuildSubwindowData::AddFormItems(wxForm *form) { form->Add(wxMakeFormString("Name", &name, wxFORM_DEFAULT, NULL, NULL, wxVERTICAL, 300)); form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormString("Description", &description, wxFORM_MULTITEXT, NULL, NULL, wxVERTICAL, 300, 80)); form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormString("Class name", &className, wxFORM_DEFAULT, NULL, NULL, wxVERTICAL, 200)); if (wxSubType(windowType, wxTYPE_DIALOG_BOX)) { form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormString("Title", &title, wxFORM_DEFAULT, NULL, NULL, wxVERTICAL, 300)); form->Add(wxMakeFormNewLine()); } if (!wxSubType(windowType, wxTYPE_DIALOG_BOX)) { form->Add(wxMakeFormBool("Border", &hasBorder)); form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormString("Resize strategy", &resizeModeString, wxFORM_RADIOBOX, new wxList(wxMakeConstraintStrings("Fixed", "Grow", "Proportional", NULL), NULL), NULL, wxVERTICAL)); form->Add(wxMakeFormNewLine()); } form->Add(wxMakeFormShort("Width", &width, wxFORM_DEFAULT, NULL, NULL, wxHORIZONTAL, 100)); form->Add(wxMakeFormShort("Height", &height, wxFORM_DEFAULT, NULL, NULL, wxHORIZONTAL, 100)); if (!wxSubType(windowType, wxTYPE_DIALOG_BOX)) form->Add(wxMakeFormShort("% frame", &percentOfFrame, wxFORM_DEFAULT, NULL, NULL, wxHORIZONTAL, 100)); } // Add class-specific items to dialog, since forms can't // cope with everything. void BuildSubwindowData::AddDialogItems(wxDialogBox *dialog) { } // Generate bitmap, icon etc. resource entries for RC file. void BuildSubwindowData::GenerateResourceEntries(ostream &stream) { wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); child->GenerateResourceEntries(stream); node = node->Next(); } } /* * Panels * */ BuildPanelData::BuildPanelData(BuildFrameData *theParent): BuildSubwindowData(theParent) { x = 30; y = 30; width = 300; height = 300; name = copystring(GetNewObjectName("panel")); // memberName = copystring(name); className = copystring(GetNewObjectName("PanelClass")); title = copystring("untitled"); windowStyle = 0; windowType = wxTYPE_PANEL; fitContents = FALSE; relativeLayout = FALSE; horizLabelPosition = TRUE; } BuildPanelData::~BuildPanelData(void) { } Bool BuildPanelData::EditAttributes(void) { char nameBuf[200]; sprintf(nameBuf, "Panel Properties for %s", name); wxDialogBox *dialog = new wxDialogBox(NULL, nameBuf, TRUE, 10, 10); dialog->SetLabelFont(SmallLabelFont); dialog->SetButtonFont(SmallButtonFont); BuildForm *form = new BuildForm("Creating a panel subwindow"); AddFormItems(form); form->AssociatePanel(dialog); form->dialog = dialog; AddDialogItems(dialog); dialog->Fit(); dialog->Centre(wxBOTH); form->RevertValues(); dialog->Show(TRUE); if (strcmp(resizeModeString, "Proportional") == 0) resizeMode = RESIZE_PROPORTIONAL; else if (strcmp(resizeModeString, "Fixed") == 0) resizeMode = RESIZE_FIXED; else if (strcmp(resizeModeString, "Grow") == 0) resizeMode = RESIZE_GROW; BuildFrameData *frame = (BuildFrameData *)buildParent; frame->userWindow->OnSize(-1, -1); return TRUE; } // Add class-specific items to form void BuildPanelData::AddFormItems(wxForm *form) { BuildSubwindowData::AddFormItems(form); form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormBool("Fit contents", &fitContents)); // form->Add(wxMakeFormBool("Relative layout", &relativeLayout)); form->Add(wxMakeFormBool("Horizontal labels", &horizLabelPosition)); form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormString("Label font", &labelFont, wxFORM_DEFAULT, NULL, NULL, wxVERTICAL, 200)); form->Add(wxMakeFormString("Button font", &buttonFont, wxFORM_DEFAULT, NULL, NULL, wxVERTICAL, 200)); } // Add class-specific items to dialog, since forms can't // cope with everything. void BuildPanelData::AddDialogItems(wxDialogBox *dialog) { } Bool BuildPanelData::ReadPrologAttributes(PrologExpr *expr, PrologDatabase *database) { BuildSubwindowData::ReadPrologAttributes(expr, database); expr->AssignAttributeValue("fit_contents", &fitContents); expr->AssignAttributeValue("relative_layout", &relativeLayout); expr->AssignAttributeValue("label_position", &horizLabelPosition); return TRUE; } Bool BuildPanelData::WritePrologAttributes(PrologExpr *expr, PrologDatabase *database) { BuildSubwindowData::WritePrologAttributes(expr, database); expr->AddAttributeValue("fit_contents", (long)fitContents); expr->AddAttributeValue("relative_layout", (long)relativeLayout); expr->AddAttributeValue("label_position", (long)horizLabelPosition); return TRUE; } Bool BuildPanelData::MakeRealWindow(void) { if (!(buildParent && buildParent->userWindow)) return FALSE; if (hasBorder) windowStyle |= wxBORDER; else if (windowStyle & wxBORDER) windowStyle -= wxBORDER; UserPanel *panel = new UserPanel((wxFrame *)buildParent->userWindow, x, y, width, height, windowStyle); userWindow = panel; panel->buildWindow = this; wxFont *bFont = NULL; wxFont *lFont = NULL; if (buttonFont && (bFont = FindFont(buttonFont))) { panel->SetButtonFont(bFont); } if (labelFont && (lFont = FindFont(labelFont))) { panel->SetLabelFont(lFont); } MakeRealWindowChildren(); if (fitContents) panel->Fit(); if (horizLabelPosition) panel->SetLabelPosition(wxHORIZONTAL); else panel->SetLabelPosition(wxVERTICAL); SetTestMode(buildApp.testMode); userWindow->Show(TRUE); return TRUE; } Bool BuildPanelData::DestroyRealWindow(void) { if (userWindow) { userWindow->GetPosition(&x, &y); userWindow->GetSize(&width, &height); delete userWindow; userWindow = NULL; } return TRUE; } void BuildPanelData::WriteClassDeclaration(ostream& stream) { if (description && (strlen(description) > 0)) { stream << "/*\n" << description << "\n*/\n"; } stream << "class " << className << ": public wxPanel\n{\n"; stream << " private:\n protected:\n public:\n"; // Want to have as member variables all child subwindows if (!buildApp.useResourceMethod && (children.Number() > 0)) { stream << " // Panel items for reference within the program.\n"; nameSpace.BeginBlock(); wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); // if (child->memberName) delete[] child->memberName; // child->memberName = copystring(child->name); stream << " " << child->className << " *" << child->name << ";\n"; node = node->Next(); } nameSpace.EndBlock(); stream << "\n"; } // Want to have as members, all bitmaps needed by buttons if (!buildApp.useResourceMethod && (children.Number() > 0)) { stream << " // Possible bitmaps for buttons.\n"; nameSpace.BeginBlock(); wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); if (child->windowType == wxTYPE_BUTTON) { BuildButtonData *button = (BuildButtonData *)child; if (button->bitmapData) { // Generate name for the bitmap char buf1[50]; strcpy(buf1, button->bitmapData->GetBitmapName()); strcat(buf1, "Bitmap"); stream << " wxBitmap *" << buf1 << ";\n"; } } node = node->Next(); } nameSpace.EndBlock(); stream << "\n"; } stream << " // Constructor and destructor\n"; stream << " " << className ; if (buildApp.useResourceMethod) stream << "(void);\n"; else stream << "(wxFrame *parent, int x, int y, int width, int height, long style, char *name);\n"; stream << " ~" << className << "(void);\n\n"; stream << " void OnSize(int w, int h);\n"; if (buildApp.useResourceMethod) stream << " void OnCommand(wxWindow& win, wxCommandEvent& event);\n"; stream << "};\n\n"; wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); child->WriteClassDeclaration(stream); node = node->Next(); } } // Generation void BuildPanelData::WriteClassImplementation(ostream& stream) { if (description && (strlen(description) > 0)) { stream << "/*\n" << description << "\n*/\n"; } stream << className << "::" << className ; if (buildApp.useResourceMethod) { stream << "(void)\n{\n"; } else { stream << "(wxFrame *parent, int x, int y, int width, int height, long style, char *name):\n"; stream << " wxPanel(parent, x, y, width, height, style, name)\n{\n"; } nameSpace.BeginBlock(); // Set the default label orientation if (!horizLabelPosition) { stream << " SetLabelPosition(wxVERTICAL);\n"; } // Set button and label fonts if they exist wxFont *bFont = NULL; wxFont *lFont = NULL; if (buttonFont && (bFont = FindFont(buttonFont))) { stream << " SetButtonFont(theApp." << buttonFont << ");\n"; } if (labelFont && (lFont = FindFont(labelFont))) { stream << " SetLabelFont(theApp." << labelFont << ");\n"; } // Initialize any button bitmaps if (!buildApp.useResourceMethod && (children.Number() > 0)) { wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); if (child->windowType == wxTYPE_BUTTON) { BuildButtonData *button = (BuildButtonData *)child; if (button->bitmapData) { // Generate name for the bitmap char buf1[100]; char buf2[100]; strcpy(buf1, button->bitmapData->GetBitmapName()); strcat(buf1, "Bitmap"); strcpy(buf2, button->bitmapData->GetBitmapName()); strcat(buf2, ".xbm"); stream << "#ifdef wx_x\n"; stream << "#include \"" << buf2 << "\"\n"; stream << " " << buf1 << " = new wxBitmap(" << button->bitmapData->GetBitmapName() << ", "; stream << button->bitmapData->GetBitmapName() << "_width, "; stream << button->bitmapData->GetBitmapName() << "_height);\n"; stream << "#endif\n"; stream << "#ifdef wx_msw\n"; stream << " " << buf1 << " = new wxBitmap(\"" << button->bitmapData->GetBitmapName() << "\");\n"; stream << "#endif\n"; } } node = node->Next(); } } // Create all child subwindows if (!buildApp.useResourceMethod && (children.Number() > 0)) { stream << " // Create panel items\n"; wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); child->GenerateWindowInitialisationPre(stream, child->name, " "); stream << " " << child->name << " = "; child->GenerateConstructorCall(stream, "this"); stream << ";\n"; child->GenerateWindowInitialisationPost(stream, child->name, " "); node = node->Next(); } } if (fitContents) { stream << " // Fit panel to contents\n"; stream << " Fit();\n\n"; } nameSpace.EndBlock(); stream << "}\n\n"; // Destructor stream << className << "::~" << className << "(void)\n{\n"; if (!buildApp.useResourceMethod) { wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); if (child->windowType == wxTYPE_BUTTON) { BuildButtonData *button = (BuildButtonData *)child; if (button->bitmapData) { // Generate name for the bitmap char buf1[50]; strcpy(buf1, button->bitmapData->GetBitmapName()); strcat(buf1, "Bitmap"); stream << " delete " << buf1 << ";\n"; } } node = node->Next(); } } stream << "\n}\n\n"; stream << "void " << className << "::OnSize(int w, int h)\n{\n"; stream << " wxPanel::OnSize(w, h);\n"; stream << "}\n\n"; if (buildApp.useResourceMethod) { stream << "void " << className << "::OnCommand(wxWindow& win, wxCommandEvent& event)\n{\n"; wxNode *node1 = children.First(); while (node1) { BuildWindowData *child = (BuildWindowData *)node1->Data(); if (node1 == children.First()) stream << " if (wxStringEq(win.GetName(), \"" << child->name << "\"))\n"; else stream << " else if (wxStringEq(win.GetName(), \"" << child->name << "\"))\n"; stream << " {\n"; wxNode *node = child->buildActions.First(); while (node) { BuildAction *action = (BuildAction *)node->Data(); action->GenerateActionCPP(stream, " ", child); node = node->Next(); } node1 = node1->Next(); stream << " }\n"; } stream << "}\n\n"; } else { wxNode *node1 = children.First(); while (node1) { BuildWindowData *child = (BuildWindowData *)node1->Data(); child->WriteClassImplementation(stream); node1 = node1->Next(); } } } void BuildPanelData::GenerateConstructorCall(ostream& stream, char *parentName) { if (buildApp.useResourceMethod) { stream << "new "; stream << className ; } else { stream << "new "; stream << className << "(" << parentName; stream << ", " << x << ", " << y << ", "; stream << width << ", " << height << ", "; char buf[400]; GenerateWindowStyleString(buf); stream << buf << ", \"" << name << "\")"; } } // Write .wxr resource information for this window void BuildPanelData::GenerateWXResourceData(ostream& stream) { stream << "static char *" << name << " = \"dialog(name = '" << name << "',\\\n"; char buf[300]; GenerateWindowStyleString(buf); if (buf[0] == '0') buf[0] = 0; stream << " style = '" << buf << "',\\\n"; stream << " title = " << SafeWord(title) << ",\\\n"; if (windowType == wxTYPE_DIALOG_BOX) { stream << " modal = " << ((BuildDialogBoxData *)this)->modal << ",\\\n"; } if (buttonFont) { wxFont *theFont = FindFont(buttonFont); if (theFont) { int pointSize = theFont->GetPointSize(); char *style = theFont->GetStyleString(); char *weight = theFont->GetWeightString(); char *family = theFont->GetFamilyString(); Bool underlined = theFont->GetUnderlined(); stream << " button_font = [" << pointSize << ", '" << family << "', '" << style << "', '"; stream << weight << "', " << (int)underlined << "],\\\n"; } } if (labelFont) { wxFont *theFont = FindFont(labelFont); if (theFont) { int pointSize = theFont->GetPointSize(); char *style = theFont->GetStyleString(); char *weight = theFont->GetWeightString(); char *family = theFont->GetFamilyString(); Bool underlined = theFont->GetUnderlined(); stream << " label_font = [" << pointSize << ", '" << family << "', '" << style << "', '"; stream << weight << "', " << (int)underlined << "],\\\n"; } } stream << " x = " << x << ", y = " << y << ", width = " << width << ", height = " << height; if (children.First()) stream << ",\\\n"; else stream << "\\\n"; wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); child->GenerateWXResourceData(stream); if (node->Next()) stream << ",\\\n"; node = node->Next(); } stream << ").\";\n\n"; } // Write .wxr resource loading code void BuildPanelData::GenerateResourceLoading(ostream& stream) { stream << " wxResourceParseData(" << name << ");\n"; BuildWindowData::GenerateResourceLoading(stream); } /* * Text window * */ BuildTextWindowData::BuildTextWindowData(BuildFrameData *theParent): BuildSubwindowData(theParent) { x = 30; y = 30; width = 300; height = 300; name = copystring(GetNewObjectName("textwindow")); // memberName = copystring(name); className = copystring(GetNewObjectName("TextWindowClass")); title = copystring("untitled"); windowStyle = wxBORDER | wxNATIVE_IMPL; windowType = wxTYPE_TEXT_WINDOW; defaultFile = NULL; } BuildTextWindowData::~BuildTextWindowData(void) { } Bool BuildTextWindowData::EditAttributes(void) { char nameBuf[200]; sprintf(nameBuf, "Text Window Properties for %s", name); wxDialogBox *dialog = new wxDialogBox(NULL, nameBuf, TRUE, 10, 10); dialog->SetLabelFont(SmallLabelFont); dialog->SetButtonFont(SmallButtonFont); BuildForm *form = new BuildForm("Creating a text subwindow"); AddFormItems(form); form->AssociatePanel(dialog); form->dialog = dialog; AddDialogItems(dialog); dialog->Fit(); dialog->Centre(wxBOTH); form->RevertValues(); dialog->Show(TRUE); if (strcmp(resizeModeString, "Proportional") == 0) resizeMode = RESIZE_PROPORTIONAL; else if (strcmp(resizeModeString, "Fixed") == 0) resizeMode = RESIZE_FIXED; else if (strcmp(resizeModeString, "Grow") == 0) resizeMode = RESIZE_GROW; BuildFrameData *frame = (BuildFrameData *)buildParent; frame->userWindow->OnSize(-1, -1); return TRUE; } // Add class-specific items to form void BuildTextWindowData::AddFormItems(wxForm *form) { BuildSubwindowData::AddFormItems(form); form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormString("Text file", &defaultFile)); } // Add class-specific items to dialog, since forms can't // cope with everything. void BuildTextWindowData::AddDialogItems(wxDialogBox *dialog) { } Bool BuildTextWindowData::ReadPrologAttributes(PrologExpr *expr, PrologDatabase *database) { BuildSubwindowData::ReadPrologAttributes(expr, database); expr->AssignAttributeValue("file", &defaultFile); return TRUE; } Bool BuildTextWindowData::WritePrologAttributes(PrologExpr *expr, PrologDatabase *database) { BuildSubwindowData::WritePrologAttributes(expr, database); expr->AddAttributeValueString("file", defaultFile); return TRUE; } Bool BuildTextWindowData::MakeRealWindow(void) { if (!(buildParent && buildParent->userWindow)) return FALSE; windowStyle = 0; if (hasBorder) windowStyle |= wxBORDER; else if (windowStyle & wxBORDER) windowStyle -= wxBORDER; UserTextWindow *text = new UserTextWindow((wxFrame *)buildParent->userWindow, x, y, width, height, windowStyle); userWindow = text; text->buildWindow = this; MakeRealWindowChildren(); userWindow->Show(TRUE); return TRUE; } Bool BuildTextWindowData::DestroyRealWindow(void) { if (userWindow) { userWindow->GetPosition(&x, &y); userWindow->GetSize(&width, &height); delete userWindow; userWindow = NULL; } return TRUE; } void BuildTextWindowData::WriteClassDeclaration(ostream& stream) { if (description && (strlen(description) > 0)) { stream << "/*\n" << description << "\n*/\n"; } stream << "class " << className << ": public wxTextWindow\n{\n"; stream << " private:\n protected:\n public:\n"; stream << " // Constructor and destructor\n"; stream << " " << className ; stream << "(wxFrame *parent, int x, int y, int width, int height, long style, char *name);\n"; stream << " ~" << className << "(void);\n\n"; stream << " void OnSize(int w, int h);\n"; stream << "};\n\n"; wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); child->WriteClassDeclaration(stream); node = node->Next(); } } // Generation void BuildTextWindowData::WriteClassImplementation(ostream& stream) { if (description && (strlen(description) > 0)) { stream << "/*\n" << description << "\n*/\n"; } stream << className << "::" << className ; stream << "(wxFrame *parent, int x, int y, int width, int height, long style, char *name):\n"; stream << " wxTextWindow(parent, x, y, width, height, style, name)\n{\n"; if (defaultFile && strlen(defaultFile) > 0) { stream << " // Load a default file\n"; stream << " LoadFile(" << "\"" << defaultFile << "\"" << ");\n\n"; } stream << "}\n\n"; stream << className << "::~" << className << "(void)\n{\n}\n\n"; stream << "void " << className << "::OnSize(int w, int h)\n{\n"; stream << " wxTextWindow::OnSize(w, h);\n"; stream << "}\n\n"; wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); child->WriteClassImplementation(stream); node = node->Next(); } } void BuildTextWindowData::GenerateConstructorCall(ostream& stream, char *parentName) { stream << "new "; stream << className << "(" << parentName; stream << ", " << x << ", " << y << ", "; stream << width << ", " << height << ", "; char buf[400]; GenerateWindowStyleString(buf); stream << buf << ", \"" << name << "\")"; } /* * Canvas * */ BuildCanvasData::BuildCanvasData(BuildFrameData *theParent): BuildSubwindowData(theParent) { x = 30; y = 30; width = 300; height = 300; name = copystring(GetNewObjectName("canvas")); memberName = copystring(name); className = copystring(GetNewObjectName("CanvasClass")); title = copystring("untitled"); windowStyle = wxBORDER; windowType = wxTYPE_CANVAS; bitmapData = NULL; // Scrollbar unitSizeX = 20; unitSizeY = 20; noUnitsX = 50; noUnitsY = 50; unitsPerPageX = 10; unitsPerPageY = 10; } BuildCanvasData::~BuildCanvasData(void) { /* if (simulationBitmap) delete simulationBitmap; if (simulationColourMap) delete simulationColourMap; if (simulationBitmapName) delete[] simulationBitmapName; */ if (bitmapData) delete bitmapData; } Bool BuildCanvasData::EditAttributes(void) { char nameBuf[200]; sprintf(nameBuf, "Canvas Properties for %s", name); wxDialogBox *dialog = new wxDialogBox(NULL, nameBuf, TRUE, 10, 10); dialog->SetLabelFont(SmallLabelFont); dialog->SetButtonFont(SmallButtonFont); BuildForm *form = new BuildForm("Creating a canvas subwindow"); AddFormItems(form); form->AssociatePanel(dialog); form->dialog = dialog; AddDialogItems(dialog); dialog->Fit(); dialog->Centre(wxBOTH); form->RevertValues(); dialog->Show(TRUE); if (strcmp(resizeModeString, "Proportional") == 0) resizeMode = RESIZE_PROPORTIONAL; else if (strcmp(resizeModeString, "Fixed") == 0) resizeMode = RESIZE_FIXED; else if (strcmp(resizeModeString, "Grow") == 0) resizeMode = RESIZE_GROW; BuildFrameData *frame = (BuildFrameData *)buildParent; frame->userWindow->OnSize(-1, -1); return TRUE; } // Add class-specific items to form void BuildCanvasData::AddFormItems(wxForm *form) { BuildSubwindowData::AddFormItems(form); form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormBool("Retained canvas", &isRetained)); form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormShort("Pixels/unit X", &unitSizeX, wxFORM_DEFAULT, NULL, NULL, NULL, 150)); form->Add(wxMakeFormShort("Pixels/unit Y", &unitSizeY, wxFORM_DEFAULT, NULL, NULL, NULL, 150)); form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormShort("No units X", &noUnitsX, wxFORM_DEFAULT, NULL, NULL, NULL, 150)); form->Add(wxMakeFormShort("No units Y", &noUnitsY, wxFORM_DEFAULT, NULL, NULL, NULL, 150)); form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormShort("Units/page X", &unitsPerPageX, wxFORM_DEFAULT, NULL, NULL, NULL, 150)); form->Add(wxMakeFormShort("Units/page Y", &unitsPerPageY, wxFORM_DEFAULT, NULL, NULL, NULL, 150)); } static wxButton *CanvasBitmapButton = NULL; static void CanvasBitmapCheckBoxProc(wxCheckBox& check, wxCommandEvent& event) { BuildCanvasData *data = (BuildCanvasData *)check.GetClientData(); MakeModified(); if (check.GetValue()) { CanvasBitmapButton->Enable(TRUE); if (!data->bitmapData) data->bitmapData = new BuildBitmapData; data->bitmapData->Edit(check.GetParent()); data->LoadCanvasBitmap(); } else { data->ClearCanvasBitmap(); CanvasBitmapButton->Enable(FALSE); if (data->bitmapData) delete data->bitmapData; } } static void CanvasBitmapButtonProc(wxButton& but, wxCommandEvent& event) { BuildCanvasData *data = (BuildCanvasData *)but.GetClientData(); MakeModified(); wxBitmap *oldBitmap = data->bitmapData->GetBitmap(); data->bitmapData->Edit(but.GetParent()); data->bitmapData->SetBitmap(NULL); if (data->bitmapData->CreateBitmap()) { data->LoadCanvasBitmap(); delete oldBitmap; } else { data->bitmapData->SetBitmap(oldBitmap); } } // Add class-specific items to dialog, since forms can't // cope with everything. void BuildCanvasData::AddDialogItems(wxDialogBox *dialog) { dialog->NewLine(); wxCheckBox *checkBox = new wxCheckBox(dialog, (wxFunction)CanvasBitmapCheckBoxProc, "Use bitmap"); checkBox->SetClientData((char *)this); CanvasBitmapButton = new wxButton(dialog, (wxFunction)CanvasBitmapButtonProc, "Edit bitmap properties"); CanvasBitmapButton->SetClientData((char *)this); if (bitmapData) { checkBox->SetValue(TRUE); } else { checkBox->SetValue(FALSE); CanvasBitmapButton->Enable(FALSE); } } Bool BuildCanvasData::ReadPrologAttributes(PrologExpr *expr, PrologDatabase *database) { BuildSubwindowData::ReadPrologAttributes(expr, database); expr->AssignAttributeValue("unit_size_x", &unitSizeX); expr->AssignAttributeValue("unit_size_y", &unitSizeY); expr->AssignAttributeValue("no_units_x", &noUnitsX); expr->AssignAttributeValue("no_units_y", &noUnitsY); expr->AssignAttributeValue("unit_size_x", &unitSizeX); expr->AssignAttributeValue("units_page_x", &unitsPerPageX); expr->AssignAttributeValue("units_page_y", &unitsPerPageY); // expr->AssignAttributeValue("bitmap", &simulationBitmapName); PrologExpr *bitmapExpr = expr->AttributeValue("bitmap"); if (bitmapExpr && (bitmapExpr->Type() == PrologList)) { bitmapData = new BuildBitmapData; bitmapData->ReadPrologAttributes(expr); } else if (bitmapExpr) { // Backward compatibility: "bitmap" is a string, not a list. char *bitmapFilename = bitmapExpr->StringValue(); if (bitmapFilename) { if (strlen(bitmapFilename) > 0) { bitmapData = new BuildBitmapData; char buf[400]; strcpy(buf, FileNameFromPath(bitmapFilename)); wxStripExtension(buf); bitmapData->SetBitmapName(buf); } } } return TRUE; } Bool BuildCanvasData::WritePrologAttributes(PrologExpr *expr, PrologDatabase *database) { BuildSubwindowData::WritePrologAttributes(expr, database); expr->AddAttributeValue("unit_size_x", (long)unitSizeX); expr->AddAttributeValue("unit_size_y", (long)unitSizeY); expr->AddAttributeValue("no_units_x", (long)noUnitsX); expr->AddAttributeValue("no_units_y", (long)noUnitsY); expr->AddAttributeValue("unit_size_x", (long)unitSizeX); expr->AddAttributeValue("units_page_x", (long)unitsPerPageX); expr->AddAttributeValue("units_page_y", (long)unitsPerPageY); // expr->AddAttributeValueString("bitmap", simulationBitmapName); if (bitmapData) bitmapData->WritePrologAttributes(expr); return TRUE; } // Load bitmap into canvas Bool BuildCanvasData::LoadCanvasBitmap(void) { if (userWindow) { wxCanvas *canvas = (wxCanvas *)userWindow; wxDC *dc = canvas->GetDC(); if (bitmapData && bitmapData->CreateBitmap()) { userWindow->SetColourMap(bitmapData->GetBitmap()->GetColourMap()); dc->Clear(); canvas->OnPaint(); } else { canvas->SetColourMap(NULL); dc->Clear(); } } return TRUE; } // Clear colourmap Bool BuildCanvasData::ClearCanvasBitmap(void) { if (userWindow) { wxCanvas *canvas = (wxCanvas *)userWindow; wxDC *dc = canvas->GetDC(); canvas->SetColourMap(NULL); dc->Clear(); } return TRUE; } Bool BuildCanvasData::MakeRealWindow(void) { if (!(buildParent && buildParent->userWindow)) return FALSE; windowStyle = 0; if (hasBorder) windowStyle |= wxBORDER; else if (windowStyle & wxBORDER) windowStyle -= wxBORDER; if (isRetained) windowStyle |= wxRETAINED; else if (windowStyle & wxRETAINED) windowStyle -= wxRETAINED; UserCanvas *canvas = new UserCanvas((wxFrame *)buildParent->userWindow, x, y, width, height, windowStyle); userWindow = canvas; canvas->buildWindow = this; MakeRealWindowChildren(); if ((unitSizeX > 0) && (unitSizeY > 0)) canvas->SetScrollbars(unitSizeX, unitSizeY, noUnitsX, noUnitsY, unitsPerPageX, unitsPerPageY); if (bitmapData) LoadCanvasBitmap(); userWindow->Show(TRUE); return TRUE; } Bool BuildCanvasData::DestroyRealWindow(void) { if (userWindow) { if (bitmapData) ((wxCanvas *)userWindow)->SetColourMap(NULL); userWindow->GetPosition(&x, &y); userWindow->GetSize(&width, &height); delete userWindow; userWindow = NULL; } return TRUE; } void BuildCanvasData::WriteClassDeclaration(ostream& stream) { if (description && (strlen(description) > 0)) { stream << "/*\n" << description << "\n*/\n"; } stream << "class " << className << ": public wxCanvas\n{\n"; stream << " private:\n protected:\n public:\n"; // Declare bitmap pointer if we're using a bitmap on the canvas if (bitmapData) { stream << " wxBitmap *simulationBitmap;\n\n"; } stream << " // Constructor and destructor\n"; stream << " " << className ; stream << "(wxFrame *parent, int x, int y, int width, int height, long style, char *name);\n"; stream << " ~" << className << "(void);\n\n"; stream << " void OnSize(int w, int h);\n"; stream << " void OnPaint(void);\n"; stream << " void OnEvent(wxMouseEvent& event);\n"; stream << " void OnChar(wxKeyEvent& event);\n"; stream << "};\n\n"; wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); child->WriteClassDeclaration(stream); node = node->Next(); } } // Helper function // Inserts the correct number of backslashes for DOS. void WriteFileName(ostream& stream, char *filename) { int len = strlen(filename); for (int i = 0; i < len; i++) { stream << filename[i]; #ifdef wx_msw if (filename[i] == '\\') stream << '\\'; #endif } } // Generation void BuildCanvasData::WriteClassImplementation(ostream& stream) { if (description && (strlen(description) > 0)) { stream << "/*\n" << description << "\n*/\n"; } stream << className << "::" << className ; stream << "(wxFrame *parent, int x, int y, int width, int height, long style, char *name):\n"; stream << " wxCanvas(parent, x, y, width, height, style, name)\n{\n"; // Initialize bitmap to NULL if (bitmapData) { stream << " simulationBitmap = NULL;\n\n"; } if (unitSizeX > 0 && unitSizeY > 0 && noUnitsX > 0 && noUnitsY > 0) { stream << " /* Set scrollbars to:\n"; stream << " * " << unitSizeX << " pixels per horizontal units (1 unit = 1 scroll line)\n"; stream << " * " << unitSizeY << " pixels per vertical units\n"; stream << " * " << noUnitsX << " horizontal units\n"; stream << " * " << noUnitsY << " vertical units\n"; stream << " * " << unitsPerPageX << " units per horizontal page\n"; stream << " * " << unitsPerPageY << " units per vertical page.\n"; stream << " * Virtual canvas is therefore " << unitSizeX*noUnitsX << " pixels by "; stream << unitSizeY*noUnitsY << " pixels.\n"; stream << " */\n"; stream << " SetScrollbars(" << unitSizeX << ", " << unitSizeY << ", "; stream << noUnitsX << ", " << noUnitsY << ", "; stream << unitsPerPageX << ", " << unitsPerPageY << ");\n"; } // Load bitmap if (bitmapData) { if (buildApp.useResourceMethod) { stream << " simulationBitmap = wxResourceCreateBitmap(\"" << bitmapData->GetBitmapName() << "_resource\");\n"; } else { stream << " wxColourMap *simulationColourmap = NULL;\n"; stream << " simulationBitmap = wxLoadBitmap(\""; // Inserts the correct number of backslashes for DOS. WriteFileName(stream, bitmapData->GetBitmapName()); stream << ".bmp\", &simulationColourmap);\n"; stream << " simulationBitmap->SetColourMap(simulationColourmap);\n"; stream << " SetColourMap(simulationBitmap->GetColourMap());\n"; stream << " OnPaint();\n"; stream << "\n"; } } stream << "}\n\n"; stream << className << "::~" << className << "(void)\n{\n"; if (bitmapData) { stream << " if (simulationBitmap)\n {\n"; stream << " SetColourMap(NULL);\n"; stream << " delete simulationBitmap;\n }\n"; } stream << "}\n\n"; stream << "// Called when canvas is resized.\n"; stream << "void " << className << "::OnSize(int w, int h)\n{\n"; stream << " wxCanvas::OnSize(w, h);\n"; stream << "}\n\n"; stream << "// Called when canvas needs to be repainted.\n"; stream << "void " << className << "::OnPaint(void)\n{\n"; stream << " // Speeds up drawing under Windows.\n"; stream << " GetDC()->BeginDrawing();\n\n"; stream << " // Insert your drawing code here.\n"; if (bitmapData) { stream << " if (simulationBitmap)\n {\n"; stream << " // Draw the bitmap on the canvas\n"; stream << " wxCanvasDC *canvdc = GetDC();\n"; stream << " wxMemoryDC temp_dc(canvdc);\n"; stream << " temp_dc.SelectObject(simulationBitmap);\n"; stream << " canvdc->Blit(0.0,0.0,\n"; stream << " (float)simulationBitmap->GetWidth(),\n"; stream << " (float)simulationBitmap->GetHeight(),\n"; stream << " &temp_dc, 0.0, 0.0, wxCOPY);\n\n"; stream << " }\n"; } stream << "\n"; stream << " GetDC()->EndDrawing();\n"; stream << "}\n\n"; stream << "// Called when the canvas receives a mouse event.\n"; stream << "void " << className << "::OnEvent(wxMouseEvent& event)\n{\n"; stream << " wxCanvas::OnEvent(event);\n"; stream << "}\n\n"; stream << "// Called when the canvas receives a key event.\n"; stream << "void " << className << "::OnChar(wxKeyEvent& event)\n{\n"; stream << " wxCanvas::OnChar(event);\n"; stream << "}\n\n"; wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); child->WriteClassImplementation(stream); node = node->Next(); } } void BuildCanvasData::GenerateConstructorCall(ostream& stream, char *parentName) { stream << "new "; stream << className << "(" << parentName; stream << ", " << x << ", " << y << ", "; stream << width << ", " << height << ", "; char buf[400]; GenerateWindowStyleString(buf); stream << buf << ", \"" << name << "\")"; } // Generate bitmap, icon etc. resource entries for RC file. void BuildCanvasData::GenerateResourceEntries(ostream &stream) { if (bitmapData) bitmapData->GenerateResourceEntry(stream); } void BuildCanvasData::GenerateWXResourceBitmaps(ostream& stream) { if (bitmapData) bitmapData->GenerateWXResourceBitmap(stream); } void BuildCanvasData::GenerateWXResourceBitmapRegistration(ostream& stream) { if (bitmapData) bitmapData->GenerateWXResourceBitmapRegistration(stream); } void BuildCanvasData::GenerateResourceLoading(ostream &stream) { if (bitmapData) bitmapData->GenerateResourceLoading(stream); } void BuildCanvasData::GenerateBitmapDataIncludes(ostream& stream) { if (bitmapData) bitmapData->GenerateBitmapDataInclude(stream); } /* * USER WINDOWS * */ /* * User panel * */ void UserPanel::OnSize(int w, int h) { wxPanel::OnSize(w, h); } void UserPanel::OnLeftClick(int x, int y, int keys) { buildApp.UsePosition(TRUE, buildWindow, x, y); switch (EditorPaletteFrame->palette->currentlySelected) { case PALETTE_FRAME: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_FRAME); break; case PALETTE_DIALOG_BOX: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_DIALOG); break; case PALETTE_PANEL: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_PANEL); break; case PALETTE_CANVAS: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_CANVAS); break; case PALETTE_TEXT_WINDOW: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_TEXT_WINDOW); break; case PALETTE_BUTTON: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_BUTTON); break; case PALETTE_MESSAGE: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_MESSAGE); break; case PALETTE_TEXT: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_TEXT); break; case PALETTE_MULTITEXT: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_MULTITEXT); break; case PALETTE_CHOICE: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_CHOICE); break; case PALETTE_CHECKBOX: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_CHECKBOX); break; case PALETTE_RADIOBOX: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_RADIOBOX); break; case PALETTE_LISTBOX: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_LISTBOX); break; case PALETTE_SLIDER: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_SLIDER); break; case PALETTE_GAUGE: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_GAUGE); break; case PALETTE_GROUPBOX: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_GROUPBOX); break; default: break; } buildApp.UsePosition(FALSE); } void UserPanel::OnRightClick(int x, int y, int keys) { buildApp.objectMenu->SetClientData((char *)buildWindow); PopupMenu(buildApp.objectMenu, (float)x, (float)y); } void UserPanel::OnItemLeftClick(wxItem *item, int x, int y, int keys) { BuildWindowData *child = buildWindow->FindChildWindow(item); if (item->IsSelected()) { BuildSelections.DeleteObject(child); item->SelectItem(FALSE); GetPanelDC()->Clear(); Refresh(); } else { BuildSelections.Append(child); item->SelectItem(TRUE); GetPanelDC()->BeginDrawing(); item->DrawSelectionHandles(GetPanelDC()); GetPanelDC()->EndDrawing(); } } void UserPanel::OnItemRightClick(wxItem *item, int x, int y, int keys) { BuildWindowData *child = buildWindow->FindChildWindow(item); if (child) { buildApp.objectMenu->SetClientData((char *)child); PopupMenu(buildApp.objectMenu, (float)x, (float)y); } } void UserPanel::OnItemMove(wxItem *item, int x, int y) { BuildWindowData *child = buildWindow->FindChildWindow(item); if (child) { child->x = x; child->y = y; } } void UserPanel::OnItemSize(wxItem *item, int w, int h) { BuildWindowData *child = buildWindow->FindChildWindow(item); if (child) { child->width = w; child->width = h; } } /* * User Text subwindow * */ void UserTextWindow::OnSize(int w, int h) { wxTextWindow::OnSize(w, h); } /* * User canvas * */ void UserCanvas::OnSize(int w, int h) { wxCanvas::OnSize(w, h); } void UserCanvas::OnChar(wxKeyEvent& event) { wxCanvas::OnChar(event); } void UserCanvas::OnEvent(wxMouseEvent& event) { wxCanvas::OnEvent(event); } void UserCanvas::OnPaint(void) { if (buildWindow->bitmapData && buildWindow->bitmapData->GetBitmap()) { wxBitmap *bitmap = buildWindow->bitmapData->GetBitmap(); wxColourMap *colourmap = bitmap->GetColourMap(); // Draw the bitmap on the canvas wxCanvasDC *canvdc = GetDC(); wxMemoryDC temp_dc(canvdc); temp_dc.SelectObject(bitmap); temp_dc.SetColourMap(colourmap); canvdc->Blit(0.0,0.0, (float)bitmap->GetWidth(), (float)bitmap->GetHeight(), &temp_dc, 0.0, 0.0, wxCOPY); } } /* * Dialog boxes * */ BuildDialogBoxData::BuildDialogBoxData(BuildFrameData *theParent): BuildPanelData(theParent) { x = 30; y = 30; width = 300; height = 300; name = copystring(GetNewObjectName("dialogbox")); memberName = copystring(name); className = copystring(GetNewObjectName("DialogBoxClass")); title = copystring("untitled"); windowStyle = wxDEFAULT_DIALOG_STYLE; windowType = wxTYPE_DIALOG_BOX; modal = FALSE; } BuildDialogBoxData::~BuildDialogBoxData(void) { } Bool BuildDialogBoxData::EditAttributes(void) { char nameBuf[200]; sprintf(nameBuf, "Dialog Box Properties for %s", name); wxDialogBox *dialog = new wxDialogBox(NULL, nameBuf, TRUE, 10, 10); dialog->SetLabelFont(SmallLabelFont); dialog->SetButtonFont(SmallButtonFont); BuildForm *form = new BuildForm("Creating a dialog box"); AddFormItems(form); form->AssociatePanel(dialog); form->dialog = dialog; AddDialogItems(dialog); dialog->Fit(); dialog->Centre(wxBOTH); form->RevertValues(); dialog->Show(TRUE); return TRUE; } // Add class-specific items to form void BuildDialogBoxData::AddFormItems(wxForm *form) { BuildPanelData::AddFormItems(form); form->Add(wxMakeFormNewLine()); form->Add(wxMakeFormBool("Modal", &modal)); } // Add class-specific items to dialog, since forms can't // cope with everything. void BuildDialogBoxData::AddDialogItems(wxDialogBox *dialog) { } Bool BuildDialogBoxData::ReadPrologAttributes(PrologExpr *expr, PrologDatabase *database) { BuildPanelData::ReadPrologAttributes(expr, database); expr->AssignAttributeValue("modal", &modal); return TRUE; } Bool BuildDialogBoxData::WritePrologAttributes(PrologExpr *expr, PrologDatabase *database) { BuildPanelData::WritePrologAttributes(expr, database); expr->AddAttributeValue("modal", (long)modal); return TRUE; } Bool BuildDialogBoxData::MakeRealWindow(void) { UserDialogBox *dialog = new UserDialogBox(NULL, title, FALSE, x, y, width, height, windowStyle); userWindow = dialog; dialog->buildWindow = this; if (horizLabelPosition) dialog->SetLabelPosition(wxHORIZONTAL); else dialog->SetLabelPosition(wxVERTICAL); wxFont *bFont = NULL; wxFont *lFont = NULL; if (buttonFont && (bFont = FindFont(buttonFont))) { dialog->SetButtonFont(bFont); } if (labelFont && (lFont = FindFont(labelFont))) { dialog->SetLabelFont(lFont); } MakeRealWindowChildren(); if (fitContents && (children.Number() > 0)) dialog->Fit(); SetTestMode(buildApp.testMode); userWindow->Show(TRUE); return TRUE; } Bool BuildDialogBoxData::DestroyRealWindow(void) { if (userWindow) { userWindow->GetPosition(&x, &y); userWindow->GetSize(&width, &height); delete userWindow; userWindow = NULL; } return TRUE; } void BuildDialogBoxData::WriteClassDeclaration(ostream& stream) { if (description && (strlen(description) > 0)) { stream << "/*\n" << description << "\n*/\n"; } stream << "class " << className << ": public wxDialogBox\n{\n"; stream << " private:\n protected:\n public:\n"; // Want to have as member variables all child items if (!buildApp.useResourceMethod && (children.Number() > 0)) { stream << " // Panel items for reference within the program.\n"; nameSpace.BeginBlock(); wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); // if (child->name) delete[] child->name; // child->name = copystring(child->name); stream << " " << child->className << " *" << child->name << ";\n"; node = node->Next(); } nameSpace.EndBlock(); stream << "\n"; } // Want to have as members, all bitmaps needed by buttons if (!buildApp.useResourceMethod && (children.Number() > 0)) { stream << " // Possible bitmaps for buttons.\n"; nameSpace.BeginBlock(); wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); if (child->windowType == wxTYPE_BUTTON) { BuildButtonData *button = (BuildButtonData *)child; if (button->bitmapData) { // Generate name for the bitmap char buf1[50]; strcpy(buf1, button->bitmapData->GetBitmapName()); strcat(buf1, "Bitmap"); stream << " wxBitmap *" << buf1 << ";\n"; } } node = node->Next(); } nameSpace.EndBlock(); stream << "\n"; } stream << " // Constructor and destructor\n"; stream << " " << className ; if (buildApp.useResourceMethod) stream << "(void);\n"; else stream << "(wxFrame *parent, char *title, Bool modal, int x, int y, int width, int height, long style, char *name);\n"; stream << " ~" << className << "(void);\n\n"; stream << " void OnSize(int w, int h);\n"; if (buildApp.useResourceMethod) stream << " void OnCommand(wxWindow& win, wxCommandEvent& event);\n"; stream << "};\n\n"; wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); child->WriteClassDeclaration(stream); node = node->Next(); } } // Generation void BuildDialogBoxData::WriteClassImplementation(ostream& stream) { if (description && (strlen(description) > 0)) { stream << "/*\n" << description << "\n*/\n"; } stream << className << "::" << className ; if (buildApp.useResourceMethod) stream << "(void);\n"; else { stream << "(wxFrame *parent, char *title, Bool modal, int x, int y, int width, int height, long style, char *name):\n"; stream << " wxDialogBox(parent, title, modal, x, y, width, height, style, name)\n{\n"; } nameSpace.BeginBlock(); // Set the default label orientation if (!horizLabelPosition) { stream << " SetLabelPosition(wxVERTICAL);\n"; } // Set button and label fonts if they exist wxFont *bFont = NULL; wxFont *lFont = NULL; if (buttonFont && (bFont = FindFont(buttonFont))) { stream << " SetButtonFont(theApp." << buttonFont << ");\n"; } if (labelFont && (lFont = FindFont(labelFont))) { stream << " SetLabelFont(theApp." << labelFont << ");\n"; } // Initialize any button bitmaps if (!buildApp.useResourceMethod && (children.Number() > 0)) { wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); if (child->windowType == wxTYPE_BUTTON) { BuildButtonData *button = (BuildButtonData *)child; if (button->bitmapData) { // Generate name for the bitmap char buf1[100]; char buf2[100]; strcpy(buf1, button->bitmapData->GetBitmapName()); strcat(buf1, "Bitmap"); strcpy(buf2, button->bitmapData->GetBitmapName()); strcat(buf2, ".xbm"); stream << "#ifdef wx_x\n"; stream << "#include \"" << buf2 << "\"\n"; stream << " " << buf1 << " = new wxBitmap(" << button->bitmapData->GetBitmapName() << ", " << button->bitmapData->GetBitmapName() << "_width, "; stream << button->bitmapData->GetBitmapName() << "_height);\n"; stream << "#endif\n"; stream << "#ifdef wx_msw\n"; stream << " " << buf1 << " = new wxBitmap(\"" << button->bitmapData->GetBitmapName() << "\");\n"; stream << "#endif\n"; } } node = node->Next(); } } // Create all child subwindows if (!buildApp.useResourceMethod && (children.Number() > 0)) { stream << " // Create panel items\n"; wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); child->GenerateWindowInitialisationPre(stream, child->name, " "); stream << " " << child->name << " = "; child->GenerateConstructorCall(stream, "this"); stream << ";\n"; child->GenerateWindowInitialisationPost(stream, child->name, " "); node = node->Next(); } stream << "\n"; } if (fitContents) { stream << " // Fit panel to contents\n"; stream << " Fit();\n\n"; } nameSpace.EndBlock(); stream << "\n}\n\n"; // Destructor stream << className << "::~" << className << "(void)\n{\n"; // Generate 'delete's for any bitmap buttons if (!buildApp.useResourceMethod) { wxNode *node = children.First(); while (node) { BuildWindowData *child = (BuildWindowData *)node->Data(); if (child->windowType == wxTYPE_BUTTON) { BuildButtonData *button = (BuildButtonData *)child; if (button->bitmapData) { // Generate name for the bitmap char buf1[50]; strcpy(buf1, button->bitmapData->GetBitmapName()); strcat(buf1, "Bitmap"); stream << " delete " << buf1 << ";\n"; } } node = node->Next(); } } stream << "\n}\n\n"; stream << "void " << className << "::OnSize(int w, int h)\n{\n"; stream << " wxDialogBox::OnSize(w, h);\n"; stream << "}\n\n"; if (buildApp.useResourceMethod) { stream << "void " << className << "::OnCommand(wxWindow& win, wxCommandEvent& event)\n{\n"; stream << "}\n\n"; } wxNode *node1 = children.First(); while (node1) { BuildWindowData *child = (BuildWindowData *)node1->Data(); child->WriteClassImplementation(stream); node1 = node1->Next(); } } void BuildDialogBoxData::GenerateConstructorCall(ostream& stream, char *parentName) { if (buildApp.useResourceMethod) { stream << "new "; stream << className ; } else { stream << "new "; stream << className << "(" << parentName << ", " << SafeString(title); stream << ", " << (modal ? "TRUE" : "FALSE") << ", " << x << ", " << y << ", "; stream << width << ", " << height << ", "; char buf[400]; GenerateWindowStyleString(buf); stream << buf << ", \"" << name << "\")"; } } void BuildDialogBoxData::FindScreenPosition(int *sx, int *sy) { if (!userWindow) { *sx = x; *sy = y; return; } userWindow->GetPosition(&x, &y); // x and y are member variables *sx = x; *sy = y; } void BuildDialogBoxData::FindClientPosition(int sx, int sy, int *cx, int *cy) { /* *cx = x; *cy = y; x = *cx; y = *cy; */ *cx = sx; *cy = sy; x = sx; y = sy; } UserDialogBox::~UserDialogBox(void) { if (!Iconized()) GetPosition(&buildWindow->x, &buildWindow->y); } void UserDialogBox::OnSize(int w, int h) { wxDialogBox::OnSize(w, h); } void UserDialogBox::OnLeftClick(int x, int y, int keys) { buildApp.UsePosition(TRUE, buildWindow, x, y); switch (EditorPaletteFrame->palette->currentlySelected) { case PALETTE_FRAME: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_FRAME); break; case PALETTE_DIALOG_BOX: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_DIALOG); break; case PALETTE_PANEL: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_PANEL); break; case PALETTE_CANVAS: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_CANVAS); break; case PALETTE_TEXT_WINDOW: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_TEXT_WINDOW); break; case PALETTE_BUTTON: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_BUTTON); break; case PALETTE_MESSAGE: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_MESSAGE); break; case PALETTE_TEXT: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_TEXT); break; case PALETTE_MULTITEXT: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_MULTITEXT); break; case PALETTE_CHOICE: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_CHOICE); break; case PALETTE_CHECKBOX: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_CHECKBOX); break; case PALETTE_RADIOBOX: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_RADIOBOX); break; case PALETTE_LISTBOX: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_LISTBOX); break; case PALETTE_SLIDER: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_SLIDER); break; case PALETTE_GAUGE: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_GAUGE); break; case PALETTE_GROUPBOX: MainFrame->OnMenuCommand(OBJECT_EDITOR_NEW_GROUPBOX); break; default: break; } buildApp.UsePosition(FALSE); } void UserDialogBox::OnRightClick(int x, int y, int keys) { buildApp.objectMenu->SetClientData((char *)buildWindow); PopupMenu(buildApp.objectMenu, (float)x, (float)y); } void UserDialogBox::OnItemLeftClick(wxItem *item, int x, int y, int keys) { BuildWindowData *child = buildWindow->FindChildWindow(item); if (item->IsSelected()) { BuildSelections.DeleteObject(child); item->SelectItem(FALSE); GetPanelDC()->Clear(); Refresh(); } else { BuildSelections.Append(child); item->SelectItem(TRUE); GetPanelDC()->BeginDrawing(); item->DrawSelectionHandles(GetPanelDC()); GetPanelDC()->EndDrawing(); } } void UserDialogBox::OnItemRightClick(wxItem *item, int x, int y, int keys) { BuildWindowData *child = buildWindow->FindChildWindow(item); if (child) { buildApp.objectMenu->SetClientData((char *)child); PopupMenu(buildApp.objectMenu, (float)x, (float)y); } } void UserDialogBox::OnItemMove(wxItem *item, int x, int y) { BuildWindowData *child = buildWindow->FindChildWindow(item); if (child) { child->x = x; child->y = y; } } void UserDialogBox::OnItemSize(wxItem *item, int w, int h) { BuildWindowData *child = buildWindow->FindChildWindow(item); if (child) { child->width = w; child->height = h; } }