From daniel at turtleware.eu  Tue Sep  6 05:29:14 2016
From: daniel at turtleware.eu (Daniel =?utf-8?Q?Kochma=C5=84ski?=)
Date: Tue, 06 Sep 2016 07:29:14 +0200
Subject: Font-Error?
In-Reply-To: <3FBB52B2-81D6-4641-BCFF-A3EB9F0A248B@t-online.de>
References: <3FBB52B2-81D6-4641-BCFF-A3EB9F0A248B@t-online.de>
Message-ID: <87lgz5iok5.fsf@turtleware.eu>

Hello,

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

this is a known issue, please consult:
https://github.com/robert-strandh/McCLIM/issues/75

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


it definetely can be solved (see the comments on github entry) and will
be :)

Juergen Dabel writes:

>
> Juergen Dabel
> Fruehlingstr. 11A
> 86529 Schrobenhausen
> Germany
> j.dabel at t-online.de

Best regards,
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