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

String Blinkers & Dynamic Windows

    Date:    Thu, 14 Jan 88 17:32:15 PST
    From: TAYLOR%PLU@ames-io.ARPA

    I have been trying to use string blinkers in a dynamic window -
    (dw:with-output-as-presentation (:type 'string :object "string blinker"
       :stream <stream> :single-box t)
      (setf *blinker* (tv:make-blinker <stream> 'tv:string-blinker
    where <stream> is a dynamic window. The blinker is created, but
    does not scroll with the dynamic window and is not mouse
    sensitive. Is there something I missed or is this a capability
    that does not exist yet?  Anyone else fooled with this stuff?

    - thanks - will    taylor%plu@io.arc.nasa.gov

I am not quite sure what it is that you want to do.  I assume you would
like to put something on the screen and have it outlined the way a
string of several lines would outlined by the blinker.  The code
fragment below does this.  I put out two lines and the blinker conforms
to the outer edges of the strings.  When I click on it the object
returned is the string-object "string blinker". 

I don't think you want to define blinkers inside
dw:with-output-as-presentation anyway.

(dw:with-output-as-presentation (:stream *standard-output* :object "string blinker" :type 'string)
    (write-string "This is a test")
    (write-string "short"))
This is a test
Command:  1'"string blinker"
0"string blinker

This one is a little different.  Try using :single-box t also.

(dw:with-output-as-presentation (:stream *standard-output* :object "string blinker" :type 'string :single-box nil)
    (write-string "This is a test")
    (dw:surrounding-output-with-border ()
       (write-string "short"))
    (multiple-value-bind (x y)
         (send *standard-output* :read-cursorpos)
      (graphics:draw-circle  (+ x 50) (- y 50) 10)))

  -- David D. Loeffler