home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / lpexmac.zip / QMARK.LX < prev   
Text File  |  1998-09-05  |  4KB  |  104 lines
  1. /* english text follows below */
  2.  
  3. /* Datei: qmark.lx
  4.    Zweck: Macro zur Definition von Quickmarks
  5.           Alt-1 bis Alt-9 zum springen zu den Marks
  6.           und
  7.           Ctrl-1 bis Ctrl-9 zum setzen der Marks
  8.           und
  9.           Alt+0 zum Anzeigen einer Liste der definierten Marks und zum springen zu einer
  10.           Mark durch Auswahl aus der Liste
  11.    Erstellt: 03.08.98
  12.    Autor: Jens Fettkenheuer (Clearwater Software & System Service GmbH)
  13.  
  14.    Erläuterungen:
  15.    Diese Datei muss sich entweder im Verzeichnis X:\IBMCPP\MACROS oder
  16.    in einem Verzeichnis das in der Umgebungsvariablen "LPATH" aufgeführt
  17.    ist, befinden.
  18.    Um das Macro zu aktivieren, müssen in die Datei PROFILE.LX die Zeilen:
  19.  
  20.                        'SET ACTION.C-1 MACRO QMARK S 1'
  21.                        'SET ACTION.C-2 MACRO QMARK S 2'
  22.                        'SET ACTION.C-3 MACRO QMARK S 3'
  23.                        'SET ACTION.C-4 MACRO QMARK S 4'
  24.                        'SET ACTION.C-5 MACRO QMARK S 5'
  25.                        'SET ACTION.C-6 MACRO QMARK S 6'
  26.                        'SET ACTION.C-7 MACRO QMARK S 7'
  27.                        'SET ACTION.C-8 MACRO QMARK S 8'
  28.                        'SET ACTION.C-9 MACRO QMARK S 9'
  29.                        'SET ACTION.A-0 dialog findmark'
  30.                        'SET ACTION.A-1 MACRO QMARK F 1'
  31.                        'SET ACTION.A-2 MACRO QMARK F 2'
  32.                        'SET ACTION.A-3 MACRO QMARK F 3'
  33.                        'SET ACTION.A-4 MACRO QMARK F 4'
  34.                        'SET ACTION.A-5 MACRO QMARK F 5'
  35.                        'SET ACTION.A-6 MACRO QMARK F 6'
  36.                        'SET ACTION.A-7 MACRO QMARK F 7'
  37.                        'SET ACTION.A-8 MACRO QMARK F 8'
  38.                        'SET ACTION.A-9 MACRO QMARK F 9'
  39.  
  40.    eingefügt werden. Diese sorgen dafür, daß durch drücken der Tastenkombinationen:
  41.                        Alt+1  bis Alt+9    (springen zur Mark)
  42.                        Ctrl+1 bis Ctrl+9   (setzen einer Mark)
  43.                        Alt+0               (Liste der Marks)
  44.    das Macro gestartet wird.
  45.  
  46.    Ich habe festgestellt, daß neue Macros erst nach einem Reboot (OS/2) aktiv werden.
  47. */
  48.  
  49. /* File: qmark.lx
  50.    Purpose: Macro for the definition of Quickmarks
  51.           Alt-1 bis Alt-9 to jump to the marks
  52.           und
  53.           Ctrl-1 bis Ctrl-9 define the marks
  54.           und
  55.           Alt+0 to show the list of defined marks, choosing there a mark to jump to
  56.    Created: 03.08.98
  57.    Author: Jens Fettkenheuer (Clearwater Software & System Service GmbH)
  58.  
  59.    Explanations:
  60.    This file must be stored either into the directory X:\IBMCPP\MACROS or in a
  61.    directory stated in the environment variable "LPATH".
  62.    To activate the macro the following lines must be inserted into the file
  63.    PROFILE.LX
  64.                        'SET ACTION.C-1 MACRO QMARK S 1'
  65.                        'SET ACTION.C-2 MACRO QMARK S 2'
  66.                        'SET ACTION.C-3 MACRO QMARK S 3'
  67.                        'SET ACTION.C-4 MACRO QMARK S 4'
  68.                        'SET ACTION.C-5 MACRO QMARK S 5'
  69.                        'SET ACTION.C-6 MACRO QMARK S 6'
  70.                        'SET ACTION.C-7 MACRO QMARK S 7'
  71.                        'SET ACTION.C-8 MACRO QMARK S 8'
  72.                        'SET ACTION.C-9 MACRO QMARK S 9'
  73.                        'SET ACTION.A-0 dialog findmark'
  74.                        'SET ACTION.A-1 MACRO QMARK F 1'
  75.                        'SET ACTION.A-2 MACRO QMARK F 2'
  76.                        'SET ACTION.A-3 MACRO QMARK F 3'
  77.                        'SET ACTION.A-4 MACRO QMARK F 4'
  78.                        'SET ACTION.A-5 MACRO QMARK F 5'
  79.                        'SET ACTION.A-6 MACRO QMARK F 6'
  80.                        'SET ACTION.A-7 MACRO QMARK F 7'
  81.                        'SET ACTION.A-8 MACRO QMARK F 8'
  82.                        'SET ACTION.A-9 MACRO QMARK F 9'
  83.  
  84.    These lines activate the keys
  85.                        Alt+1  to Alt+9    (jump to mark)
  86.                        Ctrl+1 to Ctrl+9   (define mark)
  87.                        Alt+0               (display list of defined marks)
  88.  
  89.    i found that new macros become active after a reboot only
  90. */
  91.  
  92. arg action qmIndex
  93. select
  94.   when action = "F" then do
  95.     'mark find' qmIndex
  96.     say "cursor position set to QuickMark " qmIndex
  97.   end
  98.   when action = "S" then do
  99.     'mark set' qmIndex
  100.     say "cursor position stored to QuickMark " qmIndex
  101.   end
  102. end
  103.  
  104.