From: mzn <mzn@opencascade.com>
Date: Mon, 20 Mar 2006 12:32:34 +0000 (+0000)
Subject: Fix for bug IPAL10122.
X-Git-Tag: OCC_3_2_0a2_TC~7
X-Git-Url: http://git.salome-platform.org/gitweb/?a=commitdiff_plain;h=34eb081c7d63ecc0cc54d3f7ef833ed241a545a9;p=modules%2Fgui.git

Fix for bug IPAL10122.
---

diff --git a/src/SalomeApp/SalomeApp_Application.cxx b/src/SalomeApp/SalomeApp_Application.cxx
index 9d17c32e6..fde0af782 100644
--- a/src/SalomeApp/SalomeApp_Application.cxx
+++ b/src/SalomeApp/SalomeApp_Application.cxx
@@ -339,6 +339,14 @@ void SalomeApp_Application::onPaste()
   _PTR(Study) stdDS = study->studyDS();
   if(!stdDS) return;
 
+  if ( stdDS->GetProperties()->IsLocked() ) {
+    SUIT_MessageBox::warn1 ( desktop(),
+			     QObject::tr("WRN_WARNING"),
+			     QObject::tr("WRN_STUDY_LOCKED"),
+			     QObject::tr("BUT_OK") );
+    return;
+  }
+
   SALOME_ListIteratorOfListIO it( list );
   if(it.More())
     {