In order for this site to work correctly, and for us to improve the site, we need to store a small file (called a cookie) on your computer.
By continuing to use this website, you agree to our cookies and privacy policy.
Home page Home page Home page Home page
Pixel Header R1 C1 Pixel
Pixel Header R2 C1 Pixel
Pixel Header R3 C1 Pixel

QTIPS - Improving the Message Window

Peter Walsh writes: Add a test run option (similar to that employed in popup) by painting COMMANDS MESSAGE and putting a code of 'C' and a command of 'CALL MSG("", @RECORD, "", "") to the Shift-F1 softkey. (Note that this will not clean up after a UB type.)

To validate user input on a message (using the extended functionality added recently), add a field 15 to the MESSAGES dictionary. Add this field to the window and add a code of 'P' and a command of 'SYS.POPUPS*INPUT.PATTERNS' to the options.

Add a code of 'P' and a command of 'SYS.POPUPS*BORDERS' to the border prompt options.

To simply add colours to popups, create an 'R' type popup in your popup file. In the explicit popup information include the literals @AW, @EW, @HW, @PW and @XW. Add this popup to the options on the Attrib prompt and experiment to get your favourite colour scheme.

To allow messages in different files to be edited easily with the message window, add an N type prompt (with no associated dictionary field) as the first prompt on the window.

(Editor's Note - To so do PAINT COMMANDS MESSAGE, then Shift-F2 and turn binding off. Add a prompt "File name" and size it to suit the files to be used. Shift F6 and make the type N instead of F. Now save the window and EDIT COMMANDS MESSAGE. Mark the "File name" prompt with a Ctrl-B, and move it to be the first prompt in the window. Move to the part of the template where the filename is stored (line 22 on a normal message template) and remove the filename, leaving the delimeters in place. Save the window and at TCL either type TEMPLATE.FLUSH or paint and save the window again. Your template will now be ready for use).

(Volume 4, Issue 1, Page 4)
Pixel Footer R1 C1 Pixel