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