home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / fed0217s.zip / obj / samples.ini < prev   
Text File  |  2001-08-08  |  1KB  |  46 lines
  1. //-----------------------------------------
  2. // This file contains miscellaneous samples
  3. // for various reasons not included in main FED.INI
  4. //-----------------------------------------
  5.  
  6. //Non-REXX versions of some key bindings
  7. //kbCtrlK = FlipWordWrapMerge
  8. //kbCtrlW = FlipWordWrap
  9.  
  10. //REXX versions
  11.  
  12. kbCtrlH = { /* It does exacly the same as kbCtrlH but in other way */
  13.             /*  If you decide to reorder menu then you need to change
  14.                 translation table to match new order.
  15.  
  16.                 no change   0
  17.                 C++             1
  18.                 REXX            2
  19.                 MAKE            3
  20.                 ASM             4
  21.                 HTML            5
  22.                 MAIL            6
  23.                 PAS             7
  24.                 PERL            8
  25.                 none            9
  26.             */
  27.                 rc = fedMenu(3, 7, " ~A~SM", " ~C~++", " ~H~TML",,
  28.                                    " MA~I~L", " ~M~AKE", " ~P~ASCAL",,
  29.                                    " P~E~RL", " ~R~EXX", " ~N~o hiliting ")
  30.  
  31.                 rc = substr('0415637829', rc+1, 1)
  32.  
  33.                 if rc > 0 then
  34.                     rc = fedSet('H'rc)
  35.  
  36.                 return '';
  37.           }
  38.  
  39. //kbBeforeKey = { say 'Before key is processed!' }
  40.  
  41. //kbAfterKey  = { say 'After key is processed!' }
  42.  
  43. //kbCtrlQ = { rc = fedSendKey('kbCtrlW'); return '';}
  44.  
  45.  
  46.