mcclim-cvs January 2008

mcclim-cvs@common-lisp.net

7 participants
255 discussions

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 23 Jan '08

23 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv13721/Drei Modified Files: packages.lisp views.lisp Log Message: Add `syntax-view-p' and `mark-view-p'. --- /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2008/01/21 17:08:28 1.45 +++ /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2008/01/23 19:01:40 1.46 @@ -217,10 +217,10 @@ ;; Views and their facilities. #:drei-view #:modified-p #:no-cursors #:drei-buffer-view #:buffer #:top #:bot #:buffer-view-p - #:drei-syntax-view #:syntax + #:drei-syntax-view #:syntax #:syntax-view-p #:pump-state-for-offset-with-syntax #:stroke-pump-with-syntax - #:point-mark-view + #:point-mark-view #:point-mark-view-p #:textual-drei-syntax-view #:tab-space-count #:space-width #:tab-width #:use-tabs #:auto-fill-mode #:auto-fill-column --- /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/22 20:14:43 1.27 +++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/23 19:01:40 1.28 @@ -616,7 +616,7 @@ ;; If start/end is wholly before (first list), push ;; on a new region. ((< start (car (first list))) - (cons (cons start end) (first list))) + (cons (cons start end) list)) ;; If start/end is wholly before (first list), go ;; further down list. If at end of list, add new ;; element. @@ -697,6 +697,10 @@ (suffix-size view) 0 (buffer-size view) -1)) +(defun syntax-view-p (view) + "Return true if `view' is a `drei-syntax-view'." + (typep view 'drei-syntax-view)) + (defmethod mode-enabled-p or ((modual drei-syntax-view) mode-name) (mode-enabled-p (syntax modual) mode-name)) @@ -819,6 +823,10 @@ (setf point (clone-mark (point buffer)) mark (clone-mark (point buffer) :right)))) +(defun point-mark-view-p (view) + "Return true if `view' is a `point-mark-view'" + (typep view 'point-mark-view)) + (defclass textual-drei-syntax-view (drei-syntax-view point-mark-view textual-view) ((%auto-fill-mode :initform nil :accessor auto-fill-mode) (%auto-fill-column :initform 70 :accessor auto-fill-column)

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 23 Jan '08

23 Jan '08

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv8629 Modified Files: NEWS Log Message: Added some more things to NEWS. --- /project/mcclim/cvsroot/mcclim/NEWS 2008/01/15 23:17:50 1.30 +++ /project/mcclim/cvsroot/mcclim/NEWS 2008/01/23 10:23:50 1.31 @@ -10,6 +10,10 @@ *** New redisplay engine that is faster and has more features. *** Support for "views" concept. *** Support for modes a la Emacs "mini-modes". +*** Bug fix: Input prompting now works for directly recursive calls to + ACCEPT. +*** Improvement: Goal-columns for line movement. +*** Improvement: More Emacs-like expression movement for Lisp syntax. ** Bug fix: label panes no longer have a restrictive maximum width. * Changes in mcclim-0.9.5 relative to 0.9.4:

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 23 Jan '08

23 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv6127/Drei Modified Files: input-editor.lisp Log Message: I decided that input-editing was too simple, so I added some more incomprehensible complexity. This should ensure commercial CLIM never copies code from us. Incidentally, also fixes prompting semantics, probably broke something else though. --- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/01/19 09:38:20 1.23 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/01/23 10:16:25 1.24 @@ -155,8 +155,7 @@ ;; already at the input position or if we are rescanning. This is so ;; we can support fancy accept methods such as the one for ;; `command-or-form' - (unless (or (stream-rescanning-p stream) - (= (stream-scan-pointer stream) (input-position stream))) + (unless (stream-rescanning-p stream) (call-next-method) ;; We skip ahead of any noise strings to put us past the ;; prompt. This is safe, because the noise strings are to be @@ -478,7 +477,8 @@ (with-accessors ((insertion-pointer stream-insertion-pointer) (scan-pointer stream-scan-pointer) (activation-gesture activation-gesture)) stream - (let ((buffer (buffer (view (drei-instance stream))))) + (let ((buffer (buffer (view (drei-instance stream)))) + (last-was-noisy nil)) ; T if last passed gesture is noise-string (loop (loop while (< scan-pointer insertion-pointer) @@ -486,7 +486,8 @@ do (let ((gesture (buffer-object buffer scan-pointer))) ;; Skip noise strings. (cond ((typep gesture 'noise-string) - (incf scan-pointer)) + (incf scan-pointer) + (setf last-was-noisy t)) ((and (not peek-p) (typep gesture 'accept-result)) (incf scan-pointer) @@ -512,8 +513,10 @@ (unless peek-p (incf scan-pointer)) (return-from stream-read-gesture gesture)) - (t (incf scan-pointer))))) - (setf (stream-rescanning stream) nil) + (t (incf scan-pointer) + (setf last-was-noisy nil))))) + (unless last-was-noisy ; This prevents double-prompting. + (setf (stream-rescanning stream) nil)) (when activation-gesture (return-from stream-read-gesture (prog1 activation-gesture

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 22 Jan '08

22 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv7026/Drei Modified Files: lisp-syntax.lisp Log Message: Only highlight parentheses when the view is active. --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2008/01/20 19:45:24 1.70 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2008/01/22 23:00:04 1.71 @@ -1832,6 +1832,17 @@ (progn (cache-symbol-info syntax symbol-form) (global-boundp symbol-form)))) +(defun parenthesis-highlighter (view form) + "Return the drawing style with which the parenthesis lexeme +`form' should be highlighted." + (if (and (typep view 'point-mark-view) + (active view) + (or (mark= (point view) (start-offset (parent form))) + (mark= (point view) (end-offset (parent form)))) + (form-complete-p (parent form))) + +bold-face-drawing-options+ + +default-drawing-options+)) + (define-syntax-highlighting-rules emacs-style-highlighting (error-lexeme (*error-drawing-options*)) (string-form (*string-drawing-options*)) @@ -1845,13 +1856,7 @@ ((symbol-form-is-boundp (syntax view) form) *special-variable-drawing-options*) (t +default-drawing-options+))))) - (parenthesis-lexeme (:function #'(lambda (view form) - (if (and (typep view 'point-mark-view) - (or (mark= (point view) (start-offset (parent form))) - (mark= (point view) (end-offset (parent form)))) - (form-complete-p (parent form))) - +bold-face-drawing-options+ - +default-drawing-options+))))) + (parenthesis-lexeme (:function #'parenthesis-highlighter))) (define-syntax-highlighting-rules retro-highlighting (error-symbol (*error-drawing-options*)) @@ -1863,13 +1868,7 @@ +bold-face-drawing-options+) (t +default-drawing-options+))))) ;; XXX: Ugh, copied from above. - (parenthesis-lexeme (:function #'(lambda (view form) - (if (and (typep view 'point-mark-view) - (or (mark= (point view) (start-offset (parent form))) - (mark= (point view) (end-offset (parent form)))) - (form-complete-p (parent form))) - +bold-face-drawing-options+ - +default-drawing-options+))))) + (parenthesis-lexeme (:function #'parenthesis-highlighter))) (defparameter *syntax-highlighting-rules* 'emacs-style-highlighting "The syntax highlighting rules used for highlighting Lisp

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 22 Jan '08

22 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv3056/Drei Modified Files: drei-redisplay.lisp Log Message: Fixed width calculation of Drei views. --- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/22 15:21:07 1.48 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/22 22:35:38 1.49 @@ -960,7 +960,7 @@ (last-line (last-displayed-line view))) (values (x1 (line-dimensions first-line)) (y1 (line-dimensions first-line)) - (max-line-width view) + (+ (x1 (line-dimensions first-line)) (max-line-width view)) (y2 (line-dimensions last-line)))))) (defmethod bounding-rectangle-width ((view drei-buffer-view))

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 22 Jan '08

22 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv11831/Drei Modified Files: views.lisp Log Message: Fixed small bug in `remember-changed-region'. --- /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/22 15:21:07 1.26 +++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/22 20:14:43 1.27 @@ -616,9 +616,7 @@ ;; If start/end is wholly before (first list), push ;; on a new region. ((< start (car (first list))) - (setf (first list) - (cons (cons start end) (first list))) - list) + (cons (cons start end) (first list))) ;; If start/end is wholly before (first list), go ;; further down list. If at end of list, add new ;; element.

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 22 Jan '08

22 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv16834/Drei Modified Files: drei-redisplay.lisp views.lisp Log Message: Fixed redisplay issue where changes to the contents of strokes were sometimes not picked up correctly. --- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/21 20:23:40 1.47 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/22 15:21:07 1.48 @@ -330,6 +330,31 @@ (end-offset (stroke-end-offset stroke)))) (return stroke)))))) +(defun find-index-of-line-containing-offset (view offset) + "Return the index of the line containing `offset'. If `offset' +is before the displayed lines, return 0. If `offset' is after the +displayed lines, return the index of the last line." + (with-accessors ((lines displayed-lines)) view + (cond ((< offset (line-start-offset (aref lines 0))) + 0) + ((> offset (line-end-offset (last-displayed-line view))) + (1- (displayed-lines-count view))) + (t + ;; Binary search for the line. + (loop with low-index = 0 + with high-index = (displayed-lines-count view) + for middle = (floor (+ low-index high-index) 2) + for this-line = (aref lines middle) + for line-start = (line-start-offset this-line) + for line-end = (line-end-offset this-line) + do (cond ((<= line-start offset line-end) + (loop-finish)) + ((mark> offset line-start) + (setf low-index (1+ middle))) + ((mark< offset line-start) + (setf high-index middle))) + finally (return middle)))))) + (defun ensure-line-information-size (view min-size) "Ensure that the array of lines for `view' contains at least `min-size' elements." @@ -379,14 +404,24 @@ (let* ((stroke (line-stroke-information line (line-stroke-count line))) (old-start-offset (stroke-start-offset stroke)) (old-end-offset (stroke-end-offset stroke)) - (old-drawing-options (stroke-drawing-options stroke))) + (old-drawing-options (stroke-drawing-options stroke)) + (changed-region (first (changed-regions view)))) (prog1 (stroke-pump view stroke pump-state) (unless (and old-start-offset (= (+ old-start-offset line-change) (stroke-start-offset stroke)) (= (+ old-end-offset line-change) (stroke-end-offset stroke)) (drawing-options-equal old-drawing-options - (stroke-drawing-options stroke))) + (stroke-drawing-options stroke)) + (or (null changed-region) + (not (overlaps (stroke-start-offset stroke) (stroke-end-offset stroke) + (car changed-region) (cdr changed-region))))) (invalidate-stroke stroke :modified t)) + ;; Move to the next changed region, if it is not possible for + ;; more stroks to overlap with the current one. + (when (and changed-region + (>= (stroke-end-offset stroke) + (cdr changed-region))) + (pop (changed-regions view))) (incf (line-stroke-count line)) (setf (line-end-offset line) (stroke-end-offset stroke))))) --- /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/21 17:08:28 1.25 +++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/22 15:21:07 1.26 @@ -552,7 +552,13 @@ :initform 0 :type number :documentation "The width of the longest -displayed line in device units.")) +displayed line in device units.") + (%changed-regions :accessor changed-regions + :initform nil + :documentation "A list of (start . end) conses +of buffer offsets, delimiting the regions of the buffer that have +changed since the last redisplay. The regions are not +overlapping, and are sorted in ascending order.")) (:metaclass modual-class) (:documentation "A view that contains a `drei-buffer' object. The buffer is displayed on a simple line-by-line basis, @@ -586,6 +592,47 @@ "Return true if `view' is a `drei-buffer-view'." (typep view 'drei-buffer-view)) +(defun overlaps (x1 x2 y1 y2) + "Return true if the x1/x2 region overlaps with y1/y2." + (or (<= x1 y1 x2) + (<= y1 x1 y2) + (<= y1 x1 x2 y2) + (<= x1 y1 y1 x2))) + +(defun remember-changed-region (view start end) + "Note that the buffer region delimited by the offset `start' +and `end' has been modified." + (labels ((worker (list) + ;; Return a new changed-regions list. Try to extend old + ;; regions instead of adding new ones. + (cond ((null list) + (list (cons start end))) + ;; If start/end overlaps with (first list), extend + ;; (first list) + ((overlaps start end (car (first list)) (cdr (first list))) + (setf (car (first list)) (min start (car (first list))) + (cdr (first list)) (max end (cdr (first list)))) + list) + ;; If start/end is wholly before (first list), push + ;; on a new region. + ((< start (car (first list))) + (setf (first list) + (cons (cons start end) (first list))) + list) + ;; If start/end is wholly before (first list), go + ;; further down list. If at end of list, add new + ;; element. + ((< (cdr (first list)) end) + (setf (rest list) (worker (rest list))) + list)))) + (setf (changed-regions view) (worker (changed-regions view))))) + +(defmethod observer-notified ((view drei-buffer-view) (buffer drei-buffer) + changed-region) + ;; If something has been redisplayed, and there have been changes to + ;; some of those lines, mark them as dirty. + (remember-changed-region view (car changed-region) (cdr changed-region))) + (defclass drei-syntax-view (drei-buffer-view) ((%syntax :accessor syntax :documentation "An instance of the syntax class used @@ -675,48 +722,49 @@ (modified-p view) t)) (call-next-method)) -(defmethod synchronize-view :around ((view drei-syntax-view) &key - force-p (begin 0) (end (size (buffer view)))) - (assert (>= end begin)) - ;; If nothing changed, then don't call the other methods. - (when (or (not (= (prefix-size view) (suffix-size view) - (buffer-size view) (size (buffer view)))) - force-p) - (call-next-method))) +(defun needs-resynchronization (view) + "Return true if the the view of the buffer of `view' is +potentially out of date. Return false otherwise." + (not (= (prefix-size view) (suffix-size view) + (buffer-size view) (size (buffer view))))) (defmethod synchronize-view ((view drei-syntax-view) - &key (begin 0) (end (size (buffer view)))) + &key (begin 0) (end (size (buffer view))) + force-p) "Synchronize the syntax view with the underlying buffer. `Begin' and `end' are offsets specifying the region of the buffer that must be synchronised, defaulting to 0 and the size of the buffer respectively." - (let ((prefix-size (prefix-size view)) - (suffix-size (suffix-size view))) - ;; Set some minimum values here so if `update-syntax' calls - ;; `update-parse' itself, we won't end with infinite recursion. - (setf (prefix-size view) (max (if (> begin prefix-size) - prefix-size - end) - prefix-size) - (suffix-size view) (max (if (>= end (- (size (buffer view)) suffix-size)) - (max (- (size (buffer view)) begin) suffix-size) - suffix-size) - suffix-size) - (buffer-size view) (size (buffer view))) - (multiple-value-bind (parsed-start parsed-end) - (update-syntax (syntax view) prefix-size suffix-size begin end) - (assert (>= parsed-end parsed-start)) - ;; Now set the proper new values for prefix-size and - ;; suffix-size. - (setf (prefix-size view) (max (if (>= prefix-size parsed-start) - parsed-end - prefix-size) + (assert (>= end begin)) + ;; If nothing changed, then don't call the other methods. + (when (or (needs-resynchronization view) force-p) + (let ((prefix-size (prefix-size view)) + (suffix-size (suffix-size view))) + ;; Set some minimum values here so if `update-syntax' calls + ;; `update-parse' itself, we won't end with infinite recursion. + (setf (prefix-size view) (max (if (> begin prefix-size) + prefix-size + end) prefix-size) - (suffix-size view) (max (if (>= parsed-end (- (size (buffer view)) suffix-size)) - (- (size (buffer view)) parsed-start) + (suffix-size view) (max (if (>= end (- (size (buffer view)) suffix-size)) + (max (- (size (buffer view)) begin) suffix-size) suffix-size) - suffix-size))) - (call-next-method))) + suffix-size) + (buffer-size view) (size (buffer view))) + (multiple-value-bind (parsed-start parsed-end) + (update-syntax (syntax view) prefix-size suffix-size begin end) + (assert (>= parsed-end parsed-start)) + ;; Now set the proper new values for prefix-size and + ;; suffix-size. + (setf (prefix-size view) (max (if (>= prefix-size parsed-start) + parsed-end + prefix-size) + prefix-size) + (suffix-size view) (max (if (>= parsed-end (- (size (buffer view)) suffix-size)) + (- (size (buffer view)) parsed-start) + suffix-size) + suffix-size))))) + (call-next-method)) (defun make-syntax-for-view (view syntax-symbol &rest args) (apply #'make-instance syntax-symbol

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 22 Jan '08

22 Jan '08

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv19045 Modified Files: commands.lisp frames.lisp Log Message: Committed patch from Nikodemus Siivola fixing undefined variables. --- /project/mcclim/cvsroot/mcclim/commands.lisp 2007/12/10 19:33:18 1.72 +++ /project/mcclim/cvsroot/mcclim/commands.lisp 2008/01/22 08:51:02 1.73 @@ -332,7 +332,7 @@ (command-name-from-symbol command-name)) (errorp (error 'command-not-accessible :command-table-name - (command-table-designator-as-name table))) + (command-table-designator-as-name command-table))) (t nil))) (defun find-menu-item (menu-name command-table &key (errorp t)) @@ -436,7 +436,7 @@ (in-table (position gesture keystroke-accelerators :test #'equal))) (when (and in-table errorp) (error 'command-already-present :command-table-name - (command-table-designator-as-name table))) + (command-table-designator-as-name command-table))) (if in-table (setf (nth in-table keystroke-items) item) (progn @@ -474,7 +474,7 @@ (setf (cdr items-tail) (cddr items-tail)))) (when errorp (error 'command-not-present :command-table-name - (command-table-designator-as-name table))))))) + (command-table-designator-as-name command-table))))))) nil) (defun map-over-command-table-keystrokes (function command-table) @@ -499,7 +499,7 @@ do (return-from find-keystroke-item (values item command-table))) (if errorp (error 'command-not-present :command-table-name - (command-table-designator-as-name table)) + (command-table-designator-as-name command-table)) nil))) (defun lookup-keystroke-item (gesture command-table @@ -522,11 +522,11 @@ (values sub-item sub-command-table)))))) command-table)))) -(defun partial-command-from-name (command-name) +(defun partial-command-from-name (command-name command-table) (let ((parser (gethash command-name *command-parser-table*))) (if (null parser) (error 'command-not-present :command-table-name - (command-table-designator-as-name table)) + (command-table-designator-as-name command-table)) (cons command-name (mapcar #'(lambda (foo) (declare (ignore foo)) @@ -549,7 +549,7 @@ (if item (let* ((value (command-menu-item-value item)) (command (case (command-menu-item-type item) - (:command + (:command value) (:function (funcall value gesture numeric-arg)) @@ -558,7 +558,7 @@ (if command ; Return a literal command, or create a partial command from a command-name (substitute-numeric-argument-marker (if (symbolp command) - (partial-command-from-name command) + (partial-command-from-name command command-table) command) numeric-arg) gesture)) --- /project/mcclim/cvsroot/mcclim/frames.lisp 2008/01/01 00:27:34 1.128 +++ /project/mcclim/cvsroot/mcclim/frames.lisp 2008/01/22 08:51:02 1.129 @@ -521,13 +521,14 @@ (object) (call-next-method) (menu-item - (let ((command (command-menu-item-value object))) + (let ((command (command-menu-item-value object)) + (table (frame-command-table frame))) (unless (listp command) - (setq command (partial-command-from-name command))) + (setq command (partial-command-from-name command table))) (if (and (typep stream 'interactor-pane) (partial-command-p command)) (command-line-read-remaining-arguments-for-partial-command - (frame-command-table frame) stream command 0) + table stream command 0) command))))) (defmethod read-frame-command ((frame application-frame)

1 0

[mcclim-cvs] CVS mcclim
by ahefner 21 Jan '08

21 Jan '08

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv28208 Modified Files: recording.lisp Log Message: Patch from Nikodemus Siivola --- /project/mcclim/cvsroot/mcclim/recording.lisp 2008/01/21 01:26:42 1.136 +++ /project/mcclim/cvsroot/mcclim/recording.lisp 2008/01/21 22:24:32 1.137 @@ -1730,7 +1730,7 @@ (:bottom (incf top (- point-y descent)) (incf bottom (- point-y descent))) (:center (incf top (+ point-y (ceiling (- ascent descent) 2))) - (incf bottom (+ point-xy (ceiling (- ascent descent) 2))))) + (incf bottom (+ point-y (ceiling (- ascent descent) 2))))) (values left top right bottom)))) (defmethod* (setf output-record-position) :around

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 21 Jan '08

21 Jan '08

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv23985 Modified Files: X11-colors.lisp design.lisp Log Message: Moved the +black+ and +white+ colour definitions to design.lisp. The rationale that these are hardly X11-specific, and they're needed before colors.lisp is loaded anyway. --- /project/mcclim/cvsroot/mcclim/X11-colors.lisp 2003/03/21 21:36:58 1.2 +++ /project/mcclim/cvsroot/mcclim/X11-colors.lisp 2008/01/21 20:54:48 1.3 @@ -59,8 +59,6 @@ (defconstant +LavenderBlush+ (make-named-color "LavenderBlush" 1.0000 0.9412 0.9608)) (defconstant +misty-rose+ (make-named-color "misty-rose" 1.0000 0.8941 0.8824)) (defconstant +MistyRose+ (make-named-color "MistyRose" 1.0000 0.8941 0.8824)) -(defconstant +white+ (make-named-color "white" 1.0000 1.0000 1.0000)) -(defconstant +black+ (make-named-color "black" 0.0000 0.0000 0.0000)) (defconstant +dark-slate-gray+ (make-named-color "dark-slate-gray" 0.1843 0.3098 0.3098)) (defconstant +DarkSlateGray+ (make-named-color "DarkSlateGray" 0.1843 0.3098 0.3098)) (defconstant +dark-slate-grey+ (make-named-color "dark-slate-grey" 0.1843 0.3098 0.3098)) --- /project/mcclim/cvsroot/mcclim/design.lisp 2008/01/14 07:03:15 1.27 +++ /project/mcclim/cvsroot/mcclim/design.lisp 2008/01/21 20:54:48 1.28 @@ -917,6 +917,11 @@ (= g1 g2) (= b1 b2))))) +;;; The two default colors + +(defconstant +white+ (make-named-color "white" 1.0000 1.0000 1.0000)) +(defconstant +black+ (make-named-color "black" 0.0000 0.0000 0.0000)) + ;;; Color utilities (defgeneric highlight-shade (ink)

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
26
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs January 2008