/[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.7 by thenriksen, Sat Sep 2 21:43:56 2006 UTC revision 1.8 by thenriksen, Sun Nov 12 16:06:06 2006 UTC
# Line 21  Line 21 
21  ;;; Boston, MA  02111-1307  USA.  ;;; Boston, MA  02111-1307  USA.
22    
23  (defpackage :climacs-ttcn3-syntax  (defpackage :climacs-ttcn3-syntax
24    (:use :clim-lisp :clim :clim-extensions :climacs-buffer :climacs-base    (:use :clim-lisp :clim :clim-extensions :drei-buffer :drei-base
25          :climacs-syntax :flexichain :climacs-pane :climacs-fundamental-syntax)          :drei-syntax :flexichain :drei :drei-fundamental-syntax)
26    (:export))    (:export))
27  (in-package :climacs-ttcn3-syntax)  (in-package :climacs-ttcn3-syntax)
28    
# Line 417  Line 417 
417      (when (and (end-offset entity) (mark> (end-offset entity) top))      (when (and (end-offset entity) (mark> (end-offset entity) top))
418        (call-next-method))))        (call-next-method))))
419    
420  (defmethod redisplay-pane-with-syntax ((pane climacs-pane) (syntax ttcn3-syntax) current-p)  (defmethod redisplay-pane-with-syntax ((pane drei-pane) (syntax ttcn3-syntax) current-p)
421    (with-slots (top bot) pane    (with-slots (top bot) pane
422      (setf *cursor-positions* (make-array (1+ (number-of-lines-in-region top bot)))      (setf *cursor-positions* (make-array (1+ (number-of-lines-in-region top bot)))
423            *current-line* 0            *current-line* 0

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5