mcclim-devel

mcclim-devel@common-lisp.net

820 discussions

[mcclim-devel] A few questions
by Žiga Lenarčič 04 Nov '09

04 Nov '09

Hi McCLIM developers! I have a few questions, in no particular order: * I've started 'theming' McCLIM to give it a more modern look (a darker look).. I've started with /Looks/pixie.lisp and went from there. Is pixie.lisp an example of 'correct' skinning process - effectively creating new classes with overridden methods for various things or is it better to just redefine the handle-redraw methods of original gadgets and be done with it? Pixie has a problem for instance - mouse wheel scrolling doesn't work, because it reimplements scrolling logic implemented in gadgets.lisp or somewhere else. Wouldn't it be more correct to use the 'default' logic and only redefine handle-repaint methods, if change in functionality isn't needed? * what is the correct way to add my own widgets? I assume I should look at gadgets.lisp and start from there. Are new widgets welcome in the main McCLIM source tree or is McCLIM closely following some CLIM specification and doesn't want to go beyond that? * I'm using CLX backend and default/freetype/truetype font renedering. I've noticed that with default X11 font rendering, the usual textstyle (sans-serif, roman) is much more readable at size :small, than :normal. For antialiased fonts, :normal works great. Perhaps the default fontsize should be :small (or mcclim's clx default font render should just interpret :normal as :small) - clim- examples applications would look nicer out of the box and I wouldn't need to write cases in my app (if ''freetype'' :normal :small) to make stuff look nice. I think this has been mentioned before.. * right now McCLIMs 'textfield' is vastly different from text fields in other toolkits. I think we could conform better if the caret was just a line (not a block), if the caret blinked properly, if there was caret positioning via mouse click and if there was selection possible. I don't know how other McCLIM users feel about this - but if I added these features, would they be added to McCLIM? Would it be better to add a new 'gadget' for this 'modern' text field stuff? Regards, Ziga

2 1

[mcclim-devel] [PATCH] In display-exit-boxes present Cancel button as an abort-button.
by Kilian Sprotte 16 Oct '09

16 Oct '09

Hello! I am attaching a small fix for the Cancel button in accepting-values dialogs. Currently, it behaves like the Ok button (instead of aborting a command, it will let it run). WITH-OUTPUT-AS-PRESENTATION was wrapped twice around the Cancel button, so that's what I cleaned up. Cheers, Kilian Sprotte

2 1

[mcclim-devel] Title panes
by Robert Swindells 07 Oct '09

07 Oct '09

There doesn't seem to be a display-title method for the title-pane class, is this deliberate ? The examples in the Franz CLIM User Guide imply to me that you should be able to use this pane type without needing to supply a display-function for it. Robert Swindells

3 4

[mcclim-devel] A stab at MEDIUM-DRAW-IMAGE-DESIGN* implementation for gtkairo
by Samium Gromoff 02 Sep '09

02 Sep '09

Dear list, the included patch (also available in git[1]) provides an initial attempt at implementation of image design drawing for gtkairo. It's lacking masking support, as well as might leak memory (I'm not sure why cairo doesn't let me to destroy the surface I myself has created, for instance), so any comments would be very appreciated. diff --git a/Backends/gtkairo/cairo.lisp b/Backends/gtkairo/cairo.lisp index 1db8406..0600912 100644 --- a/Backends/gtkairo/cairo.lisp +++ b/Backends/gtkairo/cairo.lisp @@ -534,6 +534,103 @@ (cairo_move_to cr (df x) (df (+ y y2)))) (pango_cairo_show_layout cr layout)))))) +;; Stolen from the CLX backend. +(defmethod climi::medium-draw-image-design* + ((medium cairo-medium) (design climi::rgb-image-design) x y) + (destructuring-bind (&optional surface buffer mask) + (slot-value design 'climi::medium-data) + (unless surface + (let* ((image (slot-value design 'climi::image))) + (setf (values surface buffer) (image-to-cairosurface image)) + (when (climi::image-alpha-p image) + (error "~@<Drawing of images with alpha component is not supported.~:@>")) + (setf (slot-value design 'climi::medium-data) (list surface buffer mask)))) + (when mask + (error "~@<A mask in your image design.~:@>")) + (with-medium (medium) + (multiple-value-bind (x y) + (transform-position + (sheet-device-transformation (medium-sheet medium)) + x y) + (setf x (float x 0d0)) + (setf y (float y 0d0)) + (with-slots (cr) medium + (cairo_set_source_surface cr surface x y) + (cond + #+ (or) + (mask + (xlib:with-gcontext (gcontext + :clip-mask mask + :clip-x x + :clip-y y) + (xlib:copy-area pixmap gcontext 0 0 width height + da x y))) + (t + (cairo_paint cr)))))))) + +(defmethod climi::medium-free-image-design + ((medium cairo-medium) (design climi::rgb-image-design)) + (destructuring-bind (&optional surface buffer mask) + (slot-value design 'climi::medium-data) + (when surface + #+ (or) + ;; This one bites, no idea why. + (cairo_destroy surface) + (cffi:foreign-free buffer) + (setf (slot-value design 'climi::medium-data) nil)))) + +;; Was: CLX/compute-rgb-image-mask +#+ (or) +(defun compute-rgb-image-mask (drawable image) + (let* ((width (climi::image-width image)) + (height (climi::image-height image)) + (bitmap (xlib:create-pixmap :drawable drawable + :width width + :height height + :depth 1)) + (gc (xlib:create-gcontext :drawable bitmap + :foreground 1 + :background 0)) + (idata (climi::image-data image)) + (xdata (make-array (list height width) + :element-type '(unsigned-byte 1))) + (im (xlib:create-image :width width + :height height + :depth 1 + :data xdata)) ) + (dotimes (y width) + (dotimes (x height) + (if (> (aref idata x y) #x80000000) + (setf (aref xdata x y) 0) + (setf (aref xdata x y) 1)))) + (unless (or (>= width 2048) (>= height 2048)) ;### CLX breaks here + (xlib:put-image bitmap gc im :src-x 0 :src-y 0 + :x 0 :y 0 :width width :height height + :bitmap-p nil)) + (xlib:free-gcontext gc) + bitmap)) + +;; Was: CLX/image-to-ximage +(defun image-to-cairosurface (image) + (let* ((width (climi::image-width image)) + (height (climi::image-height image)) + (idata (climi::image-data image)) + (stride (cairo_format_stride_for_width :rgb24 width)) + (cairodata (cffi:foreign-alloc :uint8 :count (* stride height)))) + (declare (type (simple-array (unsigned-byte 32) (* *)) idata)) + (loop :for row-offset :from 0 :by stride + :for y :from 0 :below height + :do (loop :for offset :from row-offset :by 4 + :for x :from 0 :below width + :do (let ((px (aref idata y x))) + (setf (cffi:mem-ref cairodata :uint32 offset) + (dpb (ldb (byte 8 0) px) (byte 8 16) + (dpb (ldb (byte 8 8) px) (byte 8 8) + (dpb (ldb (byte 8 16) px) (byte 8 0) + 0))))))) + (values (cairo_image_surface_create_for_data cairodata :rgb24 width height stride) + cairodata))) + (defmethod medium-finish-output ((medium cairo-medium)) (with-medium (medium) (when (cr medium) diff --git a/Backends/gtkairo/ffi.lisp b/Backends/gtkairo/ffi.lisp index 1fb7207..993e6ab 100644 --- a/Backends/gtkairo/ffi.lisp +++ b/Backends/gtkairo/ffi.lisp @@ -333,6 +333,12 @@ (arg0 :pointer) ;cairo_font_face_t * ) +(defcfun "cairo_format_stride_for_width" + :int + (arg0 cairo_format_t) + (arg1 :int) + ) + (defcfun "cairo_get_font_face" :pointer (arg0 :pointer) ;cairo_t * @@ -643,6 +649,14 @@ (arg4 :double) ;double ) +(defcfun "cairo_set_source_surface" + :void + (arg0 :pointer) ;cairo_t * + (arg1 :pointer) ;cairo_surface_t * + (arg2 :double) + (arg3 :double) + ) + (defcfun "cairo_set_tolerance" :void (arg0 :pointer) ;cairo_t * regards, Samium Gromoff -- 1. git://git.feelingofgreen.ru/mcclim, the 'gtkairo-mdid' branch _deepfire-at-feelingofgreen.ru O< ascii ribbon campaign - stop html mail - www.asciiribbon.org

1 0

[mcclim-devel] PNG read support for McCLIM.
by Samium Gromoff 01 Sep '09

01 Sep '09

Good day folks, the included patch (also available via git[1]) adds a bridge to PNG-READ[2] by Jakub Higersberger, adding pure CL PNG support to McCLIM. diff --git a/Extensions/Bitmap-formats/png.lisp b/Extensions/Bitmap-formats/png.lisp new file mode 100644 index 0000000..3c75b13 --- /dev/null +++ b/Extensions/Bitmap-formats/png.lisp @@ -0,0 +1,44 @@ +;;; -*- Mode: Lisp; Package: MCCLIM-IMAGES -*- + +;;; (c) copyright 2009 by +;;; Samium Gromoff (_deepfire(a)feelingofgreen.ru) + +;;; This library is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU Library General Public +;;; License as published by the Free Software Foundation; either +;;; version 2 of the License, or (at your option) any later version. +;;; +;;; This library is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Library General Public License for more details. +;;; +;;; You should have received a copy of the GNU Library General Public +;;; License along with this library; if not, write to the +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;;; Boston, MA 02111-1307 USA. + +(in-package :clim-internals) + +(define-bitmap-file-reader :png (image-pathname) + (let* ((png-state (png-read:read-png-file image-pathname)) + (data (png-read:image-data png-state)) + (depth (png-read:bit-depth png-state)) + (height (png-read:height png-state)) + (width (png-read:width png-state)) + (array (make-array (list height width) :element-type '(unsigned-byte 32)))) + (unless (member depth '(8 32)) + (error "~@<PNG-encoded images with bit depth ~D are not supported. The only supported bit depths are 8 and 32.~:@>" depth)) + (dotimes (y height) + (dotimes (x width) + (case depth + ((8 32) + (let ((red (aref data x y 0)) + (green (aref data x y 1)) + (blue (aref data x y 2))) + (setf (aref array y x) + (dpb red (byte 8 0) + (dpb green (byte 8 8) + (dpb blue (byte 8 16) + (dpb (- 255 0) (byte 8 24) 0)))))))))) + array)) diff --git a/mcclim-png-bitmaps.asd b/mcclim-png-bitmaps.asd new file mode 100644 index 0000000..0a63f70 --- /dev/null +++ b/mcclim-png-bitmaps.asd @@ -0,0 +1,24 @@ +;;; -*- Mode: Lisp -*- + +;;; (c) copyright 2009 by +;;; Samium Gromoff (_deepfire(a)feelingofgreen.ru) +;;; +;;; This library is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU Library General Public +;;; License as published by the Free Software Foundation; either +;;; version 2 of the License, or (at your option) any later version. +;;; +;;; This library is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Library General Public License for more details. +;;; +;;; You should have received a copy of the GNU Library General Public +;;; License along with this library; if not, write to the +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;;; Boston, MA 02111-1307 USA. + +(asdf:defsystem :mcclim-png-bitmaps + :description "Support for PNG images in McCLIM bitmap reading functions." + :depends-on (:mcclim :png-read) + :components ((:file "png" :pathname #P"Extensions/Bitmap-formats/png"))) regards, Samium Gromoff -- 1. git://git.feelingofgreen.ru/mcclim, branch 'png-bitmaps' 2. git://github.com/Ramarren/png-read.git _deepfire-at-feelingofgreen.ru O< ascii ribbon campaign - stop html mail - www.asciiribbon.org

1 0

Re: [mcclim-devel] how to subclass a pane in good style?
by Samium Gromoff 01 Sep '09

01 Sep '09

Good day folks, the included patch (also available via git[1]) adds a bridge to PNG-READ by Jakub Higersberger, adding pure CL PNG support to McCLIM. diff --git a/Extensions/Bitmap-formats/png.lisp b/Extensions/Bitmap-formats/png.lisp new file mode 100644 index 0000000..3c75b13 --- /dev/null +++ b/Extensions/Bitmap-formats/png.lisp @@ -0,0 +1,44 @@ +;;; -*- Mode: Lisp; Package: MCCLIM-IMAGES -*- + +;;; (c) copyright 2009 by +;;; Samium Gromoff (_deepfire(a)feelingofgreen.ru) + +;;; This library is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU Library General Public +;;; License as published by the Free Software Foundation; either +;;; version 2 of the License, or (at your option) any later version. +;;; +;;; This library is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Library General Public License for more details. +;;; +;;; You should have received a copy of the GNU Library General Public +;;; License along with this library; if not, write to the +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;;; Boston, MA 02111-1307 USA. + +(in-package :clim-internals) + +(define-bitmap-file-reader :png (image-pathname) + (let* ((png-state (png-read:read-png-file image-pathname)) + (data (png-read:image-data png-state)) + (depth (png-read:bit-depth png-state)) + (height (png-read:height png-state)) + (width (png-read:width png-state)) + (array (make-array (list height width) :element-type '(unsigned-byte 32)))) + (unless (member depth '(8 32)) + (error "~@<PNG-encoded images with bit depth ~D are not supported. The only supported bit depths are 8 and 32.~:@>" depth)) + (dotimes (y height) + (dotimes (x width) + (case depth + ((8 32) + (let ((red (aref data x y 0)) + (green (aref data x y 1)) + (blue (aref data x y 2))) + (setf (aref array y x) + (dpb red (byte 8 0) + (dpb green (byte 8 8) + (dpb blue (byte 8 16) + (dpb (- 255 0) (byte 8 24) 0)))))))))) + array)) diff --git a/mcclim-png-bitmaps.asd b/mcclim-png-bitmaps.asd new file mode 100644 index 0000000..0a63f70 --- /dev/null +++ b/mcclim-png-bitmaps.asd @@ -0,0 +1,24 @@ +;;; -*- Mode: Lisp -*- + +;;; (c) copyright 2009 by +;;; Samium Gromoff (_deepfire(a)feelingofgreen.ru) +;;; +;;; This library is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU Library General Public +;;; License as published by the Free Software Foundation; either +;;; version 2 of the License, or (at your option) any later version. +;;; +;;; This library is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Library General Public License for more details. +;;; +;;; You should have received a copy of the GNU Library General Public +;;; License along with this library; if not, write to the +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;;; Boston, MA 02111-1307 USA. + +(asdf:defsystem :mcclim-png-bitmaps + :description "Support for PNG images in McCLIM bitmap reading functions." + :depends-on (:mcclim :png-read) + :components ((:file "png" :pathname #P"Extensions/Bitmap-formats/png"))) regards, Samium Gromoff -- 1. git://git.feelingofgreen.ru/mcclim, branch 'png-bitmaps' _deepfire-at-feelingofgreen.ru O< ascii ribbon campaign - stop html mail - www.asciiribbon.org

1 0

Re: [mcclim-devel] is there a tree-panel available?
by Alexander Ekart 04 Aug '09

04 Aug '09

On Mon, 03 Aug 2009 09:17:47 -0700 "Fred M. Gilham" <gilham(a)AI.SRI.COM> wrote: > Anyway I've attached some code that I think does what you want, from > an old repository of CLIM code. It will probably require some > hacking to make work. > > Good luck. > > -- Fred Gilham > thanks .. but it really does require some hacking. i'm not familier (enough) with the mcclim-internals. when trying to run the example (view-directory "~") as suggested in the comments, i get the following error: #<COMMAND-TABLE-NOT-FOUND GROUP-VIEWER {B113131}> [Condition of type COMMAND-TABLE-NOT-FOUND] i really come to like mcclim, but unfortunately i dont have time to hack around deep down. alex

4 8

[mcclim-devel] is there a tree-panel available?
by Alexander Ekart 03 Aug '09

03 Aug '09

hi, is there something like a tree-panel available for use with mcclim? i saw that there is a class named tree-with-cross-edges in the experimental subfolder of the mcclim directory tree, but it doesnt seem to be useful (by now). kind regards, alex

4 5

[mcclim-devel] malformed DX declations (two missing unquotes in DEFINE-INVOKE-WITH)
by Nikodemus Siivola 31 Jul '09

31 Jul '09

Patch attached. Cheers, -- Nikodemus

2 1

[mcclim-devel] STREAM-FINISH-OUTPUT missing on STANDARD-EXTENDED-OUTPUT-STREAM
by Nikodemus Siivola 31 Jul '09

31 Jul '09

Attached patch makes life better, making code that relies on FINISH-OUTPUT to flush streams to work on eg. interactor panes. Cheers, -- Nikodemus

2 1

← Newer
1
...
14
15
16
17
18
19
20
...
82
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-devel