>*next two lines pseudocode >lcProg1 = YourFirst.prg >lcProg2 = YourSecond.prg >*fix the dimensions >DEFINE WINDOW 'blabla' FROM 1,1 TO 10,10 ZOOM MINIMIZE FLOAT CLOSE GROW TITLE (lcProg1) IN SCREEN NAME Prog1 >DEFINE WINDOW 'blabla' FROM 2,2 TO 10,10 ZOOM MINIMIZE FLOAT CLOSE GROW TITLE (lcProg2) IN SCREEN NAME Prog2 >MODIFY COMMAND (lcProg1) IN WINDOW Prog1 >ACTIVATE WINDOW Prog1 >MODIFY COMMAND (lcProg2) IN WINDOW Prog2 >ACTIVATE WINDOW Prog2 >I had to modify your program slightly. The titles appear correctly, BUT both windows are blank and readonly! Please see comments at the begginning of the program.
*This is the line used to invoke this program *do \common30\mc2 WITH '\posprgs\pos\help2', '\posprgs\po\help2' *this works when execuited from the command line *MODIFY COMMAND \posprgs\pos\help2 LPARAMETERS tcProg1, tcProg2 DEFINE WINDOW tcProg1 FROM 0,0 TO 57,60 ZOOM MINIMIZE FLOAT CLOSE GROW TITLE (tcProg1) IN SCREEN NAME Prog1 DEFINE WINDOW tcProg2 FROM 0,61 TO 57,120 ZOOM MINIMIZE FLOAT CLOSE GROW TITLE (tcProg2) IN SCREEN NAME Prog2 MODIFY COMMAND (tcProg1) IN WINDOW tcProg1 ACTIVATE WINDOW tcProg1 MODIFY COMMAND (tcProg2) IN WINDOW tcProg2 ACTIVATE WINDOW tcProg2