/[mcclim]/mcclim/regions.lisp
ViewVC logotype

Log of /mcclim/regions.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Links to HEAD: (view) (annotate)
Sticky Tag:

Revision 1.39 - (view) (annotate) - [select for diffs]
Wed Jun 3 20:33:16 2009 UTC (4 years, 10 months ago) by ahefner
Branch: MAIN
CVS Tags: HEAD
Changes since 1.38: +4 -1 lines
Diff to previous 1.38
Handle selection-notify-events in the text gadget and input editor.
For communicating with the input editor, signal and handle a
selection-notify condition from the lower level event handler (I can't
think of a better approach to communicating across the layers). Disable
the old default of pasting by synthesizing keypress events, but make it
available via paste-as-keypress-mixin.

Revision 1.38 - (view) (annotate) - [select for diffs]
Wed Jan 23 22:37:08 2008 UTC (6 years, 2 months ago) by thenriksen
Branch: MAIN
CVS Tags: McCLIM-0-9-6
Changes since 1.37: +12 -10 lines
Diff to previous 1.37
Added support for zero-radius ellipses. I hope I didn't break anything...

Revision 1.37 - (view) (annotate) - [select for diffs]
Mon Jan 21 01:34:13 2008 UTC (6 years, 2 months ago) by ahefner
Branch: MAIN
Changes since 1.36: +3 -2 lines
Diff to previous 1.36
Missed one.

Revision 1.36 - (view) (annotate) - [select for diffs]
Tue Jan 15 15:45:17 2008 UTC (6 years, 3 months ago) by crhodes
Branch: MAIN
Changes since 1.35: +3 -3 lines
Diff to previous 1.35
Frob standard-ellipse and standard-elliptical-arc superclasses

(Otherwise, methods on clim:design are more specific than methods on
climi::elliptical-thing, which means that everything goes haywire.)

Revision 1.35 - (view) (annotate) - [select for diffs]
Mon Jan 14 07:03:18 2008 UTC (6 years, 3 months ago) by ahefner
Branch: MAIN
Changes since 1.34: +3 -3 lines
Diff to previous 1.34
Plug holes in the design composition functions.

Revision 1.34 - (view) (annotate) - [select for diffs]
Mon Feb 5 03:07:22 2007 UTC (7 years, 2 months ago) by ahefner
Branch: MAIN
CVS Tags: McCLIM-0-9-5
Changes since 1.33: +21 -1 lines
Diff to previous 1.33
Added internal helper, with-grown-rectangle*.

Revision 1.33 - (view) (annotate) - [select for diffs]
Fri May 5 10:24:02 2006 UTC (7 years, 11 months ago) by crhodes
Branch: MAIN
CVS Tags: McCLIM-0-9-3, McCLIM-0-9-4, mcclim-0-9-4
Changes since 1.32: +1 -9 lines
Diff to previous 1.32
Many more generic function defgenerics in decls.lisp
... moving some out from their individual files.
... one or two tiny code cleanups

I think the only substantive changes in this commit are:
* remove the workaround for sbcl-0.9.8 broken forward-referenced-class
  metacircularity;
* delete the unused uniform-design protocol-class;
* put the standard-sheet-input-mixin as a superclass of
  standard-extended-input-stream, not of the protocol class
  extended-input-stream.
If someone wants to tell me that these things are wrong, that's fine; at
least some things appear still to work.

Now we only emit 209 style warnings when loading mcclim under sbcl.
(When compiling and loading, it's closer to 500).

This commit cures all but a few redefinition style-warnings -- so now
almost all generic functions are defined before the first method
definition is seen.  It doesn't cure implicit definition of generic
function style warnings, so there are probably plenty of specified
generic functions which are not explicitly defined.  (Leaving aside the
issues with unspecified generic functions)

TODO:
* DEFGENERIC* forward declarations
* specified methods and macros
* specified special variables
* unification of protocol-classes and decls

Revision 1.32 - (view) (annotate) - [select for diffs]
Fri Mar 10 21:58:13 2006 UTC (8 years, 1 month ago) by tmoore
Branch: MAIN
CVS Tags: McCLIM-0-9-2
Changes since 1.31: +1 -17 lines
Diff to previous 1.31
Move most protocol class definitions into protocol-classes.lisp, which
is compiled and loaded early. Some class definitions, which had slot
definitions that I didn't have the stomach to tease apart, stayed
behind.

Replace the presentation documentation state mechanism with
updating-output so that other functions / programs can write to the
pointer documentation area and not screw things up. We still use the
state to actually print the documentation.

Revision 1.31 - (view) (annotate) - [select for diffs]
Mon Mar 6 16:09:12 2006 UTC (8 years, 1 month ago) by crhodes
Branch: MAIN
Changes since 1.30: +12 -7 lines
Diff to previous 1.30
Fix a couple of region bugs
* the infinite loop in point/point intersection noted in the tests
* isum-member was broken for more than one rectangle in the same
  horizontal band.  Add test for this case.

Revision 1.30 - (view) (annotate) - [select for diffs]
Fri Feb 11 10:05:57 2005 UTC (9 years, 2 months ago) by crhodes
Branch: MAIN
CVS Tags: McCLIM-0-9-1
Changes since 1.29: +4 -4 lines
Diff to previous 1.29
Fix the declaration of the coordinate array

Revision 1.29 - (view) (annotate) - [select for diffs]
Fri Feb 11 09:10:37 2005 UTC (9 years, 2 months ago) by tmoore
Branch: MAIN
Changes since 1.28: +121 -23 lines
Diff to previous 1.28
Changed the representation of STANDARD-RECTANGLE from slots for the
coordinates to an array of coordinates. This should enable
opportunities for hashing the coordinates in interesting, inexpensive
ways. Introduced the macros WITH-STANDARD-RECTANGLE and
WITH-STANDARD-RECTANGLE* to provide convenient access to the
coordinates. Added (SETF RECTANGLE-EDGES*).

This change may well break code that depends on the internal
representation of output records.

Revision 1.28 - (view) (annotate) - [select for diffs]
Wed Mar 24 09:30:29 2004 UTC (10 years ago) by moore
Branch: MAIN
Changes since 1.27: +66 -53 lines
Diff to previous 1.27
2004-03-24  Timothy Moore  <moore@bricoworks.com>

	* INSTALL.OPENMCL: updated instructions.

	* builtin-commands.lisp (default-translator): Return the
	presentation type of the presentation as the second value.
	(document-form-translator): New function
	(%frob-constant-form, %frob-form): Use document-form-translator. Add
	translators from standard-object to expression and form.
	(expression-as-form): Add a menu entry for this translator.
	(ccl::%read-list-expression, (accept expression t textual-view),
	read, read-preserving-whitespace): Move the Lisp form reader
	stuff from the ptype 'form to the ptype 'expression. Disallow any
	activation or delimiter gestures while reading an expression.

	* commands.lisp (command-name-from-symbol): Don't strip leading
	subsequences of "COM-" from the command name.
	(keyword-arg-name-from-symbol): New function.
	(command-parsers): Add argument-unparser slot
	(make-keyword): New function
	(make-key-accessors): Use it. Accept keynames that begin with a
	#\: and have dashes replaced by spaces.
	(make-unprocessor-fun) New function to create an unprocessor
	function for each command.
	(%define-command): New macro preserving  old behavior. Use new
	unprocessor stuff.
	(output-destination, invoke-with-standard-output): New class and
	generic function for outputing the results of commands to an
	output stream.
	(define-command): Implement :provide-output-destination-keyword
	(command-line-unparser): Call new stuff instead.

	* dialog.lisp: Add (redundant):provide-output-destination-keyword
	keyword argument to some commands.

	* incremental-redisplay.lisp: Work in progress. Turn things
	inside-out.

	* input-editing.lisp (complete-input): Don't insert input when mode is
	:complete and we've failed.

	* presentation-defs.lisp (accept-1): Use multiple-value-list when
	looking at results of accept method.
	((present t completion t t)): Use the arguments to the type to drive
	the present method here.
	((accept sequence t textual-view)): Don't peek-char initially! It
	breaks accepting the first element via mouse click.
	(accept sequence-enumerated t textual-view): new method.

	* recording.lisp : Cosmetic fixups.

	* regions.lisp (ellipse-normal-radii*): Add Gilbert's English
	translation of the comment and clean up the function.

	* system.lisp: Add Goatee/presentation-history.

	* transforms.lisp (+identity-transformation+): Move earlier in the
	file to avoid a warning.

	* utils.lisp (delete-1, parse-lambda-list): new functions.

	* Apps/Listener/dev-commands.lisp : Add
	:provide-output-destination-keyword argument to many commands.
	((presentation-type generic-function)): Rewrite. Make it inherit from
	t, add accept method. The type of the object is generic-function, not
	the name or something.
	((presentation-type standard-generic-function), (presentation-type
	method), (presentation-type standard-method)): add.
	(Show Generic Function): All-singing all-dancing command for exploring
	generic functions and their methods.
	((presentation-type package)): New type with completing accept method.
	(Set Package): New command

	* Apps/Listener/listener.lisp (run-frame-top-level): Add bindings for
	all the Common Lisp reader and printer variables.

	* Apps/Scigraph/dwim/macros.lisp (define-command): Add
	:provide-output-destination-keyword support for McCLIM.

	* Goatee/goatee-command.lisp (lookup-gesture-command): Disable
	annoying debugging output.

	* Lisp-Dep/fix-openmcl.lisp (:clim-mop): In OpenMCL 0.14 use and
	export all symbols from :openmcl-mop.
	(compute-applicable-methods-using-classes): Hack for the listener.

Revision 1.27 - (view) (annotate) - [select for diffs]
Mon Mar 1 12:52:29 2004 UTC (10 years, 1 month ago) by hefner1
Branch: MAIN
Changes since 1.26: +6 -3 lines
Diff to previous 1.26
Fixes to last commit - CLX ellipses were correct, undo change (oops).
In recording/regions code for ellipses, do untransform-angle rather than
transform-angle due to polarity mismatch. Modify angles in DRAW-OVAL* to
reflect this.

Revision 1.26 - (view) (annotate) - [select for diffs]
Fri Mar 21 22:07:06 2003 UTC (11 years, 1 month ago) by mikemac
Branch: MAIN
CVS Tags: McCLIM-0-9
Changes since 1.25: +28 -28 lines
Diff to previous 1.25
make all code lowercase for ACL's java mode - leave gensyms alone

Revision 1.25 - (view) (annotate) - [select for diffs]
Sun Nov 10 15:48:56 2002 UTC (11 years, 5 months ago) by gilbert
Branch: MAIN
Changes since 1.24: +13 -13 lines
Diff to previous 1.24
Commit of patch submitted my Oliver Markovic.
Original message:

    Message-ID: <87bs4y1mhh.fsf@draco.home.lan>
    From: Oliver Markovic <qgo@gmx.net>
    To: free-clim@mikemac.com
    Subject: Protocol Classes
    Date: Sat, 09 Nov 2002 22:06:50 +0100

    Hi,

    Attached is a patch, which uses DEFINE-PROTOCOL-CLASS for all protocol
    classes as defined in the spec (not all were using that macro). I also
    added simple docstrings to the macro and changed the error message to
    something more civil :-)

    This should also add some required predicates, which were missing.

    I also noticed that protocol classes were given slots contradicting the
    definition in 2.5: "A protocol class is an "abstract" class with no
    slots and no methods (except perhaps for some default methods) [...]".
    But I guess that's no serious deviation from the spec though.

    greetz,
    --
     Oliver Markovic

Revision 1.24 - (view) (annotate) - [select for diffs]
Tue Sep 24 01:56:30 2002 UTC (11 years, 6 months ago) by moore
Branch: MAIN
Changes since 1.23: +5 -16 lines
Diff to previous 1.23
Fixed bug reported by Paul Werkowski; coordinate sequences can now be
lists or vectors.  Introduced a do-sequence macro that has similar
semantics to dotimes and dolist as well as features of map-sequence.

Implemented frame-state (except for :shrunk).  Changed timing of when
frames are generated, adopted and enabled to follow the spec.  Fixed
clim-fig to adapt to this new world order.  Disable the frame when the
top level function exits.

Remove erroring methods for copy-to-pixmap (stream ...) and friends.

Wrote a with-keywords-removed macro that attempts to be efficient
about about removing arguments from argument lists.

Revision 1.23 - (view) (annotate) - [select for diffs]
Thu Jun 27 16:47:00 2002 UTC (11 years, 9 months ago) by gilbert
Branch: MAIN
Changes since 1.22: +28 -1 lines
Diff to previous 1.22
REGION-INTERSECTS-REGION-P has an :around method on bounding
rectangles.

Revision 1.22 - (view) (annotate) - [select for diffs]
Fri Jun 21 06:30:41 2002 UTC (11 years, 10 months ago) by adejneka
Branch: MAIN
Changes since 1.21: +21 -13 lines
Diff to previous 1.21
* Fixed transformation of STANDARD-RECTANGLE-SET.

Revision 1.21 - (view) (annotate) - [select for diffs]
Thu Jun 20 07:40:04 2002 UTC (11 years, 10 months ago) by adejneka
Branch: MAIN
Changes since 1.20: +3 -1 lines
Diff to previous 1.20
* MAKE-STANDARD-RECTANGLE-SET: removed empty initial bands.

Revision 1.20 - (view) (annotate) - [select for diffs]
Wed Jun 12 03:43:41 2002 UTC (11 years, 10 months ago) by adejneka
Branch: MAIN
Changes since 1.19: +14 -0 lines
Diff to previous 1.19
* Added default methods for REGION-{INTERSECTION,UNION}.

Revision 1.19 - (view) (annotate) - [select for diffs]
Tue Jun 4 07:50:20 2002 UTC (11 years, 10 months ago) by adejneka
Branch: MAIN
Changes since 1.18: +20 -3 lines
Diff to previous 1.18
* Partially fixed (METHOD BOUNDING-RECTANGLE* (STANDARD-ELLIPSE)).

Revision 1.18 - (view) (annotate) - [select for diffs]
Mon Apr 29 05:00:33 2002 UTC (11 years, 11 months ago) by brian
Branch: MAIN
Changes since 1.17: +2 -1 lines
Diff to previous 1.17
OpenGL backend now draws stuff (but not much else).
Misc cleaning up, some regions debugging.

Revision 1.17 - (view) (annotate) - [select for diffs]
Thu Apr 25 19:55:06 2002 UTC (11 years, 11 months ago) by moore
Branch: MAIN
Changes since 1.16: +4 -1 lines
Diff to previous 1.16
Provide a region-intersection method for rectangle arguments.

Make text-style use the :end argument.

Change all the functions that run the examples to run the frame top
level.

Many fixes to Goatee.  The goatee-test demo puts up a single line of
text and allows basic editing of it (insertion, deletion, cursor
movement).  Check it out.

Revision 1.16 - (view) (annotate) - [select for diffs]
Sun Apr 21 12:41:14 2002 UTC (12 years ago) by brian
Branch: MAIN
Changes since 1.15: +2 -2 lines
Diff to previous 1.15
Sundry fixes to run without multiprocessing support.

Added images/ to hold bitmaps for tests.

Added looks/ to hold neutral look-and-feel realizer packages.

Added Examples/gadget-test to test many gadgets with a look and feel.

Added a pixie look and feel, and a pixie/clx to work with the clx backend.

Added drawing support in the CLX backend for ovals and circles.

Fixed pixmaps to work with with-output-to-pixmap with draw-image, etc.

Moved sheet-leaf-mixin to standard-gadget-pane so it doesn't break radio-box-pane, etc.

Misc fixes.

Revision 1.15 - (view) (annotate) - [select for diffs]
Thu Feb 21 03:22:44 2002 UTC (12 years, 1 month ago) by gilbert
Branch: MAIN
Changes since 1.14: +13 -49 lines
Diff to previous 1.14
Uses DEFINE-PROTOCOL-CLASS now.

Revision 1.14 - (view) (annotate) - [select for diffs]
Sat Feb 16 02:32:23 2002 UTC (12 years, 2 months ago) by gilbert
Branch: MAIN
Changes since 1.13: +1 -104 lines
Diff to previous 1.13
elided a spurious PRINT.
elided export list.

Revision 1.13 - (view) (annotate) - [select for diffs]
Tue Dec 4 16:19:19 2001 UTC (12 years, 4 months ago) by mikemac
Branch: MAIN
Changes since 1.12: +2 -1 lines
Diff to previous 1.12
remove compiler warnings for ACL

Revision 1.12 - (view) (annotate) - [select for diffs]
Tue Jul 17 05:50:51 2001 UTC (12 years, 9 months ago) by gilbert
Branch: MAIN
Changes since 1.11: +60 -3 lines
Diff to previous 1.11
added (REGION-CONTAINS-POSITION-P STANDARD-ELLIPSE ..)
added (BOUNDING-RECTANGLE* STANDARD-ELLIPSE)
added (REGION-INTERSECTION LINE STANDARD-ELLIPSE) and vice versa

Revision 1.11 - (view) (annotate) - [select for diffs]
Thu Jul 12 15:17:31 2001 UTC (12 years, 9 months ago) by gilbert
Branch: MAIN
Changes since 1.10: +7 -4 lines
Diff to previous 1.10
fixed bugs in
(BOUNDING-RECTANGLE* STANDARD-REGION-UNION)
(BOUNDING-RECTANGLE* STANDARD-REGION-INTERSECTION)

Revision 1.10 - (view) (annotate) - [select for diffs]
Mon Jul 9 16:27:50 2001 UTC (12 years, 9 months ago) by boninfan
Branch: MAIN
Changes since 1.9: +52 -25 lines
Diff to previous 1.9
Fixed a region bug about boundaries.
--GB

Revision 1.9 - (view) (annotate) - [select for diffs]
Mon Mar 12 12:00:24 2001 UTC (13 years, 1 month ago) by rouanet
Branch: MAIN
Changes since 1.8: +10 -5 lines
Diff to previous 1.8
Fixed a bug in (REGION-EQUAL STANDARD-RECTANGLE STANDARD-RECTANGLE).
Fixed a bug in MAKE-ELLIPICAL-THING.
Corrected direct superclasses in STANDARD-ELLIPTICAL-ARC defclass.

REGION is now a subclass of DESIGN.

Revision 1.8 - (view) (annotate) - [select for diffs]
Sun Jan 21 12:01:55 2001 UTC (13 years, 2 months ago) by cvs
Branch: MAIN
Changes since 1.7: +49 -15 lines
Diff to previous 1.7
fixed bug in (TRANSFORM-REGION T STANDARD-RECTANGLE-SET)
added some documentation

Revision 1.7 - (view) (annotate) - [select for diffs]
Fri Dec 1 00:28:32 2000 UTC (13 years, 4 months ago) by cvs
Branch: MAIN
Changes since 1.6: +8 -1 lines
Diff to previous 1.6
added set-bounding-rectangle-position and fixed bug in print-object

Revision 1.6 - (view) (annotate) - [select for diffs]
Thu Nov 2 00:10:03 2000 UTC (13 years, 5 months ago) by cvs
Branch: MAIN
Changes since 1.5: +7 -5 lines
Diff to previous 1.5
fixed mode line and print-object

Revision 1.5 - (view) (annotate) - [select for diffs]
Thu Sep 7 20:04:58 2000 UTC (13 years, 7 months ago) by cvs
Branch: MAIN
Changes since 1.4: +1 -1 lines
Diff to previous 1.4
Replaced #() by '#() to satisfy clisp compiler.

Revision 1.4 - (view) (annotate) - [select for diffs]
Thu Jul 13 14:19:06 2000 UTC (13 years, 9 months ago) by cvs
Branch: MAIN
Changes since 1.3: +2160 -210 lines
Diff to previous 1.3
Gilbert Baumann's code for regions.

Revision 1.3 - (view) (annotate) - [select for diffs]
Mon Jun 19 02:31:29 2000 UTC (13 years, 10 months ago) by cvs
Branch: MAIN
Changes since 1.2: +6 -2 lines
Diff to previous 1.2
added deconstant +origin+ for Lieven Marchand <mal@bewoner.dma.be>

Revision 1.2 - (view) (annotate) - [select for diffs]
Mon Jun 12 12:29:47 2000 UTC (13 years, 10 months ago) by cvs
Branch: MAIN
Changes since 1.1: +2 -2 lines
Diff to previous 1.1
Change defconstant to defvar during development to satisfy Python.

Revision 1.1.1.1 - (view) (annotate) - [select for diffs] (vendor branch)
Thu Jun 8 22:01:12 2000 UTC (13 years, 10 months ago) by mikemac
Branch: initial
CVS Tags: start
Changes since 1.1: +0 -0 lines
Diff to previous 1.1 , to next main 1.39
Initial check-in

Revision 1.1 - (view) (annotate) - [select for diffs]
Thu Jun 8 22:01:12 2000 UTC (13 years, 10 months ago) by mikemac
Branch: MAIN
Branch point for: initial
Initial revision

This form allows you to request diffs between any two revisions of this file. For each of the two "sides" of the diff, select a symbolic revision name using the selection box, or choose 'Use Text Field' and enter a numeric revision.

  Diffs between and
  Type of Diff should be a

Sort log by:

  ViewVC Help
Powered by ViewVC 1.1.5