May 2006 - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

[mcclim-cvs] CVS mcclim/Experimental/freetype
by crhodes 02 May '06

02 May '06

Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype In directory clnet:/tmp/cvs-serv14348 Modified Files: freetype-ffi.lisp Log Message: In sbcl, load the versioned shared object --- /project/mcclim/cvsroot/mcclim/Experimental/freetype/freetype-ffi.lisp 2006/03/15 22:56:55 1.4 +++ /project/mcclim/cvsroot/mcclim/Experimental/freetype/freetype-ffi.lisp 2006/05/02 15:46:42 1.5 @@ -57,7 +57,7 @@ `(def-alien-routine ,@rest)) #+sbcl -(load-shared-object #+darwin "/usr/X11R6/lib/libfreetype.dylib" #-darwin "libfreetype.so") +(load-shared-object #+darwin "/usr/X11R6/lib/libfreetype.6.dylib" #-darwin "libfreetype.so.6") (declaim (optimize (speed 3)))

1 0

[mcclim-cvs] CVS mcclim/Backends/gtkairo
by dlichteblau 02 May '06

02 May '06

Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo In directory clnet:/tmp/cvs-serv26810 Modified Files: clim-fix.lisp Log Message: ... and this turned out to be a similar but unrelated display glitch: * clim-fix.lisp (handle-repaint): Restored the first version of this method form Gilbert's original clim-fix.lisp, which draws background ink before each repaint. Doesn't seem elegant, but DEMODEMO wants it. --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/clim-fix.lisp 2006/04/30 09:24:40 1.3 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/clim-fix.lisp 2006/05/02 13:02:09 1.4 @@ -24,8 +24,20 @@ ;;; :design design) ;;; (call-next-method)) -(defmethod clim:handle-repaint :after ((s clim:sheet-with-medium-mixin) r) - (medium-force-output (sheet-medium s))) +(defmethod clim:handle-repaint :around ((s clim:sheet-with-medium-mixin) r) + (let ((m (clim:sheet-medium s)) + (r (clim:bounding-rectangle + (clim:region-intersection r (clim:sheet-region s))))) + (unless (eql r clim:+nowhere+) + ;; Test case: Start CLIM-DEMO::DEMODEMO and watch the header string. + ;; At the beginning, the text is nicely antialiased. Then start any + ;; demo and move the new window around over the header. As the + ;; header gets exposed again, the text is apparently redrawn + ;; multiple times and looks like crap. This fixes it: + (clim:with-drawing-options (m :clipping-region r) + (clim:draw-design m r :ink clim:+background-ink+) + (call-next-method s r))) + (medium-force-output m))) ;; cairo hack: adjust rectangle coordinates by half a pixel each to avoid ;; anti-aliasing (and follow-up output artifacts)

1 0

[mcclim-cvs] CVS mcclim/Backends/gtkairo
by dlichteblau 02 May '06

02 May '06

Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo In directory clnet:/tmp/cvs-serv25592 Modified Files: event.lisp gtk-ffi.lisp BUGS Log Message: Fixed those phantom gtkairo display glitches: * event.lisp (expose-handler): Clear the affected area using gdk. * gtk-ffi.lisp (gdk_window_clear_area): New function. --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/event.lisp 2006/05/01 21:21:39 1.5 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/event.lisp 2006/05/02 13:00:11 1.6 @@ -130,6 +130,7 @@ (define-signal expose-handler (widget event) (enqueue (cffi:with-foreign-slots ((x y width height) event gdkeventexpose) + (gdk_window_clear_area (gtkwidget-gdkwindow widget) x y width height) (make-instance 'window-repaint-event :timestamp (get-internal-real-time) :sheet (widget->sheet widget *port*) --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gtk-ffi.lisp 2006/04/23 17:36:28 1.4 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gtk-ffi.lisp 2006/05/02 13:00:12 1.5 @@ -674,6 +674,14 @@ (window :pointer) (title :string)) +(defcfun "gdk_window_clear_area" + :void + (window :pointer) + (x :int) + (y :int) + (width :int) + (height :int)) + (defconstant GDK_EXPOSURE_MASK (ash 1 1)) (defconstant GDK_POINTER_MOTION_MASK (ash 1 2)) (defconstant GDK_POINTER_MOTION_HINT_MASK (ash 1 3)) --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/BUGS 2006/05/01 21:21:38 1.7 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/BUGS 2006/05/02 13:00:12 1.8 @@ -46,7 +46,7 @@ The frontend specifies background colors (*3d-normal-color*) where the gtk theme should take precedence. -9. +(FIXED) 9. Sometimes repaint seems to draw again without clearing the window first. For example, the header in demodemo gets darker with every repaint, until the originally antialiased text looks really crappy.

1 0

[mcclim-cvs] CVS mcclim/Backends/gtkairo
by dlichteblau 01 May '06

01 May '06

Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo In directory clnet:/tmp/cvs-serv4825 Modified Files: BUGS event.lisp frame-manager.lisp medium.lisp Log Message: * medium.lisp (apply-flipping-ink): Unref the temporary pixmap ("oops"). * frame-manager.lisp (frob-stupid-type-spec): Allow specs like :VRACK-PANE. * event.lisp (button-handler): Ungrab the pointer in button press events, allowing CLIM menu panes to works. --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/BUGS 2006/04/30 10:31:15 1.6 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/BUGS 2006/05/01 21:21:38 1.7 @@ -10,7 +10,7 @@ (FIXED) 3. The text cursor does not show the correct horizontal position in climacs. -4. +(FIXED) 4. Menus appear but do not really work. Worth fixing, even though we would rather want native menus in the long term. @@ -89,3 +89,9 @@ design.lisp. See comment there. clim-fix tried to reinstate it, but that doesn't work for gsharp when drawing ellipses. Find out what this is all about. + +18. + Flipping ink optimization: As suggested by Gilbert, make the temporary + pixmap just large enough for the clipping region and the currently + visible part of a (scrolled) sheet. Right now we're copying the + entire window around, which seems excessive. --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/event.lisp 2006/04/23 17:36:28 1.4 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/event.lisp 2006/05/01 21:21:39 1.5 @@ -221,6 +221,9 @@ (define-signal button-handler (widget event) (cffi:with-foreign-slots ((type time button state x y x_root y_root) event gdkeventbutton) + (when (eql type GDK_BUTTON_PRESS) + ;; Hack alert: Menus don't work without this. + (gdk_pointer_ungrab GDK_CURRENT_TIME)) (enqueue (make-instance (if (eql type GDK_BUTTON_PRESS) 'pointer-button-press-event --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/frame-manager.lisp 2006/04/23 17:36:28 1.2 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/frame-manager.lisp 2006/05/01 21:21:39 1.3 @@ -31,7 +31,9 @@ (or (find-class (intern (concatenate 'string (symbol-name type) "-PANE") :climi) nil) - (find-class type)))) + (if (keywordp type) + (find-class (intern (symbol-name type) :climi)) + (find-class type))))) (defmethod make-pane-1 ((fm gtkairo-frame-manager) (frame application-frame) type &rest initargs) --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/medium.lisp 2006/04/23 17:36:28 1.5 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/medium.lisp 2006/05/01 21:21:39 1.6 @@ -226,7 +226,9 @@ (cairo_surface_mark_dirty to-surface)) (cairo_destroy (cr medium)) (setf (cr medium) (flipping-original-cr medium)) - (setf (flipping-original-cr medium) nil)) + (setf (flipping-original-cr medium) nil) + (gdk_drawable_unref (flipping-pixmap medium)) + (setf (flipping-pixmap medium) nil)) (defmethod sync-ink (medium (design climi::standard-flipping-ink)) (setf (flipping-original-cr medium) (cr medium))

1 0