midrange.com code scratchpad
Name:
Simon Coulter
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
03/27/2010 06:13:13 am
IP:
Logged
Description:
UIM panel group source example of F23=More options
Code:
  1. :pnlgrp.
  2. :copyr.Example of F23=More options. Public Domain by Simon Coulter.
  3. :class    name=optCL        basetype='action'   width=2.
  4. :eclass.
  5. :class    name=columnCL     basetype='char 10'.
  6. :eclass.
  7. :class    name=bin15CL      basetype='bin 15'.
  8. :eclass.
  9. :var      name=option       class=optCL.
  10. :var      name=column1      class=columnCL.
  11. :var      name=column2      class=columnCL.
  12. :var      name=column3      class=columnCL.
  13. :var      name=column4      class=columnCL.
  14. :var      name=column5      class=columnCL.
  15. :var      name=optRow       class=bin15CL.
  16. :varrcd   name=varpool
  17.           vars='optRow'.
  18. :varrcd   name=record1
  19.           vars='option column1 column2 column3 column4 column5'.
  20. :listdef  name=list
  21.           vars='option column1 column2 column3 column4 column5'.
  22. :cond     name=Brow1      expr='(optRow=1)'.
  23. :cond     name=Brow2      expr='(optRow=2)'.
  24. :cond     name=Brow3      expr='(optRow=3)'.
  25. :cond     name=Brow4      expr='(optRow=4)'.
  26. :cond     name=Brow5      expr='(optRow=5)'.
  27. :tt       name=shwOptRow  conds='Brow1 Brow2 Brow3 Brow4 Brow5'.
  28. :ttrow                    values=' 1     0     0     0     0'.
  29. :ttrow                    values=' 0     1     0     0     0'.
  30. :ttrow                    values=' 0     0     1     0     0'.
  31. :ttrow                    values=' 0     0     0     1     0'.
  32. :ttrow                    values=' 0     0     0     0     1'.
  33. :ett.
  34. :keyl     name=keys.
  35. :keyi     key=f1
  36.           action=help
  37.           help=nohelpatall
  38.           .
  39. :keyi     key=f3
  40.           action=exit
  41.           varupd=no
  42.           help=nohelpatall
  43.           .F3=Exit
  44. :keyi     key=f5
  45.           action='return 105'
  46.           varupd=no
  47.           help=nohelpatall
  48.           .F5=Refresh
  49. :keyi     key=f12
  50.           action=cancel
  51.           varupd=no
  52.           help=nohelpatall
  53.           .F12=Cancel
  54. :keyi     key=f23
  55.           action='return 123'
  56.           varupd=no
  57.           help=nohelpatall
  58.           .F23=More options
  59. :keyi     key=f24
  60.           action=morekeys
  61.           varupd=no
  62.           help=nohelpatall
  63.           .More keys
  64. :keyi     key=enter
  65.           action=enter
  66.           help=nohelpatall
  67.           .
  68. :keyi     key=help
  69.           action=help
  70.           help=nohelpatall
  71.           .
  72. :keyi     key=pagedown
  73.           action=pagedown
  74.           help=nohelpatall
  75.           .
  76. :keyi     key=pageup
  77.           action=pageup
  78.           help=nohelpatall
  79.           .
  80. :keyi     key=print
  81.           action=print
  82.           help=nohelpatall
  83.           .
  84. :ekeyl.
  85. :panel    name=example
  86.           keyl=keys
  87.           tt=shwOptRow
  88.           help=nohelpatall
  89.           .Example
  90. :list     depth='*'
  91.           listdef=list
  92.           maxhead=1
  93.           maxactl=1
  94.           actor=uim.
  95. :topinst.Type options, press Enter.
  96. .* First row of options ...
  97. :listact  option=1
  98.           cond=Brow1
  99.           enter='CMD SNDMSG MSG(''Option 1 pressed'') TOUSR(*REQUESTER)'
  100.           help=nohelpatall
  101.           .1=Something
  102. :listact  option=1
  103.           enter='CMD SNDMSG MSG(''Option 1 pressed'') TOUSR(*REQUESTER)'
  104.           help=nohelpatall
  105.           .
  106. :listact  option=2
  107.           cond=Brow1
  108.           enter='CMD SNDMSG MSG(''Option 2 pressed'') TOUSR(*REQUESTER)'
  109.           help=nohelpatall
  110.           .2=Something
  111. :listact  option=2
  112.           enter='CMD SNDMSG MSG(''Option 2 pressed'') TOUSR(*REQUESTER)'
  113.           help=nohelpatall
  114.           .
  115. :listact  option=3
  116.           cond=Brow1
  117.           enter='CMD SNDMSG MSG(''Option 3 pressed'') TOUSR(*REQUESTER)'
  118.           help=nohelpatall
  119.           .3=Something
  120. :listact  option=3
  121.           enter='CMD SNDMSG MSG(''Option 3 pressed'') TOUSR(*REQUESTER)'
  122.           help=nohelpatall
  123.           .
  124. :listact  option=4
  125.           cond=Brow1
  126.           enter='CMD SNDMSG MSG(''Option 4 pressed'') TOUSR(*REQUESTER)'
  127.           help=nohelpatall
  128.           .4=Something
  129. :listact  option=4
  130.           enter='CMD SNDMSG MSG(''Option 4 pressed'') TOUSR(*REQUESTER)'
  131.           help=nohelpatall
  132.           .
  133. :listact  option=5
  134.           cond=Brow1
  135.           enter='CMD SNDMSG MSG(''Option 5 pressed'') TOUSR(*REQUESTER)'
  136.           help=nohelpatall
  137.           .5=Something...
  138. :listact  option=5
  139.           enter='CMD SNDMSG MSG(''Option 5 pressed'') TOUSR(*REQUESTER)'
  140.           help=nohelpatall
  141.           .
  142. .* Second row of options ...
  143. :listact  option=6
  144.           cond=Brow2
  145.           enter='CMD SNDMSG MSG(''Option 6 pressed'') TOUSR(*REQUESTER)'
  146.           help=nohelpatall
  147.           .6=Something
  148. :listact  option=6
  149.           enter='CMD SNDMSG MSG(''Option 6 pressed'') TOUSR(*REQUESTER)'
  150.           help=nohelpatall
  151.           .
  152. :listact  option=7
  153.           cond=Brow2
  154.           enter='CMD SNDMSG MSG(''Option 7 pressed'') TOUSR(*REQUESTER)'
  155.           help=nohelpatall
  156.           .7=Something
  157. :listact  option=7
  158.           enter='CMD SNDMSG MSG(''Option 7 pressed'') TOUSR(*REQUESTER)'
  159.           help=nohelpatall
  160.           .
  161. :listact  option=8
  162.           cond=Brow2
  163.           enter='CMD SNDMSG MSG(''Option 8 pressed'') TOUSR(*REQUESTER)'
  164.           help=nohelpatall
  165.           .8=Something
  166. :listact  option=8
  167.           enter='CMD SNDMSG MSG(''Option 8 pressed'') TOUSR(*REQUESTER)'
  168.           help=nohelpatall
  169.           .
  170. :listact  option=9
  171.           cond=Brow2
  172.           enter='CMD SNDMSG MSG(''Option 9 pressed'') TOUSR(*REQUESTER)'
  173.           help=nohelpatall
  174.           .9=Something...
  175. :listact  option=9
  176.           enter='CMD SNDMSG MSG(''Option 9 pressed'') TOUSR(*REQUESTER)'
  177.           help=nohelpatall
  178.           .
  179. .* Third row of options ...
  180. :listact  option=10
  181.           cond=Brow3
  182.           enter='CMD SNDMSG MSG(''Option 10 pressed'') TOUSR(*REQUESTER)'
  183.           help=nohelpatall
  184.           .10=Something
  185. :listact  option=10
  186.           enter='CMD SNDMSG MSG(''Option 10 pressed'') TOUSR(*REQUESTER)'
  187.           help=nohelpatall
  188.           .
  189. :listact  option=11
  190.           cond=Brow3
  191.           enter='CMD SNDMSG MSG(''Option 11 pressed'') TOUSR(*REQUESTER)'
  192.           help=nohelpatall
  193.           .11=Something
  194. :listact  option=11
  195.           enter='CMD SNDMSG MSG(''Option 11 pressed'') TOUSR(*REQUESTER)'
  196.           help=nohelpatall
  197.           .
  198. :listact  option=12
  199.           cond=Brow3
  200.           enter='CMD SNDMSG MSG(''Option 12 pressed'') TOUSR(*REQUESTER)'
  201.           help=nohelpatall
  202.           .12=Something...
  203. :listact  option=12
  204.           enter='CMD SNDMSG MSG(''Option 12 pressed'') TOUSR(*REQUESTER)'
  205.           help=nohelpatall
  206.           .
  207. .* Fourth row of options ...
  208. :listact  option=13
  209.           cond=Brow4
  210.           enter='CMD SNDMSG MSG(''Option 13 pressed'') TOUSR(*REQUESTER)'
  211.           help=nohelpatall
  212.           .13=Something
  213. :listact  option=13
  214.           enter='CMD SNDMSG MSG(''Option 13 pressed'') TOUSR(*REQUESTER)'
  215.           help=nohelpatall
  216.           .
  217. :listact  option=14
  218.           cond=Brow4
  219.           enter='CMD SNDMSG MSG(''Option 14 pressed'') TOUSR(*REQUESTER)'
  220.           help=nohelpatall
  221.           .14=Something...
  222. :listact  option=14
  223.           enter='CMD SNDMSG MSG(''Option 14 pressed'') TOUSR(*REQUESTER)'
  224.           help=nohelpatall
  225.           .
  226. .* Fifth row of options ...
  227. :listact  option=15
  228.           cond=Brow5
  229.           enter='CMD SNDMSG MSG(''Option 15 pressed'') TOUSR(*REQUESTER)'
  230.           help=nohelpatall
  231.           .15=Something...
  232. :listact  option=15
  233.           enter='CMD SNDMSG MSG(''Option 15 pressed'') TOUSR(*REQUESTER)'
  234.           help=nohelpatall
  235.           .
  236.  
  237. :listcol  var=option
  238.           usage=inout
  239.           maxwidth=4
  240.           help=nohelpatall
  241.           .Opt
  242. :listcol  var=column1
  243.           usage=out
  244.           maxwidth=10
  245.           help=nohelpatall
  246.           .First
  247. :listcol  var=column2
  248.           usage=out
  249.           maxwidth=10
  250.           help=nohelpatall
  251.           .Second
  252. :listcol  var=column3
  253.           usage=out
  254.           maxwidth=10
  255.           help=nohelpatall
  256.           .Third
  257. :listcol  var=column4
  258.           usage=out
  259.           maxwidth=10
  260.           help=nohelpatall
  261.           .Fourth
  262. :listcol  var=column5
  263.           usage=out
  264.           maxwidth=10
  265.           help=nohelpatall
  266.           .Fifth
  267. :listview layout=1
  268.           cols='option column1 column2 column3 column4 column5'.
  269. :elist.
  270. :epanel.
  271. :help     name=nohelpatall.
  272. :ehelp.
  273. :epnlgrp.
  274.  
  275.  
© 2004-2019 by midrange.com generated in 0.008s valid xhtml & css