1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-09-08 14:17:06 +03:00

0027427: Exception on loading a DE package to Draw

This commit is contained in:
anv
2016-04-25 15:29:57 +03:00
parent 92788bf4bb
commit 3e64931da5
2 changed files with 5 additions and 5 deletions

View File

@@ -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;