LI-COR LI-6400, Manual

Page: 675 / 846

LPL Topics
Menus and Editors
Using the LI-6400 23-53
We can tell if the user pressed
escape
or
enter
by checking the return value
of STDMENU . We read the selected line using ENTER , since STDMENU
left the empty register of the Path at the last cursor location. What if the user
has scrolled to the right, and the cursor was not on the left column? We pre-
vent this from being a problem by setting the line
3 "" "\r" menu STDMENU
The 3 indicates a menu bar, and also to snap the cursor to the left column on
exit.
Single Line Editor
The keyword
STDLINE
creates a borderless window from the current cursor
position to the right edge of the current window, displays in this window the
Text object to be edited, and lets the user edit the object.
escape
or
enter
ter-
minate STDLINE .
:CHAR menuItems[] "This is item #1
This is item #2
and item #3
and 4
and 5
and 6\nand 7\nand 8\nand lastly, 9"
:FCT Main
{
5 1 25 8 2 2 "My Menu" WINDOW
/* Open a path to the CHAR array.*/
menuItems OPEN_CHARS IF RETURN THEN
:PTR menu
/* Use menu bar, exit on esc or enter, move cursor to left. */
3 "" "\r" menu STDMENU :INT k
1 1 DISPWIDTH DISPHEIGHT 0 WINDOW
CLEAR
/* If user pressed enter...*/
k '\r' == IF
0 :CHAR line[80]
/* Read the selected entry.*/
line "%(.)c" menu ENTER DROP
line "You chose: '%s'" PRINT
GETKEY DROP
THEN
}
Figure 23-25. STDMENU example: knowing what was selected.