CLIM mail archive
Date: Wed, 7 Nov 90 03:22 PST
From: Mabry Tyson <TYSON@sunset.ai.sri.com>
It's not a whole lot of code, and it sure ain't elegant. But if someone else
out there has been bashing their heads against the wall on this, I'm willing
to put the code out for view. (< 15K bytes)
Anything you haven't already run by us I'd be happy to see.
Some things I still need to figure out how to do:
Have the toplevel loop read a command or a form.
We have both COMMAND and EXPRESSION presentation types, but the
0.9 release doesn't have the OR type. That's being worked on.
Bind globals around the toplevel loop
Write an around method for CLIM:RUN-FRAME-TOP-LEVEL.
Have the cursor be visible in an application frame.
Get your hands on the stream whose cursor you want to be visible
(setf (ci::cursor-visibility (ci::stream-text-cursor stream)) ':off) [sic]
. There will probably be some turds left behind as the cursor
moves around, that's why the cursor stuff is still internal.
Various presentation types (MEMBER-SEQUENCE, TOKEN-OR-TYPE, ...)
TOKEN-OR-TYPE suffers for basically the same reason that
COMMAND-OR-FORM doesn't exist: no OR presentation type yet.
Here's a simple implementation of MEMBER-SEQUENCE:
You can say (accept '(member-sequence #(one two three))), for example.
[in the CLIM-INTERNALS package, by the way]
(define-presentation-type member-sequence (&optional choices)
(not (null (find object choices))))
:parser ((stream &key default)
(multiple-value-bind (object success string)
(doseq (choice choices)
(suggest (token-element-string choice) choice)))
(cond ((and object success)
((string-equal string "") default)
(t (input-not-of-required-type stream object 'member)))))
:printer ((object stream &key acceptably) acceptably
(write-string (token-element-string object) stream))
:accept-values-displayer ((stream object query-identifier)
(flet ((highlighter (continuation object stream)
(with-text-face (:bold stream)
(funcall continuation object stream)))
(selector (a ignore)
(declare (dynamic-extent #'highlighter #'selector))
type ;; shouldn't TYPE be in the arglist somewhere?
Main Index |