draw-line* limitations

• To: clim@BBN.COM
• Subject: draw-line* limitations
• From: kanderso@BBN.COM
• Date: Fri, 31 May 91 15:00:35 -0400
• Cc: kanderson@BBN.COM

In CLIM 0.9.71 try this on a window, m

(clim:with-drawing-options
     (m :clipping-region (sheet-region m ))
     (draw-line* m 0 0 50000 50000))


We interrupt this program for the following important word from our sponsor...
>>Error: 50016 isn't a INT16

(:INTERNAL CLIM-EXTENSIONS::ADVISE-DEBUGGER 0):
   Required arg 0 (CONDITION): #<Condition XLIB::X-TYPE-ERROR 20E9D86>
    0: Kill process #<Process Top Level: #<Xx-Frame-Manager #X214F446> 2490D16>
    1: Restart process #<Process Top Level: #<Xx-Frame-Manager #X214F446> 2490D16>

-> :b
(:INTERNAL CLIM-EXTENSIONS::ADVISE-DEBUGGER 0) <- ERROR <- XLIB::X-ERROR <- XLIB::X-TYPE-ERROR <- XLIB:DRAW-LINE <- (LUCID-COMMON-LISP:METHOD SILICA::DRAW-LINE*-INTERNAL (ON-X::CLG-MEDIUM T T T T)) <- (LUCID-COMMON-LISP:METHOD SILICA::DRAW-LINE*-INTERNAL :AROUND (ON-X::CLG-DISPLAY-MEDIUM T T T T)) <- (:COMBINED-METHOD SILICA::DRAW-LINE*-INTERNAL) <- (:GENERIC-FUNCTION SILICA::DRAW-LINE*-INTERNAL :|dispatch code|) <- (LUCID-COMMON-LISP:METHOD SILICA::DRAW-LINE*-INTERNAL (STANDARD-OUTPUT-CONTRACT T T T T)) <- (:INTERNAL (:INTERNAL (SILICA::DRAW-LINE*-INTERNAL :AROUND #) 0) 0) <- (LUCID-COMMON-LISP:METHOD SILICA::DRAW-LINE*-INTERNAL :AROUND (CLIM-INTERNALS::GRAPHICS-OUTPUT-RECORDING T T T T)) <- (:COMBINED-METHOD SILICA::DRAW-LINE*-INTERNAL) <- (:GENERIC-FUNCTION SILICA::DRAW-LINE*-INTERNAL :|dispatch code|)

Is there some other way i should be establishing a clipping region?

k



0,,

• Prev: Questions...about ICONS
• Next: Specializing CLIM's window class -- Ooops!!
• Index: CLIM Mailing list (5-Oct-90 to 31-Dec-91)
• Thread: CLIM Mailing list Index (5-Oct-90 to 31-Dec-91)