- mcclim-devel - mailman3.common-lisp.net

Missing component at quicklisp
by Greg Bennett 13 Mar '17

13 Mar '17

From Greg Bennett running ccl64 under linux Mint 17.1 I sent a message to Zach Beane but I'm not sure whether ql pulls stuff or mcclim pushes, hence this somewhat belated message. Last night I updated ccl64 and ran (ql::update-all-dists), which exited without incident. Before the updates mmclim, quickloaded correctly. I restarted ccl64 and then I tried (require 'mcclim) which broke with the message: ASDF could not load mcclim because Component ASDF/USER::OPTICL-CORE not found, required by #<SYSTEM "retrospectiff">. Thx for any advice and assistance Cheers /Greg Bennett

2 1

pointer-set-position
by Greg Bennett 08 Mar '17

08 Mar '17

Hullo from Greg Bennett who is running under Clozure "Version 1.11-r16810M (LinuxX8664)" I am using the code from the CLIM 2.2.2 User Guide to get a window (*test-frame*) and its associated pane (*test-pane*). Now I'm trying to set the position of the pointer in that pane. Once I've done this, I can them do things such draw-line from this position to another one. As far as I can see I need to use the material in CH 15: Manipulating the pointer in CLIM. So I have done this: (setf pprt (port-pointer (port *test-pane*))) -> #<CLIM-CLX::CLX-POINTER #x302003B9750D> (setf zpt (make-point 100 100)) Currently (pointer-position pprt) -> NIL P283-4 suggests I should be able to do something like the following: (pointer-set-position pprt 100 100) -> Evaluation aborted on #<CCL::UNDEFINED-FUNCTION-CALL #x..>. telling me that pointer-set-position in undefined. (setf (pointer-position pprt) zpt) also returns an error: no method for setf on pointer-position. I poked about in the CLIM Spec to no avail, perhaps because my approach is a wrong one. Thx for any and all advice and assistance. Cheers /GB

1 0

line thickness
by Greg Bennett 24 Feb '17

24 Feb '17

Good morning from Greg Bennett I should like to reset the line thickness element of (medium-line-style *some-pane*) without essentially copying its other elements as arguments to (make-line-style new-one), making new-one's thickness my desired value, and then executing (setf (medium-line-style *some-pane*) new-one). I have a copy of the CLIM2 UG (ver 2.2.2 2005) and have not managed to discover a direct way to do this. Probably I'm not looking in the right place. Thanks for any ad all assistance Cheers /GB

2 1

MCCLIM initial quickload problem
by peter 17 Oct '16

17 Oct '16

OSX 10.10.5, CCL 1.12-dev-r16779-trunk (DarwinX8664) ? (ql:quickload 'mcclim) ? To load "mcclim": Load 1 ASDF system: mcclim ; Loading "mcclim" ....... > Error: > > NOTE: > * McCLIM was unable to configure itself automatically using > fontconfig. Therefore you must configure it manually. > > While executing: MCCLIM-TRUETYPE::WARN-ABOUT-UNSET-FONT-PATH, in process Listener-2(5). > Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. > If continued: Proceed > Type :? for other options. 1 > Haven't begun digging into this, Fairly vanilla OSX. Peter

2 1

Font-Error?
by Juergen Dabel 06 Sep '16

06 Sep '16

;; the test example app from McCLIM ;; (in-package :common-lisp-user) (defpackage "APP" (:use :clim :clim-lisp) (:export "APP-MAIN")) (in-package :app) (define-application-frame superapp () () (:panes (int :interactor :height 400 :width 600)) (:layouts (default int))) (defun app-main () (run-frame-top-level (make-application-frame 'superapp))) ;; and when running (app-main): The value NIL is not of type (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING PATHNAME FILE-STREAM) [Condition of type TYPE-ERROR] Restarts: 0: [CHANGE-FONT-PATH] Retry with alternate truetype font path 1: [RETRY] Retry SLIME REPL evaluation request. 2: [*ABORT] Return to SLIME's top level. 3: [REMOVE-FD-HANDLER] Remove #<SB-IMPL::HANDLER INPUT on descriptor 7: #<CLOSURE (LABELS SWANK/SBCL::RUN :IN SWANK/BACKEND:ADD-FD-HANDLER) {1005CA16EB}>> 4: [ABORT] Exit debugger, returning to top level. Backtrace: 0: (MERGE-PATHNAMES #P"/opt/X11/share/fonts/TTF/Vera.ttf" NIL 55569512) [tl,external] 1: ((FLET MCCLIM-TRUETYPE::F :IN CLIM-CLX::TEXT-STYLE-TO-X-FONT)) 2: (MCCLIM-TRUETYPE::INVOKE-WITH-TRUETYPE-PATH-RESTART #<CLOSURE (FLET MCCLIM-TRUETYPE::F :IN CLIM-CLX::TEXT-STYLE-TO-X-FONT) {1007FEDAFB}>) 3: ((:METHOD CLIM-CLX::TEXT-STYLE-TO-X-FONT :AROUND (CLIM-CLX::CLX-PORT STANDARD-TEXT-STYLE)) #<CLIM-CLX::CLX-PORT :HOST "private/tmp/com.apple.launchd.qLhATu08W9/org.macosforge.xquartz" :DISPLAY-ID 0 {1.. 4: ((:METHOD CLIM-CLX::MEDIUM-GCONTEXT (CLIM-CLX::CLX-MEDIUM COLOR)) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<CLIM-INTERNALS::NAMED-COLOR "gray75">) [fast-method] 5: ((SB-PCL::EMF CLIM-CLX::MEDIUM-GCONTEXT) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<CLIM-INTERNALS::NAMED-COLOR "gray75">) 6: ((:METHOD CLIM-CLX::MEDIUM-DRAW-RECTANGLE-USING-INK* (CLIM-CLX::CLX-MEDIUM T T T T T T)) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<unavailable argument> 2 2 15 15 T) [fast-method] 7: ((:METHOD MEDIUM-DRAW-RECTANGLE* :AROUND (CLIM-INTERNALS::TRANSFORM-COORDINATES-MIXIN T T T T T)) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> 2 2 15 15 T) [fast-method] 8: ((:METHOD MEDIUM-DRAW-RECTANGLE* (SHEET T T T T T)) #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> 2 2 15 15 T) [fast-method] 9: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (MEDIUM T T)) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS.. 10: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS (SHEET T)) #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN DRAW-RECTANGLE*) {69FDFCB}> :INK #<CLIM-I.. 11: (DRAW-RECTANGLE* #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> 2 2 15 15 :INK #<CLIM-INTERNALS::NAMED-COLOR "gray75">) 12: ((FLET #:GCONTINUATION1825 :IN CLIM-INTERNALS::SCROLL-BAR/UPDATE-DISPLAY) #<unavailable argument>) 13: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (MEDIUM T T)) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN INVO.. 14: ((LABELS #:G428 :IN INVOKE-WITH-DRAWING-OPTIONS) #<CLIM-CLX::CLX-MEDIUM {10095F2DE3}>) 15: ((:METHOD INVOKE-WITH-DRAWING-OPTIONS (SHEET T)) #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> #<CLOSURE (FLET #:GCONTINUATION1825 :IN CLIM-INTERNALS::SCROLL-BAR/UPDATE-DISPLAY) {69FE43B}> :TRANSFO.. 16: (CLIM-INTERNALS::SCROLL-BAR/UPDATE-DISPLAY #<SCROLL-BAR-PANE "(Unnamed Pane)" {10095115F3}> 0) 17: ((:METHOD ALLOCATE-SPACE (SCROLLER-PANE T T)) #<SCROLLER-PANE "(Unnamed Pane)" {10095115A3}> 598 398) [fast-method] 18: ((:METHOD CLIM-INTERNALS::BOX-LAYOUT-MIXIN/VERTICALLY-ALLOCATE-SPACE (CLIM-INTERNALS::RACK-LAYOUT-MIXIN T T)) #<VRACK-PANE "(Unnamed Pane)" {100738BD93}> 600 404) [fast-method] 19: ((SB-PCL::EMF ALLOCATE-SPACE) #<unavailable argument> #<unavailable argument> #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {1009DED873}> 600 404) --more-- When clicking Vera.ttf I get an warning, when I use this font it may be possible to get possible an severe system error My System: OS X El Capitan (10.11.6) iMac (27“, End 2009) and SBCL 1.3.9 I think this could be solved, but I am not so versed in following all these messages. Thank you! Juergen Dabel Fruehlingstr. 11A 86529 Schrobenhausen Germany j.dabel(a)t-online.de

2 1

[fundraiser success]
by Daniel Kochmański 16 Aug '16

16 Aug '16

Dear all, we have succeeded with raising the funds for the current development – more information is covered here: https://common-lisp.net/project/mcclim/ We have also created three bounties for start (each priced for 100$): https://www.bountysource.com/teams/mcclim/bounties Thank you for all your support. Best regards, Daniel -- Daniel Kochmański ;; aka jackdaniel | Poznań, Poland TurtleWare - Daniel Kochmański | www.turtleware.eu "Be the change that you wish to see in the world." - Mahatma Gandhi

1 0

[funding][mcclim]
by Daniel Kochmański 12 Aug '16

12 Aug '16

Hey, as some of you probably know McCLIM project slowly progresses forward thanks to Robert Strandh support and help from various contributors. Today we've started a fundraiser on the Bountsource (salt) platform and we hope to secure the development thanks to that. You may read a blog post written by Robert at https://common-lisp.net/project/mcclim/posts/Crowdfunding-McCLIM-maintenanc… (McCLIM's blog). Thanks, Daniel Kochmański -- Daniel Kochmański ;; aka jackdaniel | Poznań, Poland TurtleWare - Daniel Kochmański | www.turtleware.eu "Be the change that you wish to see in the world." - Mahatma Gandhi

1 0

mcclim on windows?
by Fabrice Leal 12 Jul '16

12 Jul '16

hey, any pointers on using mcclim on windows? i was able to install it using quicklisp, but it always throws the same error when i try to run (clim-demo:demodemo) The value NIL is not of type NUMBER [Condition of type TYPE-ERROR] Restarts: 0: [USE-LOCALHOST] Use local unix display 1: [RETRY] Retry SLIME REPL evaluation request. 2: [*ABORT] Return to SLIME's top level. 3: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {10035B8033}>) -- --- Fabrice Leal

2 1

Implementing new backends?
by Fabrice Leal 12 Jul '16

12 Jul '16

I've read that there's been some work documenting mcclim's internals, i was wondering how hard can it be to implement a new backend? Like implementing a sdl2 backend, for instance (I've been fantasizing of making a xconq like clone using only sbcl + sdl2) -- --- Fabrice Leal

2 1

Crowd-funding McCLIM development maybe?
by Robert Strandh 07 Jun '16

07 Jun '16

Hello everybody, I am investigating the possibility of crowd-funding some work on McCLIM. The idea is to pay Daniel Kochmański to work on it around 10 hours per week for the foreseeable future. I can pitch in some of the cost for this myself, and I will probably pitch in all of it if nobody is interested in contributing. But the money I pitch in comes from my personal budget so it would be preferable to get some help. If some people would be willing to contribute around 50€ per month, it would not take many contributors to have a near-permanent effort. Smaller contributions would of course also be welcome. The work would initially consist of cleaning up the code as is already happening. Future work would consist of improving performance, adding new backends, creating a set of gadgets with a consistent look, fixing the current problems with mirrored sheets, improving the documentation, etc. But not necessarily in that order. If you are one of the people who would be interested in contributing, please send me an email with an approximate amount that you would be willing to contribute. I don't need a firm pledge. For now, I am just investigating whether this is a realistic idea or not. -- Robert Strandh

1 0