Form S_201FMF
* ===================================================================;
*;
* Component : S_201FMF;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Scope(*Shared) example;
*;
* Full Description: This form is used to group together multiple;
* instances of the S_201RSA normal editor and S_210RSV shared editor.;
*;
*;
* ===================================================================;
;
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM FORMPOSITION(ScreenCenter) HEIGHT(604) LEFT(90) TOP(111) WIDTH(838);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#S_201RSAGROUP) CAPTION('Normal Reusable Parts') DISPLAYPOSITION(2) HEIGHT(561) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(8) WIDTH(401);
DEFINE_COM CLASS(#S_201RSA) NAME(#S_201RSA_1) LEFT(16) PARENT(#S_201RSAGROUP) TOP(136);
DEFINE_COM CLASS(#S_201RSA) NAME(#S_201RSA_2) DISPLAYPOSITION(2) HEIGHT(136) LEFT(15) PARENT(#S_201RSAGROUP) TABPOSITION(2) TOP(277);
DEFINE_COM CLASS(#S_201RSA) NAME(#S_201RSA_3) DISPLAYPOSITION(3) HEIGHT(137) LEFT(15) PARENT(#S_201RSAGROUP) TABPOSITION(3) TOP(416);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#S_201RSA_TEXT) CAPTION('Arranged below are three individual instances of a reusable component named S_201RSA. Each instance of S_201RSA acts as a simple "list editor" and uses a reusable component named S_201RSO as the "manager" for its list (you can add and update entries in the lists by using the Add and Update buttons). Each S_201RSA editor has its own separate instance of the S_201RSO list manager active .... so there are 3 separate and individual lists being maintained.') DISPLAYPOSITION(4) HEIGHT(114) LEFT(11) PARENT(#S_201RSAGROUP) TABPOSITION(4) TABSTOP(False) TOP(18) VISUALSTYLE(#VS_EMPH) WIDTH(381);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#S_201RSBGROUP) CAPTION('Scope(*Shared) Reusable Parts') DISPLAYPOSITION(1) HEIGHT(562) LEFT(424) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(7) WIDTH(401);
DEFINE_COM CLASS(#S_201RSB) NAME(#S_201RSB_1) LEFT(16) PARENT(#S_201RSBGROUP) TOP(137);
DEFINE_COM CLASS(#S_201RSB) NAME(#S_201RSB_2) DISPLAYPOSITION(2) LEFT(16) PARENT(#S_201RSBGROUP) TABPOSITION(2) TOP(277);
DEFINE_COM CLASS(#S_201RSB) NAME(#S_201RSB_3) DISPLAYPOSITION(3) HEIGHT(137) LEFT(16) PARENT(#S_201RSBGROUP) TABPOSITION(3) TOP(415);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#S_201RSB_TEXT) CAPTION('Arranged below are three individual instances of a reusable component named S_201RSB. Reusable component S_201RSB is identical to S_201RSA, except that "list manager" S_201RSO is declared using the SCOPE(*SHARED) option. Each S_210RSB editor shares a single instance of the S_201RSO list manager .... so there is just one list being shared by all the instances. This radically alters the behaviour of the S_201RSB list editors because actions they take are signalled to all the other instances.') DISPLAYPOSITION(4) HEIGHT(119) LEFT(11) PARENT(#S_201RSBGROUP) TABPOSITION(4) TABSTOP(False) TOP(18) VISUALSTYLE(#VS_EMPH) WIDTH(381);
;
* This form is simply used to collect together multiple instances of;
* reusable parts S_201RSA (normal) and S_201RSB (shared).;
;
EVTROUTINE HANDLING(#COM_OWNER.Initialize) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS);
;
* There are three individual instances of the reusable component named;
* S_201RSA. Each instance of S_201RSA acts as a simple "list editor";
* and uses a reusable component named S_201RSO as the "manager" for;
* its list (you can add and update entries in the lists by using the;
* Add and Update buttons). Each S_201RSA editor has its own separate;
* instance of the S_201RSO list manager active .... so there are 3;
* separate and individual lists being maintained.;
;
SET COM(#S_201RSA_1) UCAPTION('S_201RSA Reusable Instance 1');
SET COM(#S_201RSA_2) UCAPTION('S_201RSA Reusable Instance 2');
SET COM(#S_201RSA_3) UCAPTION('S_201RSA Reusable Instance 3');
;
* There are three individual instances of a reusable component named;
* S_201RSB. Reusable component S_201RSB is identical to S_201RSA, except;
* that "list manager" S_201RSO is declared using the SCOPE(*SHARED);
* option. Each S_210RSB editor shares a single instance of the S_201RSO;
* list manager .... so there is just one list being shared by all the;
* instances. This radically alters the behaviour of the S_201RSB list;
* editors because actions they take are signaled to all the other;
* instances.;
;
SET COM(#S_201RSB_1) UCAPTION('S_201RSB Reusable Instance 1');
SET COM(#S_201RSB_2) UCAPTION('S_201RSB Reusable Instance 2');
SET COM(#S_201RSB_3) UCAPTION('S_201RSB Reusable Instance 3');
;
ENDROUTINE;
;
END_COM
* ===================================================================;
*;
* Component : S_201FMF;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Scope(*Shared) example;
*;
* Full Description: This form is used to group together multiple;
* instances of the S_201RSA normal editor and S_210RSV shared editor.;
*;
*;
* ===================================================================;
;
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM FORMPOSITION(ScreenCenter) HEIGHT(604) LEFT(90) TOP(111) WIDTH(838);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#S_201RSAGROUP) CAPTION('Normal Reusable Parts') DISPLAYPOSITION(2) HEIGHT(561) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(8) WIDTH(401);
DEFINE_COM CLASS(#S_201RSA) NAME(#S_201RSA_1) LEFT(16) PARENT(#S_201RSAGROUP) TOP(136);
DEFINE_COM CLASS(#S_201RSA) NAME(#S_201RSA_2) DISPLAYPOSITION(2) HEIGHT(136) LEFT(15) PARENT(#S_201RSAGROUP) TABPOSITION(2) TOP(277);
DEFINE_COM CLASS(#S_201RSA) NAME(#S_201RSA_3) DISPLAYPOSITION(3) HEIGHT(137) LEFT(15) PARENT(#S_201RSAGROUP) TABPOSITION(3) TOP(416);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#S_201RSA_TEXT) CAPTION('Arranged below are three individual instances of a reusable component named S_201RSA. Each instance of S_201RSA acts as a simple "list editor" and uses a reusable component named S_201RSO as the "manager" for its list (you can add and update entries in the lists by using the Add and Update buttons). Each S_201RSA editor has its own separate instance of the S_201RSO list manager active .... so there are 3 separate and individual lists being maintained.') DISPLAYPOSITION(4) HEIGHT(114) LEFT(11) PARENT(#S_201RSAGROUP) TABPOSITION(4) TABSTOP(False) TOP(18) VISUALSTYLE(#VS_EMPH) WIDTH(381);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#S_201RSBGROUP) CAPTION('Scope(*Shared) Reusable Parts') DISPLAYPOSITION(1) HEIGHT(562) LEFT(424) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(7) WIDTH(401);
DEFINE_COM CLASS(#S_201RSB) NAME(#S_201RSB_1) LEFT(16) PARENT(#S_201RSBGROUP) TOP(137);
DEFINE_COM CLASS(#S_201RSB) NAME(#S_201RSB_2) DISPLAYPOSITION(2) LEFT(16) PARENT(#S_201RSBGROUP) TABPOSITION(2) TOP(277);
DEFINE_COM CLASS(#S_201RSB) NAME(#S_201RSB_3) DISPLAYPOSITION(3) HEIGHT(137) LEFT(16) PARENT(#S_201RSBGROUP) TABPOSITION(3) TOP(415);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#S_201RSB_TEXT) CAPTION('Arranged below are three individual instances of a reusable component named S_201RSB. Reusable component S_201RSB is identical to S_201RSA, except that "list manager" S_201RSO is declared using the SCOPE(*SHARED) option. Each S_210RSB editor shares a single instance of the S_201RSO list manager .... so there is just one list being shared by all the instances. This radically alters the behaviour of the S_201RSB list editors because actions they take are signalled to all the other instances.') DISPLAYPOSITION(4) HEIGHT(119) LEFT(11) PARENT(#S_201RSBGROUP) TABPOSITION(4) TABSTOP(False) TOP(18) VISUALSTYLE(#VS_EMPH) WIDTH(381);
;
* This form is simply used to collect together multiple instances of;
* reusable parts S_201RSA (normal) and S_201RSB (shared).;
;
EVTROUTINE HANDLING(#COM_OWNER.Initialize) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS);
;
* There are three individual instances of the reusable component named;
* S_201RSA. Each instance of S_201RSA acts as a simple "list editor";
* and uses a reusable component named S_201RSO as the "manager" for;
* its list (you can add and update entries in the lists by using the;
* Add and Update buttons). Each S_201RSA editor has its own separate;
* instance of the S_201RSO list manager active .... so there are 3;
* separate and individual lists being maintained.;
;
SET COM(#S_201RSA_1) UCAPTION('S_201RSA Reusable Instance 1');
SET COM(#S_201RSA_2) UCAPTION('S_201RSA Reusable Instance 2');
SET COM(#S_201RSA_3) UCAPTION('S_201RSA Reusable Instance 3');
;
* There are three individual instances of a reusable component named;
* S_201RSB. Reusable component S_201RSB is identical to S_201RSA, except;
* that "list manager" S_201RSO is declared using the SCOPE(*SHARED);
* option. Each S_210RSB editor shares a single instance of the S_201RSO;
* list manager .... so there is just one list being shared by all the;
* instances. This radically alters the behaviour of the S_201RSB list;
* editors because actions they take are signaled to all the other;
* instances.;
;
SET COM(#S_201RSB_1) UCAPTION('S_201RSB Reusable Instance 1');
SET COM(#S_201RSB_2) UCAPTION('S_201RSB Reusable Instance 2');
SET COM(#S_201RSB_3) UCAPTION('S_201RSB Reusable Instance 3');
;
ENDROUTINE;
;
END_COM