HP3000-L Archives

May 2005, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Larry Barnes <[log in to unmask]>
Reply To:
Larry Barnes <[log in to unmask]>
Date:
Wed, 4 May 2005 11:00:30 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (56 lines)
This may be old news to many of the xperts out there but I just
discovered this tip.

Whenever you make modifications to a Vesoft menu file, and you need to
add a menu option in the middle of the existing options I've always gone
through and manual changed the ROW position values.

I discovered that if I set a variable at the beginning of the menu then
add 1 to that variable before each menu option and then make a small
change in the Termpos variable I can avoid making all these manual
changes.

Here is a before and after example which will be a better explanation:

BEFORE:
        (the square boxes represent the escape code)

        *HEADER {TERMPOS(0,0)}{TERMCLEAR()}
        *HEADER {TERMPOS(0,22)} &TITLE FIELD ONE&d@
        *HEADER {TERMPOS(1,31)} TITLE FIELD TWO

        *CAPTIONL {TERMPOS(6,3)}!MENUOPTION.Option Name
        echo HJ
        %XEQ Command
         echo
         prompt string ex = "Press <enter> when finished "

AFTER:
        *HEADER {TERMPOS(0,0)}{TERMCLEAR()}
        *HEADER {TERMPOS(0,22)} &TITLE FIELD ONE&d@
        *HEADER {TERMPOS(1,31)} TITLE FIELD TWO
        *setvar row 6

        *CAPTIONL {TERMPOS({row},3)}!MENUOPTION.Option Name
        echo HJ
        %XEQ Command
         echo
         prompt string ex = "Press <enter> when finished "

        *setvar row !row + 1



Notice the "{ }" brackets in the TERMPOS Variable, this is where the row
variable is set.

Again, all you gurus out there may already know this stuff, but I
couldn't help myself.



Larry A. Barnes 

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2