mcclim-cvs

mcclim-cvs@common-lisp.net

1697 discussions

[mcclim-cvs] CVS mcclim/Backends/Graphic-Forms
by junrue 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms In directory clnet:/tmp/cvs-serv21935 Modified Files: port.lisp Log Message: assign event timestamp for each event as it is queued; disable various debug output --- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/port.lisp 2007/03/18 14:29:00 1.5 +++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/port.lisp 2007/09/02 19:00:07 1.6 @@ -111,6 +111,7 @@ :initform (make-instance 'gfw-pointer)))) (defun enqueue (port event) + (setf (slot-value event 'climi::timestamp) (gfw:obtain-event-time)) (push event (events port))) (defvar *sheet-dispatcher* (make-instance 'sheet-event-dispatcher)) @@ -169,7 +170,6 @@ ;;; (defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gf-mirror-mixin) region) - (gfs::debug-format "~a~%" region) (setf (gfw:size mirror) (gfs:make-size :width (round-coordinate (bounding-rectangle-width region)) :height (round-coordinate (bounding-rectangle-height region))))) @@ -180,6 +180,10 @@ (defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gfw-menu-item) region) (declare (ignore port mirror region))) +(defmethod port-set-mirror-transformation ((port graphic-forms-port) (mirror gfw-top-level) transformation) + ;; FIXME: does McCLIM really need to set position of top-level window's? + ()) + (defmethod port-set-mirror-transformation ((port graphic-forms-port) (mirror gf-mirror-mixin) transformation) (multiple-value-bind (x y) (transform-position transformation 0 0) @@ -201,7 +205,7 @@ ;;; (defmethod realize-mirror ((port graphic-forms-port) (sheet climi::top-level-sheet-pane)) - (gfs::debug-format "realizing ~a~%" (class-of sheet)) + #+nil (gfs::debug-format "realizing ~a~%" (class-of sheet)) (let* ((mirror (make-instance 'gfw-top-level :sheet sheet :dispatcher *sheet-dispatcher* @@ -211,7 +215,6 @@ (gfw::put-widget (gfw::thread-context) menu-bar) (setf (gfw:menu-bar mirror) menu-bar)) (climi::port-register-mirror (port sheet) sheet mirror) - (port-enable-sheet port sheet) mirror)) (defmethod destroy-mirror ((port graphic-forms-port) (sheet climi::top-level-sheet-pane)) @@ -220,22 +223,13 @@ (gfs:dispose mirror))) (defmethod realize-mirror ((port graphic-forms-port) (sheet mirrored-sheet-mixin)) - (gfs::debug-format "---> realizing ~a~%" (class-of sheet)) (let* ((parent (sheet-mirror (sheet-parent sheet))) - (req (compose-space sheet)) (mirror (make-instance 'gfw-panel :sheet sheet :dispatcher *sheet-dispatcher* :style '() ;was: '(:border) :parent parent))) - (setf (gfw:size mirror) (requirement->size req)) - (multiple-value-bind (x y) - (transform-position (climi::%sheet-mirror-transformation sheet) 0 0) - (setf (gfw:location mirror) - (gfs:make-point :x (round-coordinate x) - :y (round-coordinate y)))) (climi::port-register-mirror (port sheet) sheet mirror) - (port-enable-sheet port sheet) mirror)) (defmethod destroy-mirror ((port graphic-forms-port) (sheet mirrored-sheet-mixin)) @@ -268,15 +262,9 @@ (declare (ignore wait-function timeout)) ; FIXME (or (pop (events port)) (cffi:with-foreign-object (msg-ptr 'gfs::msg) - (let ((gm (gfs::get-message msg-ptr (cffi:null-pointer) 0 0))) - (cffi:with-foreign-slots ((gfs::hwnd gfs::message gfs::wparam gfs::lparam - gfs::time gfs::pnt) - msg-ptr gfs::msg) - (unless (gfw::default-message-filter gm msg-ptr) - (dolist (event (events port)) - (setf (slot-value event 'climi::timestamp) gfs::time))))) - (setf (events port) (nreverse (events port))) - (pop (events port))))) + (let ((gm (gfs::get-message msg-ptr (cffi:null-pointer) 0 0))) + (gfw::default-message-filter gm msg-ptr)) + (pop (events port))))) (defmethod process-next-event :after ((port graphic-forms-port) &key wait-function (timeout nil)) (declare (ignore wait-function timeout)) @@ -288,7 +276,7 @@ :orientation orientation :units units)) (defmethod make-medium ((port graphic-forms-port) sheet) - (gfs::debug-format "creating medium for ~a~%" (class-of sheet)) + #+nil (gfs::debug-format "creating medium for ~a~%" (class-of sheet)) (make-instance 'graphic-forms-medium :port port :sheet sheet)) (defmethod text-style-mapping @@ -301,18 +289,18 @@ ()) (defmethod port-character-width ((port graphic-forms-port) text-style char) - (gfs::debug-format "port-character-width called: ~a ~c~%" text-style char)) + #+nil (gfs::debug-format "port-character-width called: ~a ~c~%" text-style char)) (defmethod port-string-width ((port graphic-forms-port) text-style string &key (start 0) end) - (gfs::debug-format "port-string-width called: ~a ~c~%" text-style string)) + #+nil (gfs::debug-format "port-string-width called: ~a ~c~%" text-style string)) (defmethod port-mirror-width ((port graphic-forms-port) (sheet mirrored-sheet-mixin)) - (gfs::debug-format "port-mirror-width called for ~a~%" sheet) + #+nil (gfs::debug-format "port-mirror-width called for ~a~%" sheet) (let ((mirror (climi::port-lookup-mirror port sheet))) (gfs:size-width (gfw:size mirror)))) (defmethod port-mirror-height ((port graphic-forms-port) (sheet mirrored-sheet-mixin)) - (gfs::debug-format "port-mirror-height called for ~a~%" sheet) + #+nil (gfs::debug-format "port-mirror-height called for ~a~%" sheet) (let ((mirror (climi::port-lookup-mirror port sheet))) (gfs:size-height (gfw:size mirror)))) @@ -371,10 +359,6 @@ (defmethod port-ungrab-pointer ((port graphic-forms-port) pointer sheet) ()) -(defmethod distribute-event :around ((port graphic-forms-port) event) - ; (gfs::debug-format "distribute-event -> port: ~a event: ~a~%" port event) - (call-next-method)) - (defmethod set-sheet-pointer-cursor ((port graphic-forms-port) sheet cursor) ()) @@ -447,19 +431,19 @@ :width (gfs:size-width size) :height (gfs:size-height size))) -(defmethod gfw:event-move ((self sheet-event-dispatcher) mirror pnt) - (enqueue (port self) - (generate-configuration-event mirror pnt (gfw:client-size mirror)))) - (defmethod gfw:event-resize ((self sheet-event-dispatcher) mirror size type) (declare (ignore type)) (let ((sheet (sheet mirror))) (if (and sheet (subtypep (class-of sheet) 'sheet-with-medium-mixin)) - (let ((medium (climi::sheet-medium sheet))) - (if (and medium (image-of medium)) - (resize-medium-buffer medium size)))) - (enqueue (port self) - (generate-configuration-event mirror (gfw:location mirror) size)))) + (let ((medium (climi::sheet-medium sheet))) + (when (and medium (image-of medium)) + (resize-medium-buffer medium size))))) + (enqueue (port self) + (generate-configuration-event mirror (gfw:location mirror) size))) + +(defmethod gfw:event-move ((self sheet-event-dispatcher) mirror pnt) + (enqueue (port self) + (generate-configuration-event mirror pnt (gfw:size mirror)))) (defclass gadget-event (window-event) ()) (defclass button-pressed-event (gadget-event) ())

1 0

[mcclim-cvs] CVS mcclim
by afuchs 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv21392 Modified Files: mcclim.asd Log Message: Update mcclim versions to 0.9.6-dev. This ends the freeze period. Happy hacking, McCLIM hackers. --- /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/09/02 17:53:24 1.59 +++ /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/09/02 18:55:28 1.60 @@ -465,7 +465,7 @@ ;;; The actual McCLIM system that people should to use in their ASDF ;;; package dependency lists. (defsystem :mcclim - :version "0.9.5" + :version "0.9.6-dev" :depends-on (:clim-looks)) (defmethod perform :after ((op load-op) (c (eql (find-system :clim))))

1 0

[mcclim-cvs] CVS mcclim/Doc
by afuchs 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Doc In directory clnet:/tmp/cvs-serv21392/Doc Modified Files: mcclim.texi Log Message: Update mcclim versions to 0.9.6-dev. This ends the freeze period. Happy hacking, McCLIM hackers. --- /project/mcclim/cvsroot/mcclim/Doc/mcclim.texi 2007/09/02 17:53:24 1.9 +++ /project/mcclim/cvsroot/mcclim/Doc/mcclim.texi 2007/09/02 18:55:28 1.10 @@ -6,7 +6,7 @@ @setfilename mcclim @settitle McCLIM User's Manual -@set MCCLIMVERSION 0.9.5 +@set MCCLIMVERSION 0.9.6-dev @copying Copyright @copyright{} 2004,2005,2006 the McCLIM hackers.

1 0

[mcclim-cvs] CVS mcclim
by afuchs 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv20858 Modified Files: NEWS Log Message: Remove all mention of the scigraph system from release notes. --- /project/mcclim/cvsroot/mcclim/NEWS 2007/09/02 17:53:24 1.24 +++ /project/mcclim/cvsroot/mcclim/NEWS 2007/09/02 18:50:31 1.25 @@ -1,5 +1,5 @@ * Changes in mcclim-0.9.5 relative to 0.9.4: -** Installation: the systems clim-listener, scigraph, clim-examples, +** Installation: the systems clim-listener, clim-examples, and clouseau can now be loaded without loading the system mcclim first. Users with existing McCLIM installations should use the provided script:

1 0

[mcclim-cvs] CVS mcclim/ReleaseNotes
by afuchs 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim/ReleaseNotes In directory clnet:/tmp/cvs-serv20858/ReleaseNotes Modified Files: 0-9-5-eastern-orthodox-liturgical-new-year Log Message: Remove all mention of the scigraph system from release notes. --- /project/mcclim/cvsroot/mcclim/ReleaseNotes/0-9-5-eastern-orthodox-liturgical-new-year 2007/09/02 18:08:34 1.1 +++ /project/mcclim/cvsroot/mcclim/ReleaseNotes/0-9-5-eastern-orthodox-liturgical-new-year 2007/09/02 18:50:31 1.2 @@ -29,7 +29,7 @@ From the NEWS file: * Changes in mcclim-0.9.5 relative to 0.9.4: -** Installation: the systems clim-listener, scigraph, clim-examples, +** Installation: the systems clim-listener, clim-examples, and clouseau can now be loaded without loading the system mcclim first. Users with existing McCLIM installations should use the provided script:

1 0

[mcclim-cvs] CVS mcclim
by afuchs 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv20400 Removed Files: scigraph.asd Log Message: Move the scigraph.asd to Apps/Scigraph again. Not a good idea to automatically load a system that doesn't compile.

1 0

[mcclim-cvs] CVS mcclim/Apps/Scigraph
by afuchs 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Apps/Scigraph In directory clnet:/tmp/cvs-serv20400/Apps/Scigraph Added Files: scigraph.asd Log Message: Move the scigraph.asd to Apps/Scigraph again. Not a good idea to automatically load a system that doesn't compile. --- /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph.asd 2007/09/02 18:45:44 NONE +++ /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph.asd 2007/09/02 18:45:44 1.1 ;;; -*- lisp -*- (defpackage :scigraph.system (:use :cl :asdf)) (in-package :scigraph.system) ;;; This won't load in SBCL, either. I have really crappy code to ;;; extract dependency information from :serial t ASDF systems, but ;;; this comment is too narrow to contain it. (defsystem :scigraph :depends-on (:mcclim) ;; The DWIM part of SCIGRAPH :serial t :components ( (:file "dwim/package") (:file "dwim/feature-case") (:file "dwim/macros") (:file "dwim/tv") (:file "dwim/draw") (:file "dwim/present") (:file "dwim/extensions") (:file "dwim/wholine") (:file "dwim/export") ;; The Scigraph part (:file "scigraph/package") (:file "scigraph/copy") (:file "scigraph/dump") (:file "scigraph/duplicate") (:file "scigraph/random") (:file "scigraph/menu-tools") (:file "scigraph/basic-classes") (:file "scigraph/draw") (:file "scigraph/mouse") (:file "scigraph/color") (:file "scigraph/basic-graph") (:file "scigraph/graph-mixins") (:file "scigraph/axis") (:file "scigraph/moving-object") (:file "scigraph/symbol") (:file "scigraph/graph-data") (:file "scigraph/legend") (:file "scigraph/graph-classes") (:file "scigraph/present") (:file "scigraph/annotations") (:file "scigraph/annotated-graph") (:file "scigraph/contour") (:file "scigraph/equation") (:file "scigraph/popup-accept") (:file "scigraph/popup-accept-methods") (:file "scigraph/duplicate-methods") (:file "scigraph/frame") (:file "scigraph/export") (:file "scigraph/demo-frame")))

1 0

[mcclim-cvs] CVS mcclim/ReleaseNotes
by afuchs 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim/ReleaseNotes In directory clnet:/tmp/cvs-serv13359 Added Files: 0-9-5-eastern-orthodox-liturgical-new-year Log Message: Add the actual release notes for 0.9.5 --- /project/mcclim/cvsroot/mcclim/ReleaseNotes/0-9-5-eastern-orthodox-liturgical-new-year 2007/09/02 18:08:34 NONE +++ /project/mcclim/cvsroot/mcclim/ReleaseNotes/0-9-5-eastern-orthodox-liturgical-new-year 2007/09/02 18:08:34 1.1 RELEASE NOTES FOR McCLIM 0.9.5, "Eastern Orthodox Liturgical New Year": Compatibility ============= This release was tested and found to work on the following implementations: * SBCL * OpenMCL * CLISP (requires "Telent" CLX) * Allegro Common Lisp 8.0 in ANSI Mode In our tests, this release of McCLIM did not work on the following implementations: * CMUCL (at the time of this release, the released CMUCL has a bug that prevents successful loading of McCLIM; CMUCL 19d + patch 1 and the 2006-12 snapshot or later contain a fix for this problem) Also, McCLIM currently does not support lisps with case-sensitive readers (Allegro CL "modern mode" and lower-case Scieneer CL). Changes in mcclim-0.9.5 "Eastern Orthodox Liturgical New Year" relative to 0.9.4: ============================================================== >From the NEWS file: * Changes in mcclim-0.9.5 relative to 0.9.4: ** Installation: the systems clim-listener, scigraph, clim-examples, and clouseau can now be loaded without loading the system mcclim first. Users with existing McCLIM installations should use the provided script: ./symlink-asd-files.sh /path/to/asdf-central-registry/ ** New extension: tab-layout. This extension allows keeping a stack of panes whose foreground pane is controlled by a tab bar. This layout can be customized in backends and frame managers. For examples, see the gtkairo backend and the pixie frame manager. ** New extension function: SHEET-RGB-IMAGE: makes a screenshot of a sheet in the CLX backend. (Supported on truecolor visuals only for now.) ** New experimental extension: tree-with-cross-edges are an extension to the graph formatter. ** New experimental backend: clim-graphic-forms: native widgets on Windows. This backend is still very experimental (it doesn't run demos yet). ** New inspector feature: The inspector now displays more useful information about hash tables and generic functions. ** Specification compliance: Various layout panes no longer quite as aggressive at eating the space requirements of their children. ** Specification compliance: There is now a rudimentary implementation of NOTIFY-USER ** Usability: Text editors and text input panes now use click-to-focus. ** Improvement: the ACCEPTING-VALUES command table was renamed to ACCEPT-VALUES (as this is the name that the other clim-2 implementation uses) ** Improvement: the CLX backend should no longer cause focus stealing when an application has text-editor panes. This change comes with a rudimentary click-to-focus-keyboard widget policy. ** Improvement: define-application-frame now allows a :default-initargs option. (This is not exactly a "specification compliance" fix, as d-a-frame is not defined to accept this option.). ** Improvement: menu-choose menus now look a little prettier. ** Improvement: added more styles for bordered-output: :rounded, :ellipse ** Improvement: Toggle button values now default to NIL. ** Improvement: Frame layouts are now inherited from the frame's superclass. ** Improvement: The Lisp Syntax is much improved: now recognizes delimiter characters, and more types of Lambda lists. ** Bug fix: Bezier designs should now draw in the right place in all backends. ** Bug fix: Text in Drei no longer "walks" to the left. ** Bug fix: Drei now has better support for delimiter gestures. ** Bug fix: Partial commands now work better when invoked from the menu.

1 0

[mcclim-cvs] CVS mcclim/Doc
by afuchs 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Doc In directory clnet:/tmp/cvs-serv10073/Doc Modified Files: mcclim.texi Log Message: Prepare the 0.9.5 release * Less depressing release notes (i.e. MORE non-depressing release notes). * Web page updates for new version * mcclim.texi update for MCCLIMVERSION --- /project/mcclim/cvsroot/mcclim/Doc/mcclim.texi 2007/02/04 12:55:44 1.8 +++ /project/mcclim/cvsroot/mcclim/Doc/mcclim.texi 2007/09/02 17:53:24 1.9 @@ -6,7 +6,7 @@ @setfilename mcclim @settitle McCLIM User's Manual -@set MCCLIMVERSION 0.9.4 +@set MCCLIMVERSION 0.9.5 @copying Copyright @copyright{} 2004,2005,2006 the McCLIM hackers.

1 0

[mcclim-cvs] CVS mcclim/Webpage
by afuchs 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Webpage In directory clnet:/tmp/cvs-serv10073/Webpage Modified Files: index.html Log Message: Prepare the 0.9.5 release * Less depressing release notes (i.e. MORE non-depressing release notes). * Web page updates for new version * mcclim.texi update for MCCLIMVERSION --- /project/mcclim/cvsroot/mcclim/Webpage/index.html 2007/01/14 21:53:05 1.18 +++ /project/mcclim/cvsroot/mcclim/Webpage/index.html 2007/09/02 17:53:25 1.19 @@ -54,9 +54,9 @@ </ul> <h2><a name="downloads">Releases</a></h2> <p> - The most recent release of McCLIM is 0.9.4, in January 2007, + The most recent release of McCLIM is 0.9.5, in September 2007, available here: <a - href="downloads/mcclim-0.9.4.tar.gz">mcclim-0.9.4.tar.gz</a>. It + href="downloads/mcclim-0.9.5.tar.gz">mcclim-0.9.5.tar.gz</a>. It is also available via <a href="http://cliki.net/asdf-install">ASDF-INSTALL</a>. </p> @@ -64,6 +64,10 @@ <h2>Recent News</h2> <p> + 2007-09-02: McCLIM 0.9.5 "Eastern Orthodox Lithurgical New Year" released. + </p> + + <p> 2007-01-14: McCLIM 0.9.4 "Orthodox New Year" released. </p> @@ -128,7 +132,7 @@ </div> <br> <hr> -$Date: 2007/01/14 21:53:05 $ +$Date: 2007/09/02 17:53:25 $

1 0

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-cvs