[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Simple-view



Hi, MCL experts:

I made an instance of the class SIMPLE-VIEW.  Here is a list of
what I have done:

? (setf my-view (make-instance 'simple-view))
#<SIMPLE-VIEW #x8AA4C9>
? (describe my-view)
#<SIMPLE-VIEW #x8AA4C9>
Class: #<STANDARD-CLASS SIMPLE-VIEW>
Wrapper: #<CLASS-WRAPPER SIMPLE-VIEW #x8A8DC1>
Instance slots
VIEW-CONTAINER: NIL
WPTR: NIL
VIEW-POSITION: 0
VIEW-SIZE: 6553700
VIEW-NICK-NAME: NIL
VIEW-ALIST: NIL
DIRECTION: :OUTPUT
? (direction my-view)
> Error: Undefined function DIRECTION called with arguments (#<SIMPLE-VIEW #x8AA4C9>) .
> While executing: TOPLEVEL-EVAL
> Type Command-/ to continue, Command-. to abort.
> If continued: Retry applying DIRECTION to (#<SIMPLE-VIEW #x8AA4C9>).
See the RestartsI menu item for further choices.
1 > (view-font my-view)
("Chicago" 0 :SRCCOPY :PLAIN)
1 > 

I wonder why I can use VIEW-FONT to MY-VIEW, but not DIRECTION.
The manual of MCL (pp.127) does not mention the slots DIRECTION
and VIEW-ALIST.  What functions are the two slots?

Thanks for your help in advance.

- J. Pan