LI-COR LI-6400, Manual

Page: 677 / 846

LPL Topics
Menus and Editors
Using the LI-6400 23-55
/***********************
DisplayEditor (partial)
Called from OPEN
************************/
:IFNDEF CERefresh
:INCLUDE "/sys/lib/CEDefs"
:ENDIF
:PTR menu 0 /* our data path */
edPtr 0 /* custom data struct */
:FCT Main
{
/* Make a path for the menu contents */
1000 OPEN_BUFF IF RETURN THEN
&menu =
/* Make a window. */
1 1 DISPWIDTH DISPHEIGHT 2 2
"Display Editor" WINDOW
/* Fill the content path.*/
menu DEBuildMenu
/* Create a custom menu structure.*/
menu EDOPEN IF RETURN THEN
&edPtr =
&DEKeys ONKBD
DESoftKeys
/* Turn on the menu bar.*/
edPtr CEToggleMenuBar
IDLE
ResetWindow
edPtr
EDCLOSE
menu CLOSE
}
/* Write the initial contents of the menu
to the path passed to this function. */
DEBuildMenu
{
:PTR menu
...
}
DEKeys
{
GETKEY :INT k
k _Esc == IF DEQuitTest RETURN
THEN
k 127 < IF /* is it ascii? */
&k LWC DROP
/* If ÕaÕ thru ÕzÕ, jump to that format
line.*/
k 'a' >= k 'z' <= AND IF
edPtr CEHomeToggle
k 'a' - 1 + workingFmtList
READY MIN
edPtr CEJumpToLine
edPtr CEToggleMenuBar
THEN
ELSE
/* If itÕs non-ASCII, pass it through to
EDKEY */
edPtr CEToggleMenuBar
k edPtr
EDKEY
edPtr CEToggleMenuBar
THEN
}
DESoftKeys
{
0 ' ' 1 1 0 10 MAKESOFT
/* WeÕll just illustrate Fct Key 1 */
" Edit" &DEEditLine 1 ONSOFT
...
SHOWSOFT
}
Figure 23-27. Partial listing of OPENÕs Display Editor, which uses a custom editor based on EDOPEN.