home *** CD-ROM | disk | FTP | other *** search
/ Power GUI Programming with VisualAge C++ / powergui.iso / trialva / ibmcppw / macros / zoom.lx < prev   
Encoding:
Text File  |  1996-02-22  |  1.0 KB  |  33 lines
  1. /* Zoom in on all lines which contain the text which is highlighted */
  2. /* on the current line.                                             */
  3. doagain = 1
  4.  
  5. tryagain:
  6. extract 'content'        /* get the current line                    */
  7.  
  8. extract 'blockstart'     /* find start position of block highlight  */
  9.  
  10. extract 'blockend'       /* find end position of block hightlight   */
  11.  
  12. /* try to ensure we have some text highlighted.                     */
  13. if (blockstart = 0 | blockend = 0 | blockend < blockstart) then do
  14.    if (doagain = 1) then do
  15.       /* no selected text, so get current word */
  16.       'block mark word'
  17.       doagain = 0
  18.       signal tryagain
  19.    end
  20.    else do
  21.       /* error of some sort */
  22.       msg 'No block selected or error selecting word under the cursor'
  23.       exit 2
  24.    end
  25. end
  26.  
  27. /* retrieve the highlighted text only, from the line.               */
  28. text = substr(content, blockstart, blockend - blockstart + 1)
  29.  
  30. 'all find any 'text      /* show only the lines containing the text */
  31.  
  32. exit 0
  33.