[Uml-devel] branches/work/isi-umbrello/umbrello/umbrello

[Thibault Normand]

SVN commit 626244 by tnormand:

# Fix bug after splash screen Thx to GDB ^^

 M  +5 -0      uml.cpp  
 M  +1 -0      uml.h  


--- branches/work/isi-umbrello/umbrello/umbrello/uml.cpp #626243:626244
@@ -247,6 +247,7 @@
     setProgLangAction(Uml::pl_SQL,          "SQL",          "set_lang_sql");
     setProgLangAction(Uml::pl_Tcl,          "Tcl",          "set_lang_tcl");
     setProgLangAction(Uml::pl_XMLSchema,    "XMLSchema",    "set_lang_xmlschema");
+    setProgLangAction(Uml::pl_Ocl,	    "Ocl",	    "set_lang_ocl");
 #undef setProgLangAction
 
     fileNew->setToolTip(i18n("Creates a new document"));
@@ -1409,6 +1410,10 @@
     setProgLangMenu(Uml::pl_XMLSchema);
 }
 
+void UMLApp::set_lang_ocl() {
+    setProgLangMenu(Uml::pl_Ocl);
+}
+
 void UMLApp::setProgLangMenu(Uml::Programming_Language pl) {
     // only change the active language if different from one we currently have
     if (pl == m_activeLanguage)
--- branches/work/isi-umbrello/umbrello/umbrello/uml.h #626243:626244
@@ -638,6 +638,7 @@
     void set_lang_sql();
     void set_lang_tcl();
     void set_lang_xmlschema();
+    void set_lang_ocl();
 
     /**
      * Set the language for which code will be generated.