home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / shareuti / expand53 / xpdemo / xpmenu.prg < prev    next >
Encoding:
Text File  |  1992-08-06  |  3.8 KB  |  124 lines
  1. * ------------------------------------------------------------------------
  2. * Module......:    XPMENU.PRG
  3. * Title.......: MENU part of the Expand Library Demonstration Program
  4. * Author......:    Pepijn Smits.
  5. * Date........:    July/August 1992
  6. * Copyright...:    (c)1992 by Softwarebureau Pepijn Smits
  7. * Notes.......:    Clipper 5.01 Demo of the Expand Library
  8. *        See XPDEMO.RMK For Compile and Link instructions.
  9. * ------------------------------------------------------------------------
  10.  
  11. * Menu is Stored in a Few statics..
  12.  
  13. Static m0 :=    {'≡',        {'~A~bout..  ',;
  14.                  'Some version, author and copyright information',;
  15.                     {||About()}},;
  16.                 {'Expand ~I~nfo',;
  17.                 'Display some general information about the ~Expand Library~',;
  18.                     {||XPinfo()}},;
  19.                 {'~K~eyboard',;
  20.                 'Set the Typematic ~rate~ of the keyboard',;
  21.                     {||TypeRate()}},;
  22.                 {'~C~lear desktop',;
  23.                 'Redraw the screen with the startup screen',;
  24.                     {||SetupScreen()}},;
  25.                 {'E~x~it',;
  26.                 'Quit the ~Expand Library~ Demonstration program',;
  27.                     {||XPstop()}};
  28.         }
  29.  
  30. Static m1 :=    {'Disk',    {'~S~how status',;
  31.                 'Show current ~Status~ (Disk Functions)',;
  32.                     {||DiskStatus()}},;
  33.                 {'~C~hange drive',;
  34.                 'Change the current default ~Drive~ setting',;
  35.                     {||ChangeDrive()}},;
  36.                 {'~T~emporary file',;
  37.                 'Create some ~temporary~ files on disk (also with Multi-Users!)',;
  38.                     {||TempFile()}},;
  39.                 {'~F~ind a File',;
  40.                 '~Find~ file(s) on the disk by scanning the Tree',;
  41.                     {||FileFind()}},;
  42.                 {'Directory ~T~ree',;
  43.                 'Display a Directory ~Tree~, and browse (nothing more)',;
  44.                     {||DirTree()}};
  45.         }
  46.  
  47. Static m2 :=    {'DOS',        {'DOS ~I~nfo',;
  48.                 'Display some ~DOS~ information',;
  49.                     {||DOSinfo()}},;
  50.                 {'~C~ountry interface',;
  51.                 'Use the ~COUNTRY~ interface',;
  52.                     {||CountryInfo()}},;
  53.                 {'DOS error ~M~essages',;
  54.                 'Display a list of know ~DOS~ error messages (XPdosMsg())',;
  55.                     {||DosMessage()}},;
  56.                 {'~P~rint interface',;
  57.                 'Use the ~PRINT~ interface',;
  58.                     {||PrintTest()}},;
  59.                 {'~E~nvironment',;
  60.                 'Display all the ~Environment~ strings',;
  61.                     {||EnvList()}};
  62.         }
  63.  
  64. Static m3 :=    {'System',    {'Machine ~I~nformation',;
  65.                 'Some Machine ~ID~ information',;
  66.                     {||MachInfo()}},;
  67.                 {'What is this ~M~achine',;
  68.                 'An attempt to ~identify~ the Machine, by scanning the ROM',;
  69.                     {||MachID()}},;
  70.                 {'~W~armboot',;
  71.                 'Reboot the Machine, just like pressing ~Ctrl-Alt-Del~',;
  72.                     {||BootWarm()}},;
  73.                 {'~C~oldboot',;
  74.                 'Reboot the Machine, just like pressing the ~reset~ button',;
  75.                     {||BootCold()}},;
  76.                 {'~J~oystick test',;
  77.                 'Test the ~Joystick~ interface',;
  78.                     {||JoyTest()}};
  79.         }
  80.  
  81. Static m4 :=    {'EGA/VGA',    {'~L~oad a Font',;
  82.                 'Load a ~EGA/VGA~ Alternative Text Font',;
  83.                     {||FontTest()}},;
  84.                 {'~S~tandard Font',;
  85.                 'Restore the Standard Font',;
  86.                     {||FontStd()}};
  87.         }
  88.  
  89.  
  90. Static m5 :=    {'Mouse',    {'Mouse ~I~nfo',;
  91.                 'Display some general ~Mouse~ information',;
  92.                     {||MousInfo()}},;
  93.                 {'Mouse ~O~n/Off',;
  94.                 'Set the ~Mouse~ On/Off',;
  95.                     {||MousSet()}},;
  96.                 {'~A~ssisted Mouse',;
  97.                 'Indicate whether ~Assisted~ Mouse pointer should be On',;
  98.                     {||MousAssi()}},;
  99.                 {'Mouse ~S~ensitivity',;
  100.                 'Set the ~Mouse~ sensitivity',;
  101.                     {||MousSens()}};
  102.         }
  103.  
  104.  
  105. Static m6 :={'Miscellanous',    {'~H~ex dump',;
  106.                 'Do some kind of Hex-Dump (The 1st 1024 bytes of XPDEMO.PCX)',;
  107.                     {||HexDump()}},;
  108.                 {'~L~otus 1-2-3',;
  109.                 'Create a ~Lotus 1-2-3~ Spreadsheet',;
  110.                     {||Test123()}},;
  111.                 {'~P~CX viewer',;
  112.                 'Test the Simple but fast ~PXC~ viewer in',;
  113.                     {||PCXtest()}},;
  114.                 {'~V~oice call',;
  115.                 'Make a ~Voice~ Call with the Modem',;
  116.                     {||TestDial()}};
  117.         }
  118.  
  119. Function SetupMenu()
  120. Local M := { m0, m1, m2, m3, m4, m5, m6 }
  121. MenuColor()
  122. XPpullInit(m,{|s|XPmsg(' ~Expand~ Library │ '+s)})
  123. Return (NIL)
  124.