[icf-dev] WG: [icf-cvs] CVS update: w

Mike,

The changes that have been made for the patch are very small, mostly adding support for new events that we do not use yet.

However, some of the files that have been changed for the support of this patch also contain fixes for other issues - as many of the changes to the Roundtable integration are done in the same event handler procedures. If you are downloading changed code from POSSE, you should check the comments to the changed code to make sure you get all of the files you need. Have a look at issue 8658 for more details on which files have been updated. You can then check these files to see which other changes have been made to them.

HTH

Thomas

-Original Message-

From: Mike Fechner

Sent: Monday, February 24, 2003 10:38 AM

To: dev@icf.possenet.org

Subject: WG: CVS update: w

Hi,

I have seen new code checked in to possenet for roundtable

9.1C02. Is it now safe to run dynamics together with that

version of roundtable?

Thanks,

Mike

-Ursprüngliche Nachricht-

Von: commitlogger@possenet.org

Gesendet: Montag, 24. Februar 2003 10:21

An: cvs@icf.possenet.org

Betreff: CVS update: w

User: thomas

Date: 03/02/24 01:20:31

Modified: scm/custom/rtb/w rtb_mdld.w

Log:

Issue 8658:

Updated with changes from RTB 9.1C02.

Revision Changes Path

1.4 +24 -38 icf/scm/custom/rtb/w/rtb_mdld.w

(In the diff below, changes in quantity of whitespace are

not shown.)

Index: rtb_mdld.w

===================================================================

RCS file: /cvs/icf/scm/custom/rtb/w/rtb_mdld.w,v

retrieving revision 1.3

retrieving revision 1.4

diff -c -b -r1.3 -r1.4

*** rtb_mdld.w 2002/10/03 10:36:33 1.3

rtb_mdld.w 2003/02/24 09:20:31 1.4

***************

*** 140,146 ****

EXPANDABLE.

/* Dynamics Enhancements - BEGIN */

!

/* Dynamics Enhancements - END */

/* _UIB-CODE-BLOCK-END */

140,146

EXPANDABLE.

/* Dynamics Enhancements - BEGIN */

!

/* Dynamics Enhancements - END */

/* _UIB-CODE-BLOCK-END */

***************

*** 345,351 ****

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS

/* Settings for THIS-PROCEDURE

Type: WINDOW

- Compile into: scm/custom/rtb/w

Other Settings: COMPILE

*/

&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

345,350

***************

*** 2456,2462 ****

IF NOT Mcontinue THEN

RETURN.

! /* Dynamics Enhancements - BEGIN */

IF VALID-HANDLE(gshSessionManager)

THEN DO:

2455,2461

IF NOT Mcontinue THEN

RETURN.

! /* Dynamics Enhancements - BEGIN */

IF VALID-HANDLE(gshSessionManager)

THEN DO:

***************

*** 2790,2817 ****

/* end wait state */

RUN set_session_wait IN Grtb-p-stat (INPUT "").

- /* Dynamics Enhancements - BEGIN */

- IF VALID-HANDLE(gshSessionManager)

- THEN DO:

- RUN getActionUnderway IN gshSessionManager

- (INPUT "SCM":U

- ,INPUT "SKIPLOADNO":U

- ,INPUT CB-module:SCREEN-VALUE

- ,INPUT "":U

- ,INPUT "":U

- ,INPUT YES

- ,OUTPUT lActionUnderway).

- RUN getActionUnderway IN gshSessionManager

- (INPUT "SCM":U

- ,INPUT "SKIPLOADYES":U

- ,INPUT CB-module:SCREEN-VALUE

- ,INPUT "":U

- ,INPUT "":U

- ,INPUT YES

- ,OUTPUT lActionUnderway).

- END.

- /* Dynamics Enhancements - END */

-

APPLY "ENTRY" TO BR-srcfile IN FRAME .

END PROCEDURE.

2789,2794

***************

*** 3534,3544 ****

LENGTH(Pfile-name)

ELSE

R-INDEX(Pfile-name,".")

! Msuffix = SUBSTRING(Pfile-name,

Mdot -

LENGTH(Brtb_subtype.part-sufix[1]),

LENGTH(Brtb_subtype.part-sufix[1]))

! Mbasename = SUBSTRING(Pfile-name,1,

! Mdot -

LENGTH(Brtb_subtype.part-sufix[1]) - 1).

/*

Determine if object qualifies for subtype

3511,3527

LENGTH(Pfile-name)

ELSE

R-INDEX(Pfile-name,".")

! Msuffix = IF Mdot LENGTH(Brtb_subtype.part-sufix[1]) THEN

! SUBSTRING(Pfile-name,

Mdot -

LENGTH(Brtb_subtype.part-sufix[1]),

LENGTH(Brtb_subtype.part-sufix[1]))

! ELSE

! ""

! Mbasename = IF Mdot LENGTH(Brtb_subtype.part-sufix[1]) THEN

! SUBSTRING(Pfile-name,1,

! Mdot -

LENGTH(Brtb_subtype.part-sufix[1]) - 1)

! ELSE

! Pfile-name.

/*

Determine if object qualifies for subtype

***************

*** 3592,3600 ****

LENGTH(Pfile-name)

ELSE

R-INDEX(Pfile-name,".")

! Msuffix = SUBSTRING(Pfile-name,

Mdot -

LENGTH(Brtb_subtype.part-sufix),

!

LENGTH(Brtb_subtype.part-sufix)).

IF Msuffix = Brtb_subtype.part-sufix THEN DO:

Mvalid-for-subtype = NO.

3575,3586

LENGTH(Pfile-name)

ELSE

R-INDEX(Pfile-name,".")

! Msuffix = IF Mdot LENGTH(Brtb_subtype.part-sufix)

THEN

! SUBSTRING(Pfile-name,

Mdot -

LENGTH(Brtb_subtype.part-sufix),

!

LENGTH(Brtb_subtype.part-sufix))

! ELSE

! "".

IF Msuffix = Brtb_subtype.part-sufix THEN DO:

Mvalid-for-subtype = NO.

To unsubscribe, e-mail: cvs-unsubscribe@icf.possenet.org

For additional commands, e-mail: cvs-help@icf.possenet.org

To unsubscribe, e-mail: dev-unsubscribe@icf.possenet.org

For additional commands, e-mail: dev-help@icf.possenet.org

To unsubscribe, e-mail: dev-unsubscribe@icf.possenet.org

For additional commands, e-mail: dev-help@icf.possenet.org