ViewVC logotype

Log of /mcclim/dialog.lisp

Parent Directory Parent Directory | Revision Log Revision Log

Links to HEAD: (view) (annotate)
Links to McCLIM-0-9-3: (view) (annotate)
Sticky Tag:

Revision 1.22 - (view) (annotate) - [select for diffs]
Fri Aug 26 00:32:56 2005 UTC (8 years, 8 months ago) by mretzlaff
Branch: MAIN
CVS Tags: McCLIM-0-9-2, McCLIM-0-9-3
Changes since 1.21: +7 -4 lines
Diff to previous 1.21
(climi::frame-event-queue *application-frame*) as argument :INPUT-BUFFER
specified previously). The ugly delay could be dropped, because no new
process is created anymore. See
for more information. (Thanks go to Christophe.)

The parameter :LABEL to ACCEPTING-VALUES will now actually be used to
label the newly created window if :OWN-WINDOW is true.

Revision 1.21 - (view) (annotate) - [select for diffs]
Thu Aug 25 20:48:40 2005 UTC (8 years, 8 months ago) by mretzlaff
Branch: MAIN
Changes since 1.20: +3 -3 lines
Diff to previous 1.20
A patch against the first bug a patch by me introduced to mcclim.
Sorry, that shouldn't have happened.. At least it was only a bug in a
feature that the patch introduced (displaying an ACCEPTING-VALUES
dialog in its :OWN-WINDOW), and it affected only code that
thoughtlessly relied of this new and still broken feature.

(Broken because OPEN-WINDOW-STREAM doesn't really work yet. I think
there has to be a (redisplay-frame-panes frame) or something like that
in its event-loop (that is the function STANDALONE-EVENT-LOOP).)

Revision 1.20 - (view) (annotate) - [select for diffs]
Fri Aug 19 00:48:25 2005 UTC (8 years, 8 months ago) by rstrandh
Branch: MAIN
Changes since 1.19: +30 -9 lines
Diff to previous 1.19
Patches to dialog.lisp from Max-Gerd Retzlaff.

Revision 1.19 - (view) (annotate) - [select for diffs]
Fri Feb 25 14:15:17 2005 UTC (9 years, 1 month ago) by tmoore
Branch: MAIN
CVS Tags: McCLIM-0-9-1
Changes since 1.18: +7 -0 lines
Diff to previous 1.18
Changed the handling of "empty input" for the purposes of returning a
default value from ACCEPT. I eliminated the around method on
STREAM-READ-CHAR that looked for activation/delimiter gestures and
replaced it with an error handler on SIMPLE-PARSE-ERROR. The major
effect of this is that (accept 'string) now return the empty string
if the call to ACCEPT is not passed a default; other accept methods
can return something useful for empty input too. This fixes some
problems in the address book demo and with dialogs in general.

Revision 1.18 - (view) (annotate) - [select for diffs]
Tue Feb 22 14:00:10 2005 UTC (9 years, 2 months ago) by tmoore
Branch: MAIN
Changes since 1.17: +80 -66 lines
Diff to previous 1.17
Fixed presentation highlighting to do the right thing in the

Fixed Goatee to not draw anything when drawing is not enabled for the

Changed input editing streams to never put activation gestures in the
input buffer. There is only one place to receive an activation
gesture: the end of the buffer. If the user types an activation
gesture, the insertion pointer is moved to the end of the buffer.

Fixed various problems with accepting-values. In particular, the
insertion pointer does not need to be left at the end of a field when
the user exits the dialog. Also, the behavior in the presence of
errors new: if an error occurs while the user is typing in an
accepting-values field, the bell is beeped and the insertion pointer
is positioned before the stream position where the error occured.

Revision 1.17 - (view) (annotate) - [select for diffs]
Tue Jan 18 10:58:08 2005 UTC (9 years, 3 months ago) by tmoore
Branch: MAIN
Changes since 1.16: +43 -9 lines
Diff to previous 1.16
Implemented a pop-up-menu-view for displaying the completion
presentation type in a dialog.

Added some documentation for the internals of accepting-values.

Revision 1.16 - (view) (annotate) - [select for diffs]
Tue Jan 11 13:02:19 2005 UTC (9 years, 3 months ago) by tmoore
Branch: MAIN
Changes since 1.15: +24 -5 lines
Diff to previous 1.15
Implement :SINGLE-BOX properly.:SINGLE-BOX NIL is the default, but
McCLIM has ignored it. This changes (for the better) the behavior of


If the view argument to ACCEPT is a list, apply MAKE-INSTANCE to the
list to obtain the view.

Fix a bug in dialogs that prevented moving on to the next text field
after hitting return.

Define a new view type, TEXT-FIELD-VIEW, that is used in
dialogs. This view has a WIDTH parameter.

Revision 1.15 - (view) (annotate) - [select for diffs]
Sun Jan 2 05:24:49 2005 UTC (9 years, 3 months ago) by ahefner
Branch: MAIN
Changes since 1.14: +48 -45 lines
Diff to previous 1.14
Add new :inset border shape. Use this to surround text fields created by accepting-values.
Reduce offset of :drop-shadow border by one pixel, to three pixels.

In accepting values dialogs, reclaim the space occupied by the dialog
after exiting.

Revision 1.14 - (view) (annotate) - [select for diffs]
Sun Oct 24 15:47:02 2004 UTC (9 years, 6 months ago) by moore
Branch: MAIN
Changes since 1.13: +53 -27 lines
Diff to previous 1.13
Implemented :ALIGN-PROMPTS in ACCEPTING-VALUES. This was harder than
it sounds, requiring several changes and cleanups:

spec vaguely hints that ACCEPT is responsible for drawing the prompt,
but that makes things like wrapping the calls to PROMPT-FOR-ACCEPT
and ACCEPT-PRESENT-DEFAULT inside a table formatting directive hard
to do. This shouldn't affect any user code.

Made Goatee input streams play nice with output recording. Added the
notion of a NEWLINE-CHARACTER to Goatee buffers; NIL is valid, so one
can construct Goatee areas that will only have one line. This
eliminates a lot of ugliness from ACCEPTING-VALUES dialogs.

Fixed a few Goatee bugs.

Revision 1.13 - (view) (annotate) - [select for diffs]
Fri Oct 15 13:05:36 2004 UTC (9 years, 6 months ago) by moore
Branch: MAIN
Changes since 1.12: +16 -6 lines
Diff to previous 1.12
ACCEPTING-VALUES. Update the text entry field in ACCEPTING-VALUES
when the :DEFAULT argument in the corresponding call to ACCEPT
changes. Return the correct third value from ACCEPT when the user
enters new input.

Add some documentation about INCREMENTAL-DISPLAY and the difference

which are trivial but which were not implemented.

Examples/accepting-values.lisp is a couple of examples from the Franz
user guide.

Tools/unimplemented.lisp prints out all the symbols in the CLIM
package which have no definition.

Revision 1.12 - (view) (annotate) - [select for diffs]
Wed Oct 6 12:03:56 2004 UTC (9 years, 6 months ago) by moore
Branch: MAIN
Changes since 1.11: +19 -7 lines
Diff to previous 1.11
Changed STREAM-DESIGNATOR-SYMBOL to take a default value
argument. The value corresponding to T isn't always *STANDARD-OUTPUT*.

Fixed a problem in the incremental redisplay code checked in
recently: the output record that holds an updating output record's
children wasn't always created.

Some tweaks (in progress) to ACCEPTING-VALUES.

Revision 1.11 - (view) (annotate) - [select for diffs]
Wed Mar 24 09:30:29 2004 UTC (10 years, 1 month ago) by moore
Branch: MAIN
Changes since 1.10: +15 -5 lines
Diff to previous 1.10
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

	* 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.10 - (view) (annotate) - [select for diffs]
Tue Jan 20 16:07:25 2004 UTC (10 years, 3 months ago) by moore
Branch: MAIN
Changes since 1.9: +0 -1 lines
Diff to previous 1.9
Presentation histories. The new goatee command C-M y works reasonably
well in the listener demo. More testing and user documentation is needed.

Work in progress on the OpenGL backend.

Revision 1.9 - (view) (annotate) - [select for diffs]
Wed Jan 7 05:05:07 2004 UTC (10 years, 3 months ago) by moore
Branch: MAIN
Changes since 1.8: +10 -1 lines
Diff to previous 1.8
Work in progress on the OpenGL backend, but nothing's working
yet. Refactored the KeySym and modifiers code in the CLX backend so
that it can be used by the OpenGL backend too.

Fixed a typo in presentation-replace-input; it was always creating
accept result extents.

Added support in accepting-values for placing the default in the text
entry field and fixed several problems that turned up as a result.

The completion functions take sequences, not just lists. Also,
:allow-any-input was broken.

Revision 1.8 - (view) (annotate) - [select for diffs]
Thu Nov 13 22:54:07 2003 UTC (10 years, 5 months ago) by moore
Branch: MAIN
Changes since 1.7: +7 -5 lines
Diff to previous 1.7
Fixed Goatee problem with the area not being drawn initially.

Implement :move-cursor option to surrounding-output-with-border.

Use surrounding-output-with-border in accepting-values to make
better-looking entry fields.

Establish an abort restart in default-frame-top-level.

Paul Werkowski's fix for menu command names.

Added Raymond Toy's note about CLX and CMUCL.

Revision 1.7 - (view) (annotate) - [select for diffs]
Wed Jul 16 17:27:46 2003 UTC (10 years, 9 months ago) by moore
Branch: MAIN
CVS Tags: McCLIM-0-9
Changes since 1.6: +6 -5 lines
Diff to previous 1.6
Don't define an accessor with a reserved name in Common Lisp, per Paul Werkowski

Revision 1.6 - (view) (annotate) - [select for diffs]
Fri Jul 4 06:38:06 2003 UTC (10 years, 9 months ago) by moore
Branch: MAIN
Changes since 1.5: +2 -1 lines
Diff to previous 1.5

Some cleanup of deleted Goatee area and screen-line methods.

Provide foreground-ink and background-ink slots for Goatee areas.

When an updating-output record is deleted, also delete it from its parent cache.
This prevents it from "coming back from the dead" later.

Revision 1.5 - (view) (annotate) - [select for diffs]
Sun Jun 29 05:34:18 2003 UTC (10 years, 9 months ago) by moore
Branch: MAIN
Changes since 1.4: +402 -20 lines
Diff to previous 1.4
Accepting-values.  It's ugly and has some cursor glitches but
otherwise appears to work. Various changes to Goatee were made to
support accepting-values.  Also, Goatee screen lines are now
better-behaved output records.

Revision 1.4 - (view) (annotate) - [select for diffs]
Thu Jun 26 21:34:51 2003 UTC (10 years, 10 months ago) by hefner1
Branch: MAIN
Changes since 1.3: +1 -0 lines
Diff to previous 1.3
Christophe Rhodes' SBCL cleanups.

Revision 1.3 - (view) (annotate) - [select for diffs]
Sun Apr 13 07:15:57 2003 UTC (11 years ago) by moore
Branch: MAIN
Changes since 1.2: +29 -1 lines
Diff to previous 1.2
Back out Andy's fix; accomplish the same thing by calling (setf
cursor-position) instead of (setf stream-cursor-position).

Replace stream-write-line with stream-write-output and remove some
gratuitous calls to make-string when outputing single characters.  For
the moment I've probably just forced them down to the medium level.
Oh well.

Start of exploration of accepting-output.

Revision 1.2 - (view) (annotate) - [select for diffs]
Fri Mar 21 21:36:58 2003 UTC (11 years, 1 month ago) by mikemac
Branch: MAIN
Changes since 1.1: +1 -1 lines
Diff to previous 1.1
make all of the package names passed to in-package be lowercase keywords for ACL's java mode

Revision 1.1 - (view) (annotate) - [select for diffs]
Sun Jul 14 03:24:29 2002 UTC (11 years, 9 months ago) by adejneka
Branch: MAIN
Added stub for ACCEPTING-VALUES.

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