ViewVC logotype

Log of /mcclim/dialog.lisp

Parent Directory Parent Directory | Revision Log Revision Log

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

Revision 1.33 - (view) (annotate) - [select for diffs]
Fri Oct 16 04:57:00 2009 UTC (4 years, 6 months ago) by rstrandh
Branch: MAIN
Changes since 1.32: +4 -5 lines
Diff to previous 1.32
Fixed problem with Cancel button in accepting-values.

Thanks to Kilian Sprotte for the patch.

Revision 1.32 - (view) (annotate) - [select for diffs]
Sat Aug 1 22:17:02 2009 UTC (4 years, 8 months ago) by gbaumann
Branch: MAIN
Changes since 1.31: +1 -1 lines
Diff to previous 1.31
    Use :calling-frame, leave shareing the event queue to the calling
    frame to what ever magic does it correctly in that case.

Revision 1.31 - (view) (annotate) - [select for diffs]
Sun Dec 7 03:22:54 2008 UTC (5 years, 4 months ago) by ahefner
Branch: MAIN
Changes since 1.30: +1 -1 lines
Diff to previous 1.30
Center the label with the text field, since s-o-w-b scrambles the notion
of the baseline.

Revision 1.30 - (view) (annotate) - [select for diffs]
Sat Dec 6 14:56:41 2008 UTC (5 years, 4 months ago) by ahefner
Branch: MAIN
Changes since 1.29: +39 -12 lines
Diff to previous 1.29
Add new keyword to accepting-values, select-first-query, to automatically
select the first field in the dialog (we could do this using an existing
keyword, but figuring out the right query ID and getting it where it
needed to be looked like too much work). This highlights what I think
is an existing bug - the exit buttons often don't work when a field in
the dialog is accepting.

Minor aesthetic tweaks to accepting-values dialog (change border styles,
dress up exit buttons, rearrange some line breaks).

Revision 1.29 - (view) (annotate) - [select for diffs]
Fri Feb 1 00:22:04 2008 UTC (6 years, 2 months ago) by thenriksen
Branch: MAIN
CVS Tags: McCLIM-0-9-6
Changes since 1.28: +2 -0 lines
Diff to previous 1.28
Always finalize the input-editing stream used in accepting-values.

Revision 1.28 - (view) (annotate) - [select for diffs]
Sat Jul 21 13:06:45 2007 UTC (6 years, 9 months ago) by rstrandh
Branch: MAIN
CVS Tags: McCLIM-0-9-5
Changes since 1.27: +3 -1 lines
Diff to previous 1.27
Added more IGNORE declarations.

Revision 1.27 - (view) (annotate) - [select for diffs]
Wed Jun 6 05:03:12 2007 UTC (6 years, 10 months ago) by ahefner
Branch: MAIN
Changes since 1.26: +94 -0 lines
Diff to previous 1.26
Committing some old work: implementation of notify-user, with some
uncertainty as to how it works in classic CLIM.

Revision 1.26 - (view) (annotate) - [select for diffs]
Tue May 29 12:34:20 2007 UTC (6 years, 10 months ago) by thenriksen
Branch: MAIN
Changes since 1.25: +15 -13 lines
Diff to previous 1.25
Committed patch from Daniel Jensen changing name of ACCEPTING-VALUES
command table to ACCEPT-VALUES.

Revision 1.25 - (view) (annotate) - [select for diffs]
Thu Dec 21 23:14:20 2006 UTC (7 years, 4 months ago) by thenriksen
Branch: MAIN
CVS Tags: McCLIM-0-9-4, mcclim-0-9-4
Changes since 1.24: +16 -12 lines
Diff to previous 1.24
Do some compile-time analysis to remove unreachable-code warnings at
compile-time for uses of `accepting-values'.

Revision 1.24 - (view) (annotate) - [select for diffs]
Wed Dec 13 15:31:07 2006 UTC (7 years, 4 months ago) by thenriksen
Branch: MAIN
Changes since 1.23: +3 -1 lines
Diff to previous 1.23
Now `*use-goatee*' also affects calls to `accept' within

Revision 1.23 - (view) (annotate) - [select for diffs]
Wed Nov 8 01:18:22 2006 UTC (7 years, 5 months ago) by thenriksen
Branch: MAIN
Changes since 1.22: +34 -36 lines
Diff to previous 1.22
Committed changes necessary to support Drei (and non-Goatee input
editors at all). Also some indirection permitting run-time selection
of editor substrate and the code for :text-editor and :text-field

Revision 1.22 - (view) (annotate) - [select for diffs]
Fri Aug 26 00:32:56 2005 UTC (8 years, 7 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, 7 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, 1 month 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, 5 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 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, 9 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