.* Note:  This LIST panel can only be displayed as a window after
.*        either the QUIDSPP (Display Panel) or QUISETSC (Set Screen
.*        Image) API is executed to set the characteristics of the
.*        underlying full-screen panel. It's assumed that QUISETSC
.*        is the most likely choice.

.* This .IM brings in a standard header for PNLGRPs...
.im @headerpnl

.* This IMPORT references HELP modules specific to this PNLGRP...
:import pnlgrp='#hspa' name='*'.

.* These define the VAR CLASSes used in this PNLGRPs...
:class         name=CDICT
               basetype='char 10'.
:eclass.

:class         name=CWORD
               basetype='char 32'.
:eclass.

:class         name=CLIB
               basetype='char 10'.
:eclass.

:class         name=CDATE
               basetype='date'.
:eclass.

:class         name=CTIME
               basetype='time'.
:eclass.

:class         name=CLGL
               basetype='char 1'.
:eclass.

.* This .IM brings in a standard set of z-vars for PNLGRPs...
.im @varpnl

.* Additional VARs are defined here...
:var           name=DICT
               class=CDICT.
:var           name=LIB
               class=CLIB.
:var           name=ALTWORD
               class=CWORD.
:var           name=WORD
               class=CWORD.
:var           name=NXTDCT
               class=CLGL.
:var           name=PRVDCT
               class=CLGL.

.* These define record format buffers (PLISTs)...
.*
:varrcd        name=CURDICTLIB
               vars='DICT LIB'.
:varrcd        name=CHKWORD
               vars='WORD'.
:varrcd        name=ALTWORDLE
               vars='ALTWORD'.
:varrcd        name=DATETIME
               vars='DATE TIME'.
:varrcd        name=NPDICT
               vars='NXTDCT PRVDCT'.

.* This defines a specific list by name...
:listdef       name=SPALIST
               vars=ALTWORD
               .

.* This defines standard condition tests...
.im @cond

.* Additional condition tests are defined here...

:cond          name=NXTDCTCND
               expr='NXTDCT = "1"'.
:cond          name=PRVDCTCND
               expr='PRVDCT = "1"'.

.* This defines standard pnlgrp F-key KEYL...
.im @stdkeypll

.* This defines standard pnlgrp F1-key KEYI...
.im @stdkypl1

.* This defines standard pnlgrp F3-key KEYI...
.im @stdkypl3

.* Some non-standard F-keys are defined here...

:keyi          cond=PRVDCTCND
               help=PREVIOUS
               action='return 7'
               key=F7.F7=Previous dictionary

:keyi          cond=NXTDCTCND
               help=NEXT
               action='return 8'
               key=F8.F8=Next dictionary

.* This defines standard pnlgrp F12-key KEYI...
.im @stdkypl12

.* This defines standard pnlgrp non-F-key KEYIs...
.im @stdnfkeys

:ekeyl.

.*--------------------------------------------------------------------
.* This defines the PANEL...

:panel         name=SPA
               width=46
               depth=18
               keyl=PNLGRPKEYS
               help=SPAHELP
               date=DATE
               time=TIME
               topsep=datetime
               .
Spelling Aid

.* This defines the LIB/DICT horizontal data group...

:data
.* Required...
.* Depth can only be * if no other panel area says *...
               depth=1
.* Optional...
.* Bottom DATA area separator...
               botsep=none
               .

.* Presentation width is specified here...
.* The first DATACOL is for the column heading...
:datacol       width='9'
               .

.* This DATACOL is for the data item itself...
:datacol       width='*'
               .

.* Data items may stand alone, outside of a group...
:datai         var=WORD
               usage=out
.* Optional...
               help='data/word'
               .
Word

:edata.

:data
.* Required...
.* Depth can only be * if no other panel area says *...
               depth=1
.* Optional...
.* Bottom DATA area separator...
               botsep=none
.* Basic layout column areas: 1? or 2? or is it horizontal?
               layout=horiz
               .

.* Data items may stand alone, outside of a group...
:datai         var=DICT
               usage=out
.* Optional...
               help='data/dictlib'
               .
Dict/Lib

:dataix        var=LIB
               usage=out
               .

:edata.

.* This defines the "Alternative words" list area...
:list          depth='*'
               listdef=SPALIST
               .
Alternative words

:listcol       var=ALTWORD
               maxwidth='*'
               usage=out
               help=LISTWORD
               .

:listview      cols=ALTWORD
               .

:elist.

:epanel.

.*--------------------------------------------------------------------

.* This .IM brings in a standard F-key help definition...
.im @helpfkey

.* This .IM brings in a standard non-F-key help definitions....
.im @helpnfkey

.* Additional F-key help definitions go here...

:help          name=PREVIOUS.

Previous dictionary - Help
:parml.
:pt.F7=Previous dictionary
:pd.
The list of words found in the previous dictionary is
presented.
:eparml.
:ehelp.

:help          name=NEXT.

Next dictionary - Help
:parml.
:pt.F8=Next dictionary
:pd.
The list of words found in the next dictionary is
presented.
:eparml.
:ehelp.


:epnlgrp.