mcclim-devel

mcclim-devel@common-lisp.net

820 discussions

[mcclim-devel] Two problems with McCLIM with gtkairo
by Makarov Alexey 24 Nov '10

24 Nov '10

Hello! I have two problems with gtkairo backend. First problem is black application frame while presented information on frame parts is not changed, mouse pointer is not hover on scrollbar or interactor menu doesn't appear on that pane. This appear in Ubuntu Linux 10.04 with SBCL 1.0.40 and GTK 2.20. Second problem is McCLIM with gtkairo backend hangs on Windows XP on SBCL 1.0.43 (https://sites.google.com/site/dmitryvksite/sbcl-distr/sbcl-1.0.43-threads-g…) and GTK 2.22. I try to eval: (run-frame-top-level (make-application-frame 'superapp)) Then application frame is appear but panes not draw on it and frame hang (can't close window). SBCL hang too, but this issue I can avoid: (sb-thread:make-thread (lambda () (run-frame-top-level (make-application-frame 'superapp)))) I run this code: (defpackage "APP" (:use :clim :clim-lisp) (:export "APP-MAIN")) (in-package :app) (define-application-frame superapp () () (:pointer-documentation t) (:panes (app :application :display-time nil :height 400 :width 600) (int :interactor :height 200 :width 600)) (:layouts (default (vertically () app int)))) (defun app-main () (run-frame-top-level (make-application-frame 'superapp))) (define-superapp-command (com-quit :name t) () (frame-exit *application-frame*)) (define-superapp-command (com-parity :name t) ((number 'integer)) (format t "~a is ~a~%" number (if (oddp number) "odd" "even"))) I use quicklisp and mcclim from quicklisp repository. Have your any ideas to solve that problems? -- Makarov Alexey <alexeys9(a)yandex.ru>

2 1

[mcclim-devel] Feasibility Question
by James Ashley 21 Nov '10

21 Nov '10

Hi, all. I've been programming for close to 30 years now, and I've been trying to find a good excuse to really learn common lisp (as opposed to just dabbling) for the past 3 or so. I think I've finally come across a project that feels like the right "fit." The basic idea is a collaborative 3-d client-side application server with a built-in IDE that persists the state off all its applications between all its program runs. This is total vaporware at the moment...I'm just trying to do some basic research and pick the right tools. I've been involved in way too many where we started out in one environment, got a proof of concept, then realized there were some fundamental limitations that kept us from moving forward, so we essentially had to start over from scratch (or wound up layering ever-more-unmaintainable pieces on top of an unsustainable architecture). Right now, I'm thinking off "applications" being developed on at least 4 different levels. One would be raw common lisp, that interacts directly with the "interpreter." Another would really be creating custom frame managers (I think...I'm just scratching CLIM's surface) to provide eye candy effects (since I'm planning on targeting the masses, I've learned that it's pretty much all about the eye candy). Yet another would be something like the HTML/CSS/Javascript paradigm to create 2-d "applications." And the last would be the actual 3-d world where the users interact. A combination of Open Cobalt and World Forge seemed like the "proper" mix at first. But, the more I dug into smalltalk, the less impressed I was. I kept thinking "If only I could write a macro to do all this..." The more I dug into it, the more I realized just how big and ambitious this project is. If I'm going to be dedicating 10 years (or more) to something, and forcing my users to download some obscure runtime anyway...why not go with a language that left my jaw on the floor and my head spinning? I realize common lisp isn't perfect, but what is? (Clojure's tempting. I downloaded it, spent about 20 minutes to get a REPL, and finally gave up. It may be mature and "ready for the big leagues" before this project is, but...common lisp's there now. Racket's similarly tempting, but I just don't seem to fit with the Scheme community). The ideas behind McClim seem to feel like it's the right "fit" for the GUI part of the project. Not all the eye-candy pieces, of course. Just...conceptually. I've been digging my way through the old mailing list archives (the check-in comments are a lot more educational than I realized at first. I'm glad they got archived that way), and I see that there's been speculation about an OpenGL backend for ages now (and at least an experimental stab at writing one). Conventional wisdom seems to dictate using something like one of the GTK bindings for the UI. But it seems to me that, if I started there, I'd just wind up re-implementing tons of CLIM to get to an abstraction level where I could forget about that and get down to real work. It seems to me that my time would be better spent helping get the GTKairo working solidly. Either way, I'll wind up duplicating the work to switch to some crazy gadget set built entirely on some 3-d engine or other. I see one of the fundamental programs being a traditional "form builder" kind of drag-and-drop thing along the lines of VB. Probably with some kind of tree view (or maybe boxes) to hide the fact that the code's actually being written in lisp. Am I barking up the wrong tree? Like I said...I've been going through the old mailing list archives. I've normally have wrapped that up and at least gotten more than a passing acquaintance with actually writing McCLIM code (at this point, I'm just digesting that ancient CLIM "walk-through" referenced first on the home page) before de-lurking. But I ran across someone else today who seems to be thinking on at least vaguely parallel lines to mine, and I figured this was the best place to check before I wasted his time with my ideas. Thanks, James

3 3

[mcclim-devel] Drei reposition
by Manuel Giraud 27 Sep '10

27 Sep '10

Hi, here's a patch to correct the behaviour of the "C-l" gesture in Climacs to be more like the Emacs one. Index: drei-redisplay.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp,v retrieving revision 1.71 diff -u -r1.71 drei-redisplay.lisp --- drei-redisplay.lisp 3 May 2008 07:47:17 -0000 1.71 +++ drei-redisplay.lisp 27 Sep 2010 15:01:16 -0000 @@ -1090,6 +1090,12 @@ (declare (ignore y1)) (- x2 x1))) +(defmethod bounding-rectangle-height ((view drei-buffer-view)) + (multiple-value-bind (x1 y1 x2 y2) + (bounding-rectangle* view) + (declare (ignore x1 x2)) + (- y2 y1))) + (defun drei-bounding-rectangle* (drei-instance) "Return the bounding rectangle of the visual appearance of `drei-instance' as four values, just as `bounding-rectangle*'." @@ -1172,15 +1178,22 @@ "Try to put point close to the middle of the pane by moving top half a pane-size up." (let* ((view (view drei-pane)) - (nb-lines-in-pane (number-of-lines-in-region (top view) (bot view)))) - (with-accessors ((top top) (point point)) view - (setf (offset top) (offset point)) - (beginning-of-line top) - (loop do (beginning-of-line top) - repeat (floor nb-lines-in-pane 2) - until (beginning-of-buffer-p top) - do (decf (offset top)) - (beginning-of-line top)) + (buffer (buffer view)) + (line-and-space-height (+ (text-style-height (medium-merged-text-style + (sheet-medium drei-pane)) drei-pane) + (stream-vertical-spacing drei-pane))) + (nb-lines-in-pane (floor (bounding-rectangle-height drei-pane) + line-and-space-height)) + (nb-lines-in-buffer (number-of-lines buffer))) + (when (> nb-lines-in-buffer nb-lines-in-pane) + (with-accessors ((top top) (point point)) view + (setf (offset top) (offset point)) + (beginning-of-line top) + (loop do (beginning-of-line top) + repeat (floor nb-lines-in-pane 2) + until (beginning-of-buffer-p top) + do (decf (offset top)) + (beginning-of-line top))) (invalidate-all-strokes view :modified t)))) (defun adjust-pane (drei-pane) -- Manuel Giraud

1 0

[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

[mcclim-devel] Push or Pull data in application
by Oliver Uvman 14 Jul '10

14 Jul '10

Hello! I'm now beginning to write my first GUI with McClim, and there seem to be an abundance of interface-building resources, so I'll be able to keep going for a while without help. I am writing this as an additional user interface to our backend program. The backend is a calendar program used at my university (Linköping University) to teach abstraction. The idea is that either manual interaction with the backend or interaction via the Clim frontend can be used, at the same time or separately. Anything done in one should be observable in the other. The problem I know I will eventually run into is updating the Clim interface when changes to data have been made through manual interaction with the backend. The solutions are either push or pull based, I guess. Push based is not really prefered, because the backend would have to keep track of the gui so it can send messages to it. We need to keep the backend as simple and clean as possible, because it is to be modified by the students. Thus I would rather prefer a pull-based approach where, every 80-90ms or so the application itself requests up-to-date data from the backend and redraws if necessary. Is there a standard way to go about this? It seems like it is a problem that would appear in almost any application. Regards, Oliver Uvman

3 3

[mcclim-devel] Errors installing McClim
by Oliver Uvman 13 Jul '10

13 Jul '10

Hello! I'm trying to follow the guide on http://mcclim.cliki.net/McCLIM%2BSBCL for installing McClim, but when I do (asdf-install:install :mcclim) I get an error, which I tried to accept and continue the install from, but the errors just keep coming after that so I thought I'd ask. The error I'm getting is: ; compilation aborted because of fatal error: ; SB-INT:SIMPLE-READER-PACKAGE-ERROR at 5151 (line 128, column 45) on #<SB-SYS:FD-STREAM ; for "file /usr/share/common-lisp/source/slime/swank-loader.lisp" ; {BF565E1}>: ; package "CLC" not found ; ; compilation aborted after 0:00:00.063 debugger invoked on a TYPE-ERROR in thread #<THREAD "initial thread" RUNNING {A9F5811}>: The value NIL is not of type (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING PATHNAME STREAM). I tried (asdf-install:install :clc) but there doesn't seem to be a package with that name. I know it stands for common-lisp-controller, and I have it apt-getted on my system (Ubuntu Lucid x86). Anybody know what the problem is? Regards, Oliver Uvman

7 15

Re: [mcclim-devel] Push or Pull data in application
by matthieu.villeneuve＠free.fr 13 Jul '10

13 Jul '10

----- "Oliver Uvman" <oliver.uvman(a)gmail.com> a écrit : > Matthieu: Yes, that would be the push-type mechanism. The problem > about it then is that the backend would have to know when a gui is > running or not, and be able to send messages to that gui (keeping > some > address reference to it or whatever). I'd rather not touch the > backend > code at all, as that would muddy the waters for the people who are > looking at the first large lisp app in their lives. The thing is, even if the :after methods I was talking about are "attached" to backend generic functions, I consider that they belong to the GUI code, so the backend code doesn't have to maintain information about the GUI. Something like this: (in-package :app-gui) (defun draw-foo (object) ...) (defmethod app-backend:set-coords :after ((object foo) x y) (when *application-frame* (draw-foo object))) That way, the backend code doesn't depend on the GUI code. If you group those :after methods in a separate file, you could even choose to load it or not, depending on whether you want to allow direct modifications of backend data (which should be reflected in the GUI). > Maybe I should also note that this is the first time the students > meet > layered abstraction, so the app so far has a strict top-down > dependency model. Code in one layer may not depend on code in a layer > above it. Preferably I'd like to keep the gui in a layer of its own, > above all other layers. This would keep things simple for the > students, they'd never need to look in the gui code (if they don't > want to). > > /Oliver > > On Tue, Jul 13, 2010 at 16:01, <matthieu.villeneuve(a)free.fr> wrote: > > Hello, > > > > ----- "Oliver Uvman" <oliver.uvman(a)gmail.com> a écrit : > >> The problem I know I will eventually run into is updating the Clim > >> interface when changes to data have been made through manual > >> interaction with the backend. The solutions are either push or > pull > >> based, I guess. Push based is not really prefered, because the > backend > >> would have to keep track of the gui so it can send messages to it. > > > > [Disclaimer: I don't remember much about GUIs and CLIM...] > > > > Couldn't you define, as part of your GUI code, and for every > "relevant" > > backend method that updates the application data, an :after method > that > > updates or refreshes the interface contents? -- Matthieu Villeneuve

2 1

Re: [mcclim-devel] Push or Pull data in application
by matthieu.villeneuve＠free.fr 13 Jul '10

13 Jul '10

Hello, ----- "Oliver Uvman" <oliver.uvman(a)gmail.com> a écrit : > The problem I know I will eventually run into is updating the Clim > interface when changes to data have been made through manual > interaction with the backend. The solutions are either push or pull > based, I guess. Push based is not really prefered, because the backend > would have to keep track of the gui so it can send messages to it. [Disclaimer: I don't remember much about GUIs and CLIM...] Couldn't you define, as part of your GUI code, and for every "relevant" backend method that updates the application data, an :after method that updates or refreshes the interface contents? Cheers, -- Matthieu Villeneuve

2 1

[mcclim-devel] beirc bug report
by Cyrus Harmon 16 Jun '10

16 Jun '10

I'm not sure what the best forum for reporting bugs in beirc and or mcclim these days (any interest in launchpad projects for these and similar projects?), but I came across this bug in beirc today, and I thought I'd post it here to see if anyone has any ideas. This is with SBCL 1.0.39.15 on linux/x86-64/sb-threads. any suggestions would be appreciated. thanks, Cyrus unhandled TYPE-ERROR in thread #<SB-THREAD:THREAD "initial thread" RUNNING {1002AC2D11}>: The value 953 is not of type (UNSIGNED-BYTE 8). 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {1003E9BD59}>)[:EXTERNAL] 1: (SB-DEBUG:BACKTRACE 128 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {1000159B51}>) 2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<TYPE-ERROR {1003E99321}> #<unavailable argument>) 3: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<TYPE-ERROR {1003E99321}>) 4: (INVOKE-DEBUGGER #<TYPE-ERROR {1003E99321}>) 5: (ERROR TYPE-ERROR)[:EXTERNAL] 6: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #X7FFFF4EC1980) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF4EC1500 :TYPE (* (SB-ALIEN:STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (405 21)) 7: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #X7FFFF4EC1500) #<unavailable argument>) 8: ("foreign function: #x422C00") 9: ("foreign function: #x40D15C") 10: ("foreign function: #x4133A5") 11: ("foreign function: #x4140BA") 12: (SB-IMPL::OPTIMIZED-DATA-VECTOR-SET #<unavailable argument> #<unavailable argument> #<unavailable argument>) 13: (CLIM-CLX::TRANSLATE "ι" 0 1 #<XLIB:FONT -adobe-helvetica-medium-r-normal--14-100-100-100-p-76-iso10646-1 :0 50331673> #(56 0 4 0 85 0 0 3 4 0 0 0 190 190 190 0 59 0 5 0 85 0 0 3 0 0 0 0 0 0 45 45 5 3 191 1 74 0 5 0 83 0 0 3 85 0 0 3 33 4 251 46 1 0 91 0 74 0 6 0 83 ... 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) 138) 14: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)) 15: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]324)) 16: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {7FFFF4EC1CA9}> #S(SB-THREAD:MUTEX :NAME "CLX Buffer Lock" :%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {1002AC2D11}> :STATE 1)) 17: (XLIB::DRAW-GLYPHS8 #<XLIB:WINDOW :0 3000053> #<XLIB:GCONTEXT :0 50331733> 93 12027 "ι" 0 1 #<FUNCTION CLIM-CLX::TRANSLATE> #<unavailable argument>) 18: ((SB-PCL::FAST-METHOD CLIM:MEDIUM-DRAW-TEXT* (CLIM-CLX::CLX-MEDIUM T T T T T T T T T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> "ι" 93 12027 0 1 :LEFT :BASELINE #<unavailable argument> #<unavailable argument> #<unavailable argument>) 19: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {7FFFF4EC20D9}>)[:EXTERNAL] 20: (CLIM:DRAW-TEXT* #<CLIM-CLX::CLX-MEDIUM {10061DE701}> "ι" 93 12027)[:EXTERNAL] 21: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::STREAM-WRITE-OUTPUT :AROUND (CLIM:STANDARD-OUTPUT-RECORDING-STREAM T T)) #(45 NIL) #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3 . T)) #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> "ι" NIL)[:EXTERNAL] 22: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {7FFFF4EC2499}>)[:EXTERNAL] 23: ((LABELS #:G294) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 24: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-DRAWING-OPTIONS (CLIM:SHEET T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<CLOSURE (FLET #:GCONTINUATION6319) {7FFFF4EC2589}>)[:EXTERNAL] 25: ((LABELS #:G6300) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 26: ((SB-PCL::FAST-METHOD CLIM:REPLAY-OUTPUT-RECORD (CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD T)) #(8 NIL 10 NIL 14 NIL 7 NIL 17 NIL) #<unused argument> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<unused argument> #<unused argument> #<unused argument>) 27: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {7FFFF4EC2869}>)[:EXTERNAL] 28: ((LABELS #:G294) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 29: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-DRAWING-OPTIONS (CLIM:SHEET T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<CLOSURE (FLET #:GCONTINUATION1711) {7FFFF4EC2939}>)[:EXTERNAL] 30: ((SB-PCL::FAST-METHOD CLIM:REPLAY-OUTPUT-RECORD :AROUND (CLIM-INTERNALS::GS-INK-MIXIN T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV #(8 NIL 10 NIL 14 NIL 7 NIL 17 NIL) :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>)[:EXTERNAL] 31: ((LABELS #:G441) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 32: (CLIM:REPLAY #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<CLIM:STANDARD-RECTANGLE X 0:773 Y 11565:12012 {1003E965A1}>) 33: ((SB-PCL::FAST-METHOD CLIM:INCREMENTAL-REDISPLAY (CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN T T T T T T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<unavailable argument> NIL NIL ((#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 1057,12014 ("[" "14:" "11]") {1003B5D651}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 1057,12014 ("[" "14:" "11]") {1003B5D651}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 81,12014 (">") {10044542E1}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 81,12014 (">") {10044542E1}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 44,12014 ("cbeok") {1004473F11}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 44,12014 ("cbeok") {1004473F11}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 36,12014 ("<") {10044542A1}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 36,12014 ("<") {10044542A1}>)) NIL NIL) 34: ((SB-PCL::FAST-METHOD CLIM:REDISPLAY-OUTPUT-RECORD (CLIM:UPDATING-OUTPUT-RECORD CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN)) #<unused argument> #<unused argument> #<CLIM:STANDARD-UPDATING-OUTPUT-RECORD X 0:1100 Y 0:12030 CLIM-INTERNALS::TOP-LEVEL {10061DE731}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> T) 35: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1. SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT. SB-PCL::.DFUN-MORE-COUNT.)) #<unused argument> #<unused argument> #<BEIRC:BEIRC {100304D5C1}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> 17592162813397 2) 36: ((SB-PCL::FAST-METHOD CLIM:REDISPLAY-FRAME-PANE :AROUND (CLIM:APPLICATION-FRAME T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE # {1004351429}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) #<BEIRC:BEIRC {100304D5C1}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>)[:EXTERNAL] 37: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>) 38: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-EXTENSIONS:VIEWPORT-PANE "(Unnamed Pane)" {100398AB21}>) 39: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:SCROLLER-PANE "(Unnamed Pane)" {1003971121}>) 40: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-INTERNALS::BORDER-PANE "(Unnamed Pane)" {100398AA51}>) 41: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-TAB-LAYOUT:TAB-LAYOUT-PANE BEIRC::QUERY {100398A571}>) 42: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {1003289351}>) 43: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {1003233771}>) 44: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {1007A39561}>) 45: ((SB-PCL::FAST-METHOD CLIM:HANDLE-EVENT (BEIRC:BEIRC BEIRC::FOO-EVENT)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}> #<BEIRC::FOO-EVENT {1002BEA581}>) 46: (CLIM-INTERNALS::HANDLE-NON-STREAM-EVENT #<CLIM-INTERNALS::PORT-EVENT-QUEUE {100319B661}>) 47: ((SB-PCL::FAST-METHOD CLIM:STREAM-INPUT-WAIT (CLIM:STANDARD-EXTENDED-INPUT-STREAM)) #<unavailable argument> #<unavailable argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL] 48: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE (CLIM:STANDARD-EXTENDED-INPUT-STREAM)) #<unavailable argument> #<unavailable argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL] 49: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT. SB-PCL::.DFUN-MORE-COUNT.)) #<unused argument> #<unused argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> 17592162813599 10) 50: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE :AROUND (CLIM-INTERNALS::DEAD-KEY-MERGING-MIXIN)) #(1 NIL 2 NIL 0 NIL) #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE # {1009B59349}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL] 51: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE (DREI:DREI-INPUT-EDITING-MIXIN)) #<unavailable argument> #<unavailable argument> #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}>)[:EXTERNAL] 52: ((LAMBDA (STREAM)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}>) 53: (CLIM-INTERNALS::INPUT-EDITING-RESCAN-LOOP #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}> #<CLOSURE (LAMBDA #) {1003CDF229}>) 54: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (T T T T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5)) :ARG-INFO (5)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}> #<CLOSURE (LAMBDA #) {1003CE6BB9}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 55: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (CLIM:CLIM-STREAM-PANE T T T T)) #<unavailable argument> #<unavailable argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> #<CLOSURE (LAMBDA #) {1003CDF229}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 56: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (T T T T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5)) :ARG-INFO (5)) #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> #<CLOSURE (LAMBDA #) {1003CDF229}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 57: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (CLIM:EXTENDED-OUTPUT-STREAM T T T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5)) :ARG-INFO (5)) :ARG-INFO (5)) #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> #<CLOSURE (LAMBDA #) {1003CDF229}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 58: ((SB-PCL::FAST-METHOD CLIM:READ-FRAME-COMMAND (BEIRC:BEIRC)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 59: ((SB-PCL::FAST-METHOD CLIM:READ-FRAME-COMMAND :AROUND (CLIM:APPLICATION-FRAME)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) :ARG-INFO (1 . T)) #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 60: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 61: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 62: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (CLIM:APPLICATION-FRAME)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 63: ((LAMBDA ())) 64: ((LAMBDA ())) 65: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WITH-APPLICATION NIL (BEIRC:BEIRC :NEW-PROCESS NIL)) #<NULL-LEXENV>) 66: (SB-FASL::LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /home/sly/src/clbuild/clbuild.lisp" {1002E1C681}> NIL NIL) 67: ((FLET SB-FASL::LOAD-STREAM) #<SB-SYS:FD-STREAM for "file /home/sly/src/clbuild/clbuild.lisp" {1002E1C681}> NIL) 68: (LOAD "/home/sly/src/clbuild/clbuild.lisp")[:EXTERNAL] 69: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD "/home/sly/src/clbuild/clbuild.lisp") #<NULL-LEXENV>) 70: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(require :asdf)") (:EVAL . "(setq asdf:*central-registry* '(#p\"/home/sly/src/clbuild/systems/\"))") (:EVAL . "nil") (:EVAL . "(load \"/home/sly/src/clbuild/clbuild.lisp\")"))) 71: (SB-IMPL::TOPLEVEL-INIT) 72: ((LABELS SB-IMPL::RESTART-LISP))

2 1

[mcclim-devel] clim-gtkairo problems
by Cyrus Harmon 16 Jun '10

16 Jun '10

I've been having trouble trying to get the clim-gtkairo backend working of late. The main application I'm working on throws an error, only with the gtkairo backend, but I don't have a nice simple test case for it yet. In the course of trying to generate such testcase, I figured I'd try the demodemo and see how it works with clim-gtkairo. Unfortunately, it seems to have some problems. The most obvious problem is that the initial demodemo window is completely blank until one drags the mouse over all of the buttons. With the clx backend, everything is fine. Anyone else seeing this? thanks, Cyrus

1 1

← Newer
1
...
12
13
14
15
16
17
18
...
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