mcclim-devel

Download

mcclim-devel@common-lisp.net

August 2010

1 participants
2 discussions

Re: [mcclim-devel] mcclim-devel Digest, Vol 39, Issue 6
by Irene DURAND 27 Mar '13

27 Mar '13

Hello, As my paste on irc lisp, did not have any answer, I turning again to this more specialized mailing list. I have this MClim problem. The application runs fine on Linux with SBCL 1.0.13, xorg-x11-server 1.3.0.0-9.fc7, a recent version of MClim. But doesn't on my Mac (Darwin PowerPC) with MacOS 10.5 (leopard), SBCL 1.0.16, cvs version of MClim, Xquartz 2.1.5 - (xorg-server 1.3.0-apple22)(2.1.5). I have tried to create the smallest as possible application where the problems occurs (attached). Just compile the file and launch mini::(start) On Linux, I have the desired behaviour: a circle blinks (red/green/red/...) on the display pane and at the bottom of the window application, the "quit" button is displayed and works. On the Mac, the circle blinks correctly but the "Quit" button never shows up. For a while the application is killable with C-c C-c (under Slime), but after a while there is no way to kill it than to stop Lisp and restart everything (even /the/ <http://www.lispworks.com/reference/HyperSpec/Body/s_the.htm> X server). Note that this application used to work on Mac OS 10.3 (Panther) with older versions of everything. I suspect the X server to behave differently from before. But now I don't see how to make the application work. This is too bad, as I usually use a similar application for my Lisp undergraduate course. If anyone has an idea, it will be welcomed. Irène (defpackage :mini (:use :clim :clim-extensions :clim-lisp)) (in-package :mini) (let ((colors (list +red+ +green+))) (setf colors (nconc colors colors)) (defun display-function (frame pane) (draw-circle* pane 10 10 10 :ink (pop colors)) (sleep 0.5) (redisplay-frame-panes frame))) (defun quit () (frame-exit *application-frame*)) (define-application-frame mini () () (:panes (display :application :display-function 'display-function :incremental-redisplay t) (quit :push-button :label "Quit" :activate-callback (lambda (x) (declare (ignore x)) (quit)))) (:layouts (defaults (vertically () display quit)))) (defun run-test (name) (loop for port in climi::*all-ports* do (destroy-port port)) (setq climi::*all-ports* nil) (let ((frame (make-application-frame name))) (run-frame-top-level frame))) (defun start () (run-test 'mini) 0) (defmethod run-frame-top-level :before ((mini mini) &key) (let* ((frame-manager (frame-manager *application-frame*)) (port (climi::frame-manager-port frame-manager)) (display (clim-clx::clx-port-display port))) (setf (xlib:display-after-function display) g#'xlib:display-force-output)))

4 4

[mcclim-devel] some (perhaps minor) problems compiling McCLIM on MAC OS/X 10.6.4
by Kevin Smith 10 Aug '10

10 Aug '10

Just compiled McCLIM (and all of it's dependencies) on Mac OS X (version 10.6.4 - Snow Leopard) and got the following undefined variable warnings after compiling (warnings, but no errors). I am compiling on SBCL 1.0.39 +threads and using clx-0.7.4 Are these warnings important ? Most of the example/demo applications from the button menu seem to work with exception of drag and drop example. I can provide any additional information as needed. ; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/bordered-output.lisp ; in: CLIM:DEFINE-BORDER-TYPE :INSET ; (LET ((CLIM-INTERNALS::DARK CLIM-INTERNALS::*3D-DARK-COLOR*) ; (CLIM-INTERNALS::LIGHT CLIM-INTERNALS::*3D-LIGHT-COLOR*)) ; (FLET ((CLIM-INTERNALS::DRAW ; (CLIM-INTERNALS::LEFT-EDGE CLIM-INTERNALS::RIGHT-EDGE ; CLIM-INTERNALS::BOTTOM-EDGE CLIM-INTERNALS::TOP-EDGE ; CLIM-INTERNALS::LIGHT CLIM-INTERNALS::DARK) ; (CLIM:DRAW-LINE* STREAM CLIM-INTERNALS::LEFT-EDGE ; CLIM-INTERNALS::BOTTOM-EDGE ; CLIM-INTERNALS::LEFT-EDGE ; CLIM-INTERNALS::TOP-EDGE :INK ; CLIM-INTERNALS::DARK) ; (CLIM:DRAW-LINE* STREAM CLIM-INTERNALS::LEFT-EDGE ; CLIM-INTERNALS::TOP-EDGE ; CLIM-INTERNALS::RIGHT-EDGE ; CLIM-INTERNALS::TOP-EDGE :INK ; CLIM-INTERNALS::DARK) ; (CLIM:DRAW-LINE* STREAM CLIM-INTERNALS::RIGHT-EDGE ; CLIM-INTERNALS::BOTTOM-EDGE ; CLIM-INTERNALS::RIGHT-EDGE ; CLIM-INTERNALS::TOP-EDGE :INK ; CLIM-INTERNALS::LIGHT) ; (CLIM:DRAW-LINE* STREAM CLIM-INTERNALS::LEFT-EDGE ; CLIM-INTERNALS::BOTTOM-EDGE ; CLIM-INTERNALS::RIGHT-EDGE ; CLIM-INTERNALS::BOTTOM-EDGE :INK ; CLIM-INTERNALS::LIGHT))) ; (CLIM-INTERNALS::DRAW CLIM-INTERNALS::LEFT CLIM-INTERNALS::RIGHT ; CLIM-INTERNALS::BOTTOM CLIM-INTERNALS::TOP CLIM-INTERNALS::LIGHT ; CLIM-INTERNALS::DARK) ; (CLIM-INTERNALS::DRAW (1+ CLIM-INTERNALS::LEFT) ; (1- CLIM-INTERNALS::RIGHT) (1- CLIM-INTERNALS::BOTTOM) ; (1+ CLIM-INTERNALS::TOP) CLIM-INTERNALS::LIGHT CLIM-INTERNALS::DARK))) ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*3D-DARK-COLOR* ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*3D-LIGHT-COLOR* ; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/Goatee/presentation-history.lisp ; in: DEFUN GOATEE::CMD-HISTORY-YANK-PREVIOUS ; (LET* ((GOATEE::ACCEPTING-TYPE CLIM-INTERNALS::*ACTIVE-HISTORY-TYPE*) ; (GOATEE::HISTORY ; (AND GOATEE::ACCEPTING-TYPE ; (CLIM:PRESENTATION-TYPE-HISTORY GOATEE::ACCEPTING-TYPE)))) ; (WHEN GOATEE::HISTORY ; (MULTIPLE-VALUE-BIND (GOATEE::OBJECT TYPE) ; (CLIM-INTERNALS::PRESENTATION-HISTORY-PREVIOUS GOATEE::HISTORY ; GOATEE::ACCEPTING-TYPE) ; (WHEN TYPE ; (GOATEE::CLEAR-BUFFER GOATEE::*BUFFER*) ; (GOATEE::INSERT-PTYPE-HISTORY GOATEE::OBJECT TYPE))))) ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*ACTIVE-HISTORY-TYPE* ; in: DEFUN GOATEE::CMD-HISTORY-YANK-NEXT ; (LET* ((GOATEE::ACCEPTING-TYPE CLIM-INTERNALS::*ACTIVE-HISTORY-TYPE*) ; (GOATEE::HISTORY ; (AND GOATEE::ACCEPTING-TYPE ; (CLIM:PRESENTATION-TYPE-HISTORY GOATEE::ACCEPTING-TYPE)))) ; (WHEN GOATEE::HISTORY ; (MULTIPLE-VALUE-BIND (GOATEE::OBJECT TYPE) ; (CLIM-INTERNALS::PRESENTATION-HISTORY-NEXT GOATEE::HISTORY ; GOATEE::ACCEPTING-TYPE) ; (WHEN TYPE ; (GOATEE::CLEAR-BUFFER GOATEE::*BUFFER*) ; (GOATEE::INSERT-PTYPE-HISTORY GOATEE::OBJECT TYPE))))) ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*ACTIVE-HISTORY-TYPE* ; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/frames.lisp ; in: ; DEFMETHOD CLIM-INTERNALS::FRAME-PRINT-POINTER-DOCUMENTATION (CLIM:STANDARD-APPLICATION-FRAME ; T T T T) ; (+ (CLIM-INTERNALS::BACKGROUND-MESSAGE-TIME CLIM-INTERNALS::PSTREAM) ; CLIM-INTERNALS::*BACKGROUND-MESSAGE-MINIMUM-LIFETIME*) ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*BACKGROUND-MESSAGE-MINIMUM-LIFETIME* ; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/commands.lisp ; in: DEFUN CLIM-INTERNALS::PARTIAL-COMMAND-FROM-NAME ; (GETHASH CLIM:COMMAND-NAME CLIM-INTERNALS::*COMMAND-PARSER-TABLE*) ; ==> ; (SB-IMPL::GETHASH3 CLIM:COMMAND-NAME CLIM-INTERNALS::*COMMAND-PARSER-TABLE* ; NIL) ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*COMMAND-PARSER-TABLE* ; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/Drei/views.lisp ; in: DEFUN DREI::GET-CHUNK ; (+ DREI:*MAXIMUM-CHUNK-SIZE* DREI::CHUNK-START-OFFSET) ; ; caught WARNING: ; undefined variable: DREI:*MAXIMUM-CHUNK-SIZE* ; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/presentations.lisp ; in: DEFUN CLIM:CALL-PRESENTATION-MENU ; (CLIM:MENU-CHOOSE CLIM-INTERNALS::ITEMS :LABEL CLIM-INTERNALS::LABEL ; :ASSOCIATED-WINDOW CLIM-INTERNALS::WINDOW :PRINTER ; #'(LAMBDA (CLIM-INTERNALS::ITEM STREAM) ; (LET ((CLIM-INTERNALS::OBJECT #)) ; (CLIM:DOCUMENT-PRESENTATION-TRANSLATOR ; (CLIM-INTERNALS::PRESENTATION-TRANSLATOR-MENU-ITEM-TRANSLATOR ; CLIM-INTERNALS::OBJECT) ; (CLIM-INTERNALS::PRESENTATION-TRANSLATOR-MENU-ITEM-PRESENTATION ; CLIM-INTERNALS::OBJECT) ; (CLIM-INTERNALS::PRESENTATION-TRANSLATOR-MENU-ITEM-CONTEXT ; CLIM-INTERNALS::OBJECT) ; CLIM-INTERNALS::FRAME NIL CLIM-INTERNALS::WINDOW CLIM-INTERNALS::X ; CLIM-INTERNALS::Y :STREAM STREAM))) ; :LABEL CLIM-INTERNALS::LABEL :POINTER-DOCUMENTATION ; CLIM:*POINTER-DOCUMENTATION-OUTPUT*) ; ; caught WARNING: ; undefined variable: CLIM:*POINTER-DOCUMENTATION-OUTPUT* ; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/Backends/PostScript/graphics.lisp ; in: DEFUN CLIM-POSTSCRIPT::WRITE-COORDINATES ; (CLIM-INTERNALS::WITH-TRANSFORMED-POSITION (CLIM-POSTSCRIPT::*TRANSFORMATION* ; CLIM-POSTSCRIPT::X ; CLIM-POSTSCRIPT::Y) ; (CLIM-POSTSCRIPT::WRITE-NUMBER STREAM CLIM-POSTSCRIPT::X) ; (CLIM-POSTSCRIPT::WRITE-NUMBER STREAM CLIM-POSTSCRIPT::Y)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (CLIM:TRANSFORM-POSITION CLIM-POSTSCRIPT::*TRANSFORMATION* CLIM-POSTSCRIPT::X ; CLIM-POSTSCRIPT::Y) ; ; caught WARNING: ; undefined variable: CLIM-POSTSCRIPT::*TRANSFORMATION* ; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/commands.lisp ; in: DEFUN CLIM-INTERNALS::PARTIAL-COMMAND-FROM-NAME ; #'(LAMBDA (CLIM-INTERNALS::FOO) ; (DECLARE (IGNORE CLIM-INTERNALS::FOO)) ; CLIM:*UNSUPPLIED-ARGUMENT-MARKER*) ; ; caught WARNING: ; undefined variable: CLIM:*UNSUPPLIED-ARGUMENT-MARKER* ; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/design.lisp ; in: DEFUN CLIM:MAKE-OPACITY ; (COND ((= CLIM-INTERNALS::VALUE 0) CLIM:+TRANSPARENT-INK+) ; ((= CLIM-INTERNALS::VALUE 1) CLIM:+EVERYWHERE+) ; (T ; (MAKE-INSTANCE 'CLIM-INTERNALS::STANDARD-OPACITY :VALUE ; CLIM-INTERNALS::VALUE))) ; --> IF COND IF ; ==> ; (PROGN CLIM:+EVERYWHERE+) ; ; caught WARNING: ; undefined variable: CLIM:+EVERYWHERE+ ; in: DEFMETHOD CLIM:COMPOSE-OUT (CLIM:DESIGN CLIM:COLOR) ; (DEFMETHOD CLIM:COMPOSE-OUT ; ((CLIM:DESIGN CLIM:DESIGN) (CLIM-INTERNALS::MASK CLIM:COLOR)) ; (DECLARE (IGNORE CLIM:DESIGN CLIM-INTERNALS::MASK)) ; CLIM:+NOWHERE+) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET ; ==> ; (BLOCK CLIM:COMPOSE-OUT CLIM:+NOWHERE+) ; ; caught WARNING: ; undefined variable: CLIM:+NOWHERE+ ; in: ; DEFMETHOD CLIM:COMPOSE-OUT (CLIM:DESIGN CLIM-INTERNALS::EVERYWHERE-MIXIN) ; (DEFMETHOD CLIM:COMPOSE-OUT ; ((CLIM:DESIGN CLIM:DESIGN) ; (CLIM-INTERNALS::MASK CLIM-INTERNALS::EVERYWHERE-MIXIN)) ; (DECLARE (IGNORE CLIM:DESIGN CLIM-INTERNALS::MASK)) ; CLIM:+NOWHERE+) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET ; ==> ; (BLOCK CLIM:COMPOSE-OUT CLIM:+NOWHERE+) ; ; caught WARNING: ; undefined variable: CLIM:+NOWHERE+ ; in: ; DEFMETHOD CLIM:COMPOSE-IN (CLIM:DESIGN CLIM-INTERNALS::NOWHERE-MIXIN) ; (DEFMETHOD CLIM:COMPOSE-IN ; ((CLIM:DESIGN CLIM:DESIGN) ; (CLIM-INTERNALS::MASK CLIM-INTERNALS::NOWHERE-MIXIN)) ; (DECLARE (IGNORE CLIM:DESIGN CLIM-INTERNALS::MASK)) ; CLIM:+NOWHERE+) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET ; ==> ; (BLOCK CLIM:COMPOSE-IN CLIM:+NOWHERE+) ; ; caught WARNING: ; undefined variable: CLIM:+NOWHERE+ ; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/Drei/lisp-syntax.lisp ; in: DREI-SYNTAX:DEFINE-SYNTAX DREI-LISP-SYNTAX:LISP-SYNTAX ; (DREI-SYNTAX:DEFINE-SYNTAX DREI-LISP-SYNTAX:LISP-SYNTAX ; (DREI-LR-SYNTAX:LR-SYNTAX-MIXIN ; DREI-FUNDAMENTAL-SYNTAX:FUNDAMENTAL-SYNTAX) ; ((DREI-LISP-SYNTAX::%PACKAGE-LIST :ACCESSOR ; DREI-LISP-SYNTAX::PACKAGE-LIST :DOCUMENTATION ; "An alist mapping the end offset ; of (in-package) forms to a string of the package designator in ; the form. The list is sorted with the earliest (in-package) forms ; last (descending offset).") ; (DREI-LISP-SYNTAX::%BASE :INITFORM NIL ; :DOCUMENTATION ; "The base which numbers in the buffer are ; expected to be in. If the provided value is NIL, the value of ; `*read-base*' will be used." ; :TYPE (OR NULL (INTEGER 2 36))) ; (DREI-LISP-SYNTAX::%OPTION-SPECIFIED-PACKAGE ; :ACCESSOR ; DREI-LISP-SYNTAX::OPTION-SPECIFIED-PACKAGE ; :INITFORM NIL :DOCUMENTATION "The package ; specified in the attribute line (may be overridden ; by (in-package) forms). This may be either a string (the name of ; the intended package) or a package object.") ; (DREI-LISP-SYNTAX::%IMAGE :ACCESSOR ; DREI-LISP-SYNTAX::IMAGE :INITFORM NIL ; :DOCUMENTATION "An image object (or NIL) that ; determines where and how Lisp code in the buffer of the ; syntax should be run.") ; (DREI-LISP-SYNTAX::%FORM-BEFORE-CACHE :ACCESSOR ; DREI-LISP-SYNTAX::FORM-BEFORE-CACHE :INITFORM ; (MAKE-HASH-TABLE :TEST #'EQUAL)) ; (DREI-LISP-SYNTAX::%FORM-AFTER-CACHE :ACCESSOR ; DREI-LISP-SYNTAX::FORM-AFTER-CACHE :INITFORM ; (MAKE-HASH-TABLE :TEST #'EQUAL)) ; (DREI-LISP-SYNTAX::%FORM-AROUND-CACHE :ACCESSOR ; DREI-LISP-SYNTAX::FORM-AROUND-CACHE :INITFORM ; (MAKE-HASH-TABLE :TEST #'EQUAL))) ; (:NAME "Lisp") (:PATHNAME-TYPES "lisp" "lsp" "cl") ; (:COMMAND-TABLE DREI-LISP-SYNTAX:LISP-TABLE) ; (:DEFAULT-INITARGS :INITIAL-STATE ; DREI-LISP-SYNTAX::|initial-state |)) ; --> PROGN CLIM-LISP-PATCH:DEFCLASS PROGN DEFCLASS PROGN EVAL-WHEN LET LET ; ==> ; #'(LAMBDA () ; (DECLARE (OPTIMIZE (SB-C:STORE-COVERAGE-DATA 0))) ; DREI-LISP-SYNTAX::|initial-state |) ; ; caught WARNING: ; undefined variable: DREI-LISP-SYNTAX::|initial-state | ; ; compilation unit finished ; Undefined functions: ; DREI-SYNTAX::LOW-MARK CLIM:MEDIUM CLIM-INTERNALS::WITH-MEDIUM-OPTIONS ; Undefined variables: ; CLIM-INTERNALS::*3D-DARK-COLOR* CLIM-INTERNALS::*3D-LIGHT-COLOR* CLIM-INTERNALS::*ACTIVE-HISTORY-TYPE* CLIM-INTERNALS::*BACKGROUND-MESSAGE-MINIMUM-LIFETIME* CLIM-INTERNALS::*COMMAND-PARSER-TABLE* DREI:*MAXIMUM-CHUNK-SIZE* CLIM:*POINTER-DOCUMENTATION-OUTPUT* CLIM-POSTSCRIPT::*TRANSFORMATION* CLIM:*UNSUPPLIED-ARGUMENT-MARKER* CLIM:+EVERYWHERE+ CLIM:+NOWHERE+ DREI-LISP-SYNTAX::|initial-state | ; caught 15 WARNING conditions ; printed 951 notes ("SB-GROVEL" "SB-BSD-SOCKETS")

1 0