From: anv <anv@opencascade.com>
Date: Mon, 25 Apr 2016 12:29:57 +0000 (+0300)
Subject: 0027427: Exception on loading a DE package to Draw
X-Git-Tag: V7_0_winwerth~80
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=3e64931da5142a55ba06b54726dcb285ec3f8637;p=occt-copy.git

0027427: Exception on loading a DE package to Draw
---

diff --git a/src/IFSelect/IFSelect_WorkSession.cxx b/src/IFSelect/IFSelect_WorkSession.cxx
index 439d17768a..6b7d986ccd 100644
--- a/src/IFSelect/IFSelect_WorkSession.cxx
+++ b/src/IFSelect/IFSelect_WorkSession.cxx
@@ -2796,7 +2796,7 @@ void IFSelect_WorkSession::SetParams
   Standard_Integer i, nbp = params.Length(), nbu = uselist.Length();
   Handle(IFSelect_ParamEditor) editor = new IFSelect_ParamEditor
     (nbp+nbu+50,"Parameter Editor");
-  for (i = 1; i <= nbp; i ++) {
+  for (i = params.Lower(); i <= params.Upper(); i ++) {
     DeclareAndCast(Interface_TypedValue,val,params.Value(i));
     if (val.IsNull()) continue;
     editor->AddValue(val);
@@ -2808,7 +2808,7 @@ void IFSelect_WorkSession::SetParams
 
 //  On attaque les EditForms partielles
   TColStd_SequenceOfInteger listgen,listload,listsend,listsplit,listread,listwrite;
-  for (i = 1; i <= nbu; i ++) {
+  for (i = uselist.Lower(); i <= uselist.Upper(); i ++) {
     Standard_Integer use = uselist.Value(i);
     switch (use) {
     case 1 : listgen.Append(i);   break;
diff --git a/src/Interface/Interface_Category.cxx b/src/Interface/Interface_Category.cxx
index 21e4ccc401..e7e8fe7eba 100644
--- a/src/Interface/Interface_Category.cxx
+++ b/src/Interface/Interface_Category.cxx
@@ -90,14 +90,14 @@ Standard_Integer Interface_Category::NbCategories()
 Standard_CString Interface_Category::Name (const Standard_Integer theNum)
 {
   if (theNum < 0) return "";
-  if (theNum < 1 || theNum > theCats().Length()) return unspec;
+  if (theNum < theCats().Lower() || theNum > theCats().Upper()) return unspec;
   return theCats().ChangeValue(theNum).ToCString();
 }
 
 Standard_Integer Interface_Category::Number (const Standard_CString theName)
 {
-  Standard_Integer i, nb = theCats().Length();
-  for (i = 1; i <= nb; i ++) {
+  Standard_Integer i;
+  for (i = theCats().Lower(); i <= theCats().Upper(); i ++) {
     if (theCats().ChangeValue(i).IsEqual(theName)) return i;
   }
   return 0;