/[climacs]/climacs/ttcn3-syntax.lisp
ViewVC logotype

Diff of /climacs/ttcn3-syntax.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by crhodes, Thu May 26 08:31:53 2005 UTC revision 1.3 by dmurray, Mon Aug 15 23:31:22 2005 UTC
# Line 442  Line 442 
442                     do (let ((token (lexeme lexer start-token-index)))                     do (let ((token (lexeme lexer start-token-index)))
443                          (display-parse-tree token syntax pane))                          (display-parse-tree token syntax pane))
444                       (incf start-token-index))))))))                       (incf start-token-index))))))))
445      (let* ((cursor-line (number-of-lines-in-region top (point pane)))      (when (mark-visible-p pane) (display-mark pane syntax))
446             (height (text-style-height (medium-text-style pane) pane))      (display-cursor pane syntax current-p)))
            (cursor-y (+ (* cursor-line (+ height (stream-vertical-spacing pane)))))  
            (cursor-column (column-number (point pane)))  
            (cursor-x (* cursor-column (text-style-width (medium-text-style pane) pane))))  
       (updating-output (pane :unique-id -1)  
                        (draw-rectangle* pane  
                                         (1- cursor-x) (- cursor-y (* 0.2 height))  
                                         (+ cursor-x 2) (+ cursor-y (* 0.8 height))  
                                         :ink (if current-p  
                                                  (make-rgb-color 0.7 0.7 0.7) +blue+))))))  
447    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5