mcclim-devel October 2008

mcclim-devel@common-lisp.net

5 participants
6 discussions

[mcclim-devel] gadget clipping in scroller panes
by Mike Watters 30 Oct '08

30 Oct '08

I'm trying to display various gadgets in a scrolling stream pane. As the attached file hopefully demonstrates, gadgets which appear below the extent of the initial viewport are clipped and not redrawn when the scoll position changes. Anyone have a recommendation for approaching this problem, and/or have I missed something obvious? Mike Watters mike-cl(a)mwatters.net (in-package :clim-user) (define-application-frame test-frame () () (:menu-bar nil) (:command-definer nil) (:panes (stuff :application :scroll-bars :vertical :display-time :command-loop :display-function 'display-stuff-pane) (interactor :interactor)) (:layouts (default (vertically (:min-width 256 :min-height 384 :width 256 :height 384) (3/4 stuff) (1/4 interactor))))) (defun display-stuff-pane (frame pane) (formatting-item-list (pane :n-columns 1 :y-spacing 10) (loop with fm = (frame-manager frame) for n below 16 do (formatting-cell (pane) (format pane "~D: " n) (with-look-and-feel-realization (fm frame) (with-output-as-gadget (pane) (make-pane 'push-button :client frame :label (format nil "~D" n)))))) (formatting-cell (pane) (format pane "foo"))) (format pane "~&bar~%")) (defun launch-test-frame () (run-frame-top-level (make-application-frame 'test-frame)))

1 0

[mcclim-devel] McClim CCL::SOCKET-CREATION-ERROR
by ブラウンスコット 29 Oct '08

29 Oct '08

I used asdf to install McClim, Clx and spatial-trees on Mac OS X 10.5 with Clozure. When I try to run the demo (clim-demo::run-test 'clim-demo::demodemo) I get the following error message: [Condition of type CCL::SOCKET-CREATION-ERROR] Restarts: 0: [ABORT-REQUEST] Abort handling SLIME request. 1: [ABORT-BREAK] Reset this process 2: [ABORT] Kill this process Backtrace: 0: (CCL:SOCKET-ERROR 'NIL "gethostbyname" 1 'T) 1: (CCL::MAKE-TCP-STREAM-SOCKET 9 ':CONNECT ':ACTIVE ':REMOTE-HOST "tmp/launch-Z04V4k/" ':REMOTE-PORT 6000) 2: (CCL::MAKE-TCP-SOCKET ':CONNECT ':ACTIVE ':REMOTE-HOST "tmp/launch-Z04V4k/" ':REMOTE-PORT 6000) 3: (CCL:MAKE-SOCKET ':CONNECT ':ACTIVE ':REMOTE-HOST "tmp/launch-Z04V4k/" ':REMOTE-PORT 6000) 4: (XLIB:OPEN-DISPLAY "tmp/launch-Z04V4k/" ':DISPLAY 0 ':PROTOCOL ':|| ':AUTHORIZATION-NAME "" ':AUTHORIZATION-DATA "") 5: (#<STANDARD-METHOD CLIM-CLX::INITIALIZE-CLX (CLIM-CLX::CLX-PORT)> #<CLX-PORT #x3000432FE70D>) 6: (#<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER (CLIM-CLX::CLX-PORT)> #<CLX-PORT #x3000432FE70D> ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 7: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL #<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER (CLIM-CLX::CLX-PORT)> . 2367656)) 8: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(NIL (#<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER #> #<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER #> #<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER #>) #<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)>) 2367656) 9: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS CLIM-CLX::CLX-PORT> '(:SERVER-PATH (:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||))) 10: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS CLIM-CLX::CLX-PORT> ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 11: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (SYMBOL)> 'CLIM-CLX::CLX-PORT ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 12: (FIND-PORT ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 13: (FIND-FRAME-MANAGER) 14: (#<STANDARD-METHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)> #<DEMODEMO #x3000432FF27D>) 15: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(#<STANDARD-METHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)> #<STANDARD-METHOD RUN-FRAME-TOP-LEVEL (APPLICATION-FRAME)>) 2367726) 16: (RUN-TEST 'DEMODEMO) 17: (CCL::CALL-CHECK-REGS 'RUN-TEST 'DEMODEMO) 18: (SWANK::EVAL-REGION "(clim-demo::run-test 'clim-demo::demodemo) " 'T) 19: ((:INTERNAL SWANK:LISTENER-EVAL)) 20: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:LISTENER-EVAL) #x3000432FF76F>) 21: (CCL::CALL-CHECK-REGS 'SWANK:LISTENER-EVAL "(clim-demo::run-test 'clim-demo::demodemo) ") 22: ((:INTERNAL SWANK::EVAL-FOR-EMACS)) 23: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x300040E057EF> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::EVAL-FOR-EMACS) #x3000432FFC0F>) 24: (FUNCALL 'SWANK::EVAL-FOR-EMACS '(SWANK:LISTENER-EVAL "(clim-demo::run-test 'clim-demo::demodemo) ") "CLIM-DEMO" 86) 25: ((:INTERNAL SWANK::HANDLE-REQUEST)) 26: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x300040E057EF> #<Compiled-function (:INTERNAL SWANK::HANDLE-REQUEST) (Non-Global) #x300040DBC96F>) 27: (SWANK::CALL-WITH-REDIRECTED-IO #<CONNECTION #x300040E7365D> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::CALL-WITH-CONNECTION) #x3000432FFC5F>) 28: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x300040E7365D> #<Compiled-function (:INTERNAL SWANK::HANDLE-REQUEST) (Non-Global) #x300040DBC96F>) 29: (SWANK::HANDLE-REQUEST #<CONNECTION #x300040E7365D>) 30: ((:INTERNAL SWANK::REPL-LOOP)) 31: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x300040E057EF> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-LOOP) #x30004323F05F>) 32: (SWANK::CALL-WITH-REDIRECTED-IO #<CONNECTION #x300040E7365D> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::CALL-WITH-CONNECTION) #x30004323F01F>) 33: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x300040E7365D> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-LOOP) #x30004323F05F>) 34: (SWANK::CALL-WITH-BINDINGS 'NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-REPL-THREAD) #x30004323F09F>) 35: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS new-repl-thread(49) [Active] #x3000432329AD> '(#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x30004323291F>)) 36: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS new-repl-thread(49) [Active] #x3000432329AD> '(#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x30004323291F>)) 37: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)) Is there a way to fix this bug? Does McClim work better with a different Lisp implementation? -------------------------------------- Enjoy MLB with MAJOR.JP! Ichiro, Matsuzaka, Matsui, and more! http://pr.mail.yahoo.co.jp/mlb/

1 0

[mcclim-devel] McCLIM and SCL: Some problems and patches...
by Rainer Joswig 26 Oct '08

26 Oct '08

Hi, I have been compiling McCLIM with Scieneer Common Lisp. Worked well - a few problems: ******************************************** Flexichain needs SCL support for weak pointers. That's easy: File utilities.lisp (defun make-weak-pointer (object) "Creates a new weak pointer which points to OBJECT. For portability reasons, OBJECT most not be NIL." (assert (not (null object))) #+:sbcl (sb-ext:make-weak-pointer object) #+:cmu (ext:make-weak-pointer object) #+:scl (ext:make-weak-pointer object) #+:clisp (ext:make-weak-pointer object) #+:allegro (let ((wv (excl:weak-vector 1))) (setf (svref wv 0) object) wv) #+:openmcl (let ((wp (%make-weak-pointer))) (setf (gethash wp *weak-pointers*) object) wp) #+:corman (ccl:make-weak-pointer object) #+:lispworks (let ((array (make-array 1))) (hcl:set-array-weak array t) (setf (svref array 0) object) array) #-(or :sbcl :cmu :clisp :allegro :openmcl :corman :lispworks :scl) object) (defun weak-pointer-value (weak-pointer) "If WEAK-POINTER is valid, returns its value. Otherwise, returns NIL." #+:sbcl (prog1 (sb-ext:weak-pointer-value weak-pointer)) #+:cmu (prog1 (ext:weak-pointer-value weak-pointer)) #+:scl (prog1 (ext:weak-pointer-value weak-pointer)) #+:clisp (prog1 (ext:weak-pointer-value weak-pointer)) #+:allegro (svref weak-pointer 0) #+:openmcl (prog1 (gethash weak-pointer *weak-pointers*)) #+:corman (ccl:weak-pointer-obj weak-pointer) #+:lispworks (svref weak-pointer 0) #-(or :sbcl :cmu :clisp :allegro :openmcl :corman :lispworks :scl) weak-pointer) #-(or :sbcl :cmu :clisp :allegro :openmcl :corman :lispworks :scl) (eval-when (:compile-toplevel :load-toplevel :execute) (warn "No support for weak pointers in this implementation. ~ Things may get big and slow.")) ******************************************** File mcclim/designs.lisp this files uses WITH-MEDIUM-OPTIONS, a macro that is later defined in some other file. The definition that uses WITH-MEDIUM-OPTIONS can be removed, since it is also defined later. ******************************************** File mcclim/presentation-defs.lisp (define-presentation-generic-function %accept accept (type-key parameters options type stream view &key)) Above definition needs to be something like this: (define-presentation-generic-function %accept accept (type-key parameters options type stream view &key &allow-other- keys)) Since there are uses of ACCEPT with :DEFAULT and :DEFAULT-TYPE . ******************************************** File: mcclim/Drei/Persistent/persistent-undo.lisp In: DEFMETHOD FLIP-UNDO-RECORD (FLEXICHAIN::WEAK-POINTER-VALUE C BUFFER) WEAK-POINTER-VALUE takes only one argument, not two. ******************************************** After fixing above problems, McCLIM compiled fine with Scieneer Common Lisp. The Listener example was running fine... Regards, Rainer Joswig Rainer Joswig, Hamburg, Germany http://lispm.dyndns.org/ mailto:joswig@lisp.de

1 0

Re: [mcclim-devel] [mcclim-cvs] CVS mcclim/Backends/CLX
by Andy Hefner 23 Oct '08

23 Oct '08

That's the secret to mcclim's high code quality - we don't just fix bugs, we fix them twice. On Thu, Oct 23, 2008 at 4:49 PM, thenriksen <thenriksen(a)common-lisp.net> wrote: > Update of /project/mcclim/cvsroot/mcclim/Backends/CLX > In directory cl-net:/tmp/cvs-serv10847/Backends/CLX > > Modified Files: > port.lisp > Log Message: > `decode-x-button-code' fix from Mike Watters. > > > --- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2008/10/20 17:31:41 1.135 > +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2008/10/23 20:49:12 1.136 > @@ -615,10 +615,11 @@ > +pointer-wheel-up+ > +pointer-wheel-down+ > +pointer-wheel-left+ > - +pointer-wheel-right+))) > - (and (> code 0) > - (<= code (length button-mapping)) > - (aref button-mapping (1- code))))) > + +pointer-wheel-right+)) > + (code (1- code))) > + (when (and (>= code 0) > + (< code (length button-mapping))) > + (aref button-mapping code)))) > > ;; From "Inter-Client Communication Conventions Manual", Version 2.0.xf86.1, > ;; section 4.1.5: > > > _______________________________________________ > mcclim-cvs mailing list > mcclim-cvs(a)common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-cvs >

1 0

[mcclim-devel] Two listener fixes for Allegro
by Willem Broekema 23 Oct '08

23 Oct '08

--- Apps/Listener/util.lisp 22 Oct 2008 23:58:12 -0000 1.27 +++ Apps/Listener/util.lisp 23 Oct 2008 19:47:38 -0000 @@ -31,7 +31,7 @@ (defun directoryp (path) "Determine if PATH designates a directory" - #+allegro (excl:file-directory-p pathname) + #+allegro (excl:file-directory-p path) #-allegro (flet ((f (x) (if (eq x :unspecific) nil x))) (if (or (f (pathname-name path)) --- Apps/Listener/dev-commands.lisp 22 Oct 2008 23:58:12 -0000 1.63 +++ Apps/Listener/dev-commands.lisp 23 Oct 2008 19:48:48 -0000 @@ -681,10 +681,9 @@ #+openmcl-partial-mop (openmcl-mop:specializer-direct-generic-functions specializer) #+scl (clos:specializer-direct-generic-functions specializer) - #-(or PCL SBCL scl clisp openmcl-partial-mop) - (error "Sorry, not supported in your CL implementation. -See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION -if you are interested in fixing this.")) + #+allegro (mop:specializer-direct-generic-functions specializer) + #-(or PCL SBCL scl clisp openmcl-partial-mop allegro) + (error "Sorry, not supported in your CL implementation. See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION if you are interested in fixing this.")) (defun class-funcs (class) (remove-duplicates

1 0

[mcclim-devel] [McCLIM patch] - a few miscellaneous items
by Mike Watters 20 Oct '08

20 Oct '08

The attached patchset addresses a couple of errors I encountered while working on a project using McCLIM (in decode-x-button-code and seos-write-string). The non-error changes consist of two spelling corrections and an implementation of map-over-command-table-translators. Mike Watters mike-cl(a)mwatters.net * decode-x-button-code was using incorrect bounds check: diff -wru ../mcclim-cvs/Backends/CLX/port.lisp ./Backends/CLX/port.lisp --- ../mcclim-cvs/Backends/CLX/port.lisp 2008-05-12 20:04:39.000000000 -0700 +++ ./Backends/CLX/port.lisp 2008-10-16 18:18:27.000000000 -0700 @@ -615,10 +615,11 @@ +pointer-wheel-up+ +pointer-wheel-down+ +pointer-wheel-left+ - +pointer-wheel-right+))) - (and (> code 0) - (<= code (1+ (length button-mapping))) - (aref button-mapping (1- code))))) + +pointer-wheel-right+)) + (code (1- code))) + (when (and (>= code 0) + (< code (length button-mapping))) + (aref button-mapping code)))) ;; From "Inter-Client Communication Conventions Manual", Version 2.0.xf86.1, ;; section 4.1.5: * map-over-command-table-translators, * add-actual-presentation-translator-to-command-table: diff -wru ../mcclim-cvs/commands.lisp ./commands.lisp --- ../mcclim-cvs/commands.lisp 2008-04-20 00:19:10.000000000 -0700 +++ ./commands.lisp 2008-10-16 18:20:56.000000000 -0700 @@ -480,6 +480,39 @@ (map-over-command-table-menu-items function table)))) (values))) +(defun map-over-command-table-translators + (function command-table &key (inherited t)) + (flet ((map-func (table) + (maphash #'(lambda (k v) + (declare (ignore k)) + (funcall function v)) + (slot-value + (presentation-translators table) + 'translators)))) + (let ((command-table (find-command-table command-table))) + (if inherited + (apply-with-command-table-inheritance #'map-func command-table) + (map-func command-table))))) + +;(defun add-presentation-translator-to-command-table +; (command-table translator-name &key (errorp t)) +; - fixme; spec says this fun is given a translator name, but that +; find-presentation-translator needs a translator name and a command +; table designator +(defun add-actual-presentation-translator-to-command-table + (command-table translator &key (errorp t)) + (let ((translators + (presentation-translators + (find-command-table command-table)))) + (when (and errorp + (second + (multiple-value-list + (gethash (name translator) + (slot-value translators 'translators))))) + (error 'command-already-present + :command-table-name command-table)) + (add-translator translators translator))) + ;; At this point we should still see the gesture name as supplied by the ;; programmer in 'gesture' (defun %add-keystroke-item (command-table gesture item errorp) * seos-write-string sometimes gets called with zero-length strings, * which have a split of 1 assigned when the stream eol action is * :wrap, which eventually gets passed as the :end parameter to * text-size, which causes a bounding indices error. alternate fix: * change (1+ start) to (min end (1+ start)) in :wrap case of * seos-write-string. diff -wru ../mcclim-cvs/stream-output.lisp ./stream-output.lisp --- ../mcclim-cvs/stream-output.lisp 2008-04-15 12:28:04.000000000 -0700 +++ ./stream-output.lisp 2008-10-16 18:21:22.000000000 -0700 @@ -287,6 +287,8 @@ :text-style text-style) while (<= sub-width delta) finally (return (1- i))))) + (when (eql end 0) + (return-from seos-write-string)) (with-slots (baseline height vspace) stream (multiple-value-bind (cx cy) (stream-cursor-position stream) * minor spelling corrections diff -wru ../mcclim-cvs/Drei/drei-clim.lisp ./Drei/drei-clim.lisp --- ../mcclim-cvs/Drei/drei-clim.lisp 2008-04-30 23:48:21.000000000 -0700 +++ ./Drei/drei-clim.lisp 2008-10-16 18:22:02.000000000 -0700 @@ -57,10 +57,10 @@ ;;; though. ;;; Cursors are output records. After a cursor is created, The owning -;;; Drei instance instnace should add it to the output stream. The -;;; owner of the cursor (a Drei instance) is responsible for removing -;;; the cursor once it is done with it. Cursors can be active/inactive -;;; and enabled/disabled and have the same activity-status as their +;;; Drei instance should add it to the output stream. The owner of the +;;; cursor (a Drei instance) is responsible for removing the cursor +;;; once it is done with it. Cursors can be active/inactive and +;;; enabled/disabled and have the same activity-status as their ;;; associated view. (defclass drei-cursor (standard-sequence-output-record) ((%view :reader view diff -wru ../mcclim-cvs/input-editing.lisp ./input-editing.lisp --- ../mcclim-cvs/input-editing.lisp 2008-02-07 12:20:04.000000000 -0800 +++ ./input-editing.lisp 2008-10-16 18:21:38.000000000 -0700 @@ -28,7 +28,7 @@ (in-package :clim-internals) (defvar *use-goatee* nil - "I true, use the Goatee editing component instead of Drei. The + "If true, use the Goatee editing component instead of Drei. The Goatee component is faster and more mature than Drei.") (defvar *activation-gestures* nil

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-devel October 2008