Skip to content
Snippets Groups Projects
Commit 40ab8d5f authored by colin's avatar colin
Browse files

Makefile.generic

- added stub-*.c files to list of files to be rm'd with make clean

clim/frames.lisp
- :command-menu now back to old style clim1 pane (clim2rfe230)
- :menu-bar produces toolkit menu bar panes (clim2rfe230)
- fixed bug in find-applicable-translators-for-documentation
  (clim2bug409)

silica/gadgets.lisp
- menu-bar now inherits from oriented-gadget-mixin (clim2rfe230)

test/test-suite.lisp
- added tests for clipping with rectangle-sets

tk/gcontext.lisp
- (setf gcontext-clip-mask) can now take a list of rectangles

tk-silica/xm-frames.lisp
- frame-manger-contruct-menu now handles row-wise, n-columns and
  n-rows (clim2bug401)

tk-silica/xt-graphics.lisp
- a bunch of changes to make rectangle sets work as clipping regions
  (clim2bug346)
- pattern and tile decoding unified. transparent patterns are now
  limited to two colors (as tiles used to be).

tk-silica/xt-silica.lisp
- fixed up minor problem with hp's scalable fonts.

utils/region-arithmetic.lisp
- removed bounding-rectangle from list of superclasses of
  standard-rectangle-set (list includes region-set which itself
  inherits from bounding-rectangle)
parent 4c1a898c
No related branches found
No related tags found
No related merge requests found
......@@ -20,7 +20,7 @@
;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
;; applicable.
;;
;; $fiHeader: gcontext.lisp,v 1.21 92/12/16 16:50:23 cer Exp $
;; $fiHeader: gcontext.lisp,v 1.22 92/12/17 15:33:37 cer Exp $
(in-package :tk)
......@@ -330,26 +330,9 @@
gc
nv))
(defmethod (setf gcontext-clip-mask) ((nv cons) (gc gcontext))
(let ((r (x11:make-xrectangle)))
(setf (x11:xrectangle-x r) (first nv)
(x11:xrectangle-y r) (second nv)
(x11:xrectangle-width r) (third nv)
(x11:xrectangle-height r) (fourth nv))
(x11:xsetcliprectangles
(object-display gc)
gc
0 ; clip-x-origin
0 ; clip-y-origin
r
1
x11:unsorted)))
;; this will come in useful when we can handle region sets for clip regions
#+ignore
(defmethod (setf gcontext-clip-mask) ((nv cons) (gc gcontext))
(let ((n (length nv))
(rs (x11:make-xrectangle-array :number n)))
(defmethod (setf gcontext-clip-mask) ((nv list) (gc gcontext))
(let* ((n (length nv))
(rs (x11:make-xrectangle-array :number n)))
(dotimes (i n)
(let ((r (pop nv)))
(setf (x11:xrectangle-array-x rs i) (first r)
......
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-UTILS; Base: 10; Lowercase: Yes -*-
;; $fiHeader: region-arithmetic.lisp,v 1.12 93/03/19 09:47:30 cer Exp $
;; $fiHeader: region-arithmetic.lisp,v 1.13 93/03/31 10:40:41 cer Exp $
(in-package :clim-utils)
......@@ -359,7 +359,7 @@
;;; Special cases for bounding rectangles
(defclass standard-rectangle-set (region-set bounding-rectangle)
(defclass standard-rectangle-set (region-set)
((left :initarg :left :type coordinate)
(top :initarg :top :type coordinate)
(right :initarg :right :type coordinate)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment