home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / lpexmac.zip / CPAGE.LX next >
Text File  |  1998-09-05  |  2KB  |  57 lines
  1. /* english text follows below */
  2. /* Datei: cpage.lx
  3.    Zweck: Macro zum bewegen des Cursors and den unteren bzw. oberen Fensterrand
  4.    Erstellt: 03.08.98
  5.    Autor: Jens Fettkenheuer (Clearwater Software & System Service GmbH)
  6.  
  7.    Erläuterungen:
  8.    Diese Datei muss sich entweder im Verzeichnis X:\IBMCPP\MACROS oder
  9.    in einem Verzeichnis das in der Umgebungsvariablen "LPATH" aufgeführt
  10.    ist, befinden.
  11.    Um das Macro zu aktivieren, müssen in die Datei PROFILE.LX die Zeilen:
  12.                        'SET ACTION.A-End MACRO CPAGE B'
  13.                        'SET ACTION.A-Home MACRO CPAGE T'
  14.    eingefügt werden. Diese sorgen dafür, daß durch drücken der Tastenkombinationen:
  15.                        Alt+End    bzw.   Alt+Ende   (unterer Fensterrand)
  16.                        Alt+Home   bzw.   Alt+Pos1   (oberer Fensterrand)
  17.    das Macro gestartet wird.
  18.  
  19.    Ich habe festgestellt, daß neue Macros erst nach einem Reboot (OS/2) aktiv werden.
  20. */
  21.  
  22. /* File: cpage.lx
  23.    Purpose: Macro to move the cursor to the first and/ or to the last row of
  24.             the editor window
  25.    Created: 03.08.98
  26.    Author: Jens Fettkenheuer (Clearwater Software & System Service GmbH)
  27.  
  28.    Explanations:
  29.    This file must be stored either into the directory X:\IBMCPP\MACROS or in a
  30.    directory stated in the environment variable "LPATH".
  31.    To activate the macro the following lines must be inserted into the file
  32.    PROFILE.LX
  33.                        'SET ACTION.A-End MACRO CPAGE B'
  34.                        'SET ACTION.A-Home MACRO CPAGE T'
  35.  
  36.    These lines activate the keys
  37.                        Alt+End    (move cursor to first row)
  38.                        Alt+Home   (move cursor to last row)
  39.  
  40.    i found that new macros become active after a reboot only
  41. */
  42.  
  43.  
  44. ARG action
  45. SELECT
  46.   WHEN action = "T" THEN DO
  47.     'set cursorrow' 1
  48.     say "Cursor moved to top of window"
  49.   END
  50.   WHEN action = "B" THEN DO
  51.     'extract dispdepth into sh'
  52.     'set cursorrow' sh
  53.     say "Cursor moved to bootom of window"
  54.   END
  55. END
  56.  
  57.