mcclim-devel

mcclim-devel@common-lisp.net

820 discussions

Re: McCLIM Installation
by David Dmytryk 09 Apr '19

09 Apr '19

Will look into it Andreas. I have McClim running, but not using Truetype Thanks for responding David > On Apr 9, 2019, at 2:52 AM, Andreas Davour <ante(a)update.uu.se> wrote: > > > From your path I'm guessing you're on mac? There is a tool called "fontconfig" for linux. It could be that someone decided to call out to that program, expecting it to be around. It's a guess, and I don't have the source nor time to confirm at the moment. If someone don't have a better suggestion it might be worth following up on. > > > /andreas > >> On Mon, 8 Apr 2019, David Dmytryk wrote: >> >> Stas >> >> Your suggestion to check asdf version prompted me to check version of CL-PPCRE. It was old - I replaced it with latest version and placed the entire cl-ppre-master folder in my home quicklisp/local-projects/libraries folder. It solved the “standard-optimize-settings” problem. >> >> However, when loading McCLIM now getting an 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(4). >> >> I checked for availability of truetype, and found a TTF folder which I also copied to my Quicklisp local-projects folder. Tried re-running load McCLIM and still shows same problem. The detailed lisp response is below. >> >> Again, would appreciate any advice from you or anyone else who might help resolve. >> >> Thanks >> >> David >> __________________________________________ >> >> Details: >> >> ? (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(4). >>> Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. >>> If continued: Proceed >>> Type :? for other options. >> 1 > ? >> The following toplevel commands are available: >> <n> the same as (:C <n>) >> (:FUNCTION FRAME-NUMBER) Returns the function invoked in backtrace frame <frame-number>. This may be useful for, e.g., disassembly >> (:FORM FRAME-NUMBER) Return a form which looks like the call which established the stack frame identified by <frame-number>. This is only well-defined in certain cases: when the function is globally named and not a lexical closure and when it was compiled with *SAVE-LOCAL-SYMBOLS* in effect. >> (:SET-LOCAL NAME FRAME-NUMBER NEW) Set value of argument denoted <name> (see :LOCAL) in frame <frame-number> to value <new>. >> (:LOCAL NAME FRAME-NUMBER) Return value of local denoted by <name> in frame <frame-number> <name> can either be a symbol - in which case the most recent >> binding of that symbol is used - or an integer index into the frame's set of local bindings. >> (:SET-ARG NAME FRAME-NUMBER NEW) Set value of argument named <name> in frame <frame-number> to value <new>. >> (:ARG NAME FRAME-NUMBER) Return value of argument named <name> in frame <frame-number> >> (:V N FRAME-NUMBER) Return value <n> in frame <frame-number> >> (:RAW N) Show raw contents of backtrace frame <n> >> (:APPLY-IN-FRAME I FUNCTION &REST ARGS) Applies FUNCTION to ARGS in the execution context of the Ith stack frame >> (:RETURN-FROM-FRAME I &REST VALUES) Return VALUES from the I'th stack frame >> (:F N) Show backtrace frame <n> >> (:C &OPTIONAL N) Choose restart <n>. If no <n>, continue >> (:B &KEY START COUNT SHOW-FRAME-CONTENTS) backtrace >> :NFRAMES print the number of stack frames accessible from this break loop >> :R list restarts >> :Q return to toplevel >> :GO continue >> :A exit current break loop >> :POP exit current break loop >> :KAP Release (but don't reestablish) *LISTENER-AUTORELEASE-POOL* >> :SAP Log information about current thread's autorelease-pool(s) to C's standard error stream >> :RAP Release and reestablish *LISTENER-AUTORELEASE-POOL* >> :? help >> :PWD Print the pathame of the current directory >> (:CD DIR) Change to directory DIR (e.g., #p"ccl:" or "/some/dir") >> (:PROC &OPTIONAL P) Show information about specified process /all processes >> (:KILL P) Kill process whose name or ID matches >> (:Y &OPTIONAL P) Yield control of terminal-input to process >> whose name or ID matches , or to any process if is null >> Any other form is evaluated and its results are printed out. >> 1 > q >> ? >> >>> On Apr 7, 2019, at 12:20 PM, Stas Boukarev <stassats(a)gmail.com> wrote: >>> >>> I can only suggest deleting quicklisp and retrying. >>> >>>> On Sun, Apr 7, 2019 at 7:19 PM David Dmytryk <ddmytryk(a)icloud.com> wrote: >>>> >>>> CL-USER> (asdf:asdf-version) >>>> "3.2.0" >>>> CL-USER> >>>> >>>> >>>> The error message is: >>>> >>>> Read error between positions 7396 and 7665 in /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp. >>>> >>>> >>>> The installation is using …util.lisp from the cl-unicode folder, different than the cl-ppcre folder. Not sure whether this is a problem >>>> >>>> >>>> >>>>> On Apr 7, 2019, at 12:05 PM, Stas Boukarev <stassats(a)gmail.com> wrote: >>>>> >>>>> Where does >>>>> Invoking restart: Ignore attempt to IMPORT >>>>> "*STANDARD-OPTIMIZE-SETTINGS*" from package "CL-PPCRE" >>>>> come frome? >>>>> >>>>> And what's your (asdf:asdf-version)? >>>>> >>>>>> On Sun, Apr 7, 2019 at 7:03 PM David Dmytryk <ddmytryk(a)icloud.com> wrote: >>>>>> >>>>>> Here is result of loading and testing cl-ppcre, then loading mcclim: >>>>>> >>>>>> >>>>>> CL-USER> (ql:quickload :cl-ppcre) >>>>>> To load "cl-ppcre": >>>>>> Load 1 ASDF system: >>>>>> cl-ppcre >>>>>> ; Loading "cl-ppcre" >>>>>> >>>>>> (:CL-PPCRE) >>>>>> CL-USER> (asdf:oos 'asdf:test-op :cl-ppcre) >>>>>> #<TEST-OP> >>>>>> #<ASDF/PLAN:SEQUENTIAL-PLAN #x302003D29B6D> >>>>>> CL-USER> (ql:quickload 'mcclim) >>>>>> To load "mcclim": >>>>>> Load 1 ASDF system: >>>>>> mcclim >>>>>> ; Loading "mcclim" >>>>>> Invoking restart: Ignore attempt to IMPORT "*STANDARD-OPTIMIZE-SETTINGS*" from package "CL-PPCRE" >>>>>> . >>>>>> Read error between positions 7396 and 7665 in /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp. >>>>>> Invoking restart: Retry getting the value of CL-UNICODE::*STANDARD-OPTIMIZE-SETTINGS*. >>>>>> Read error between positions 7396 and 7665 in /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp.; Evaluation aborted on #<UNBOUND-VARIABLE #x302003F8238D>. >>>>>> CL-USER> (asdf:oos 'asdf:test-op :cl-ppcre) >>>>>> >>>>>> #<TEST-OP> >>>>>> #<ASDF/PLAN:SEQUENTIAL-PLAN #x302004049A2D> >>>>>> >>>>>>> On Apr 7, 2019, at 11:57 AM, David Dmytryk <ddmytryk(a)icloud.com> wrote: >>>>>>> >>>>>>> It is installed in home folder ~quicklisp/dists/quicklisp/software/cl-ppcre-20180831-git/cl-ppcre-unicode >>>>>>> >>>>>>> May have made a mess with location? >>>>>>> >>>>>>>> On Apr 7, 2019, at 11:48 AM, Stas Boukarev <stassats(a)gmail.com> wrote: >>>>>>>> >>>>>>>> So, is it working when you use the quicklisp one? >>>>>>>> >>>>>>>>> On Sun, Apr 7, 2019 at 6:47 PM David Dmytryk <ddmytryk(a)icloud.com> wrote: >>>>>>>>> >>>>>>>>> Thanks for responding Stas >>>>>>>>> >>>>>>>>> Yes - it is >>>>>>>>> >>>>>>>>> David >>>>>>>>> >>>>>>>>>> On Apr 7, 2019, at 11:45 AM, Stas Boukarev <stassats(a)gmail.com> wrote: >>>>>>>>>> >>>>>>>>>> Is your cl-ppcre not coming from quicklisp? >>>>>>>>>> >>>>>>>>>>> On Sun, Apr 7, 2019 at 6:23 PM David Dmytryk <ddmytryk(a)icloud.com> wrote: >>>>>>>>>>> >>>>>>>>>>> Hi >>>>>>>>>>> >>>>>>>>>>> Wondering if anybody could help with solution or advice on installing McCLIM on macOS Mojave, running CCL under Emacs / Slime (Clozure Common Lisp Version 1.12-dev (v1.12-dev.4-6-gc3b1e184) DarwinX8664). >>>>>>>>>>> >>>>>>>>>>> I tried to install using Quicklisp and received error response as below. >>>>>>>>>>> >>>>>>>>>>> I am new to lisp, and heavily in learning-mode - would appreciate any help. >>>>>>>>>>> >>>>>>>>>>> Kind Regards >>>>>>>>>>> >>>>>>>>>>> David Dmytryk >>>>>>>>>>> >>>>>>>>>>> >>>>>>>>>>> CL-USER> (ql:quickload 'mcclim) >>>>>>>>>>> To load "mcclim": >>>>>>>>>>> Load 1 ASDF system: >>>>>>>>>>> mcclim >>>>>>>>>>> ; Loading "mcclim" >>>>>>>>>>> Invoking restart: Ignore attempt to IMPORT "*STANDARD-OPTIMIZE-SETTINGS*" from package "CL-PPCRE" >>>>>>>>>>> . >>>>>>>>>>> Read error between positions 7396 and 7665 in /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp. >>>>>>>>>>> Invoking restart: Retry getting the value of CL-UNICODE::*STANDARD-OPTIMIZE-SETTINGS*. >>>>>>>>>>> Read error between positions 7396 and 7665 in /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp.; Evaluation aborted on #<UNBOUND-VARIABLE #x302003F8238D>. >>>>>>>>> >>>> >> >> >> > > -- > "economics is a pseudoscience; the astrology of our time" > Kim Stanley Robinson

1 0

Re: McCLIM Installation
by Elias Mårtenson 09 Apr '19

09 Apr '19

You might want to try with the Freetype renderer as well. It uses CFFI to talk directly with the Fontconfig library. Regards, Elias On Tue, 9 Apr 2019, 14:54 Andreas Davour, <ante(a)update.uu.se> wrote: > > From your path I'm guessing you're on mac? There is a tool called > "fontconfig" for linux. It could be that someone decided to call out to > that program, expecting it to be around. It's a guess, and I don't have > the source nor time to confirm at the moment. If someone don't have a > better suggestion it might be worth following up on. > > > /andreas > > On Mon, 8 Apr 2019, David Dmytryk wrote: > > > Stas > > > > Your suggestion to check asdf version prompted me to check version of > CL-PPCRE. It was old - I replaced it with latest version and placed the > entire cl-ppre-master folder in my home quicklisp/local-projects/libraries > folder. It solved the “standard-optimize-settings” problem. > > > > However, when loading McCLIM now getting an 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(4). > > > > I checked for availability of truetype, and found a TTF folder which I > also copied to my Quicklisp local-projects folder. Tried re-running load > McCLIM and still shows same problem. The detailed lisp response is below. > > > > Again, would appreciate any advice from you or anyone else who might > help resolve. > > > > Thanks > > > > David > > __________________________________________ > > > > Details: > > > > ? (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(4). > >> Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available > restarts. > >> If continued: Proceed > >> Type :? for other options. > > 1 > ? > > The following toplevel commands are available: > > <n> the same as (:C <n>) > > (:FUNCTION FRAME-NUMBER) Returns the function invoked in backtrace > frame <frame-number>. This may be useful for, e.g., disassembly > > (:FORM FRAME-NUMBER) Return a form which looks like the call which > established the stack frame identified by <frame-number>. This is only > well-defined in certain cases: when the function is globally named and not > a lexical closure and when it was compiled with *SAVE-LOCAL-SYMBOLS* in > effect. > > (:SET-LOCAL NAME FRAME-NUMBER NEW) Set value of argument denoted <name> > (see :LOCAL) in frame <frame-number> to value <new>. > > (:LOCAL NAME FRAME-NUMBER) Return value of local denoted by <name> in > frame <frame-number> <name> can either be a symbol - in which case the most > recent > > binding of that symbol is used - or an integer index into the frame's > set of local bindings. > > (:SET-ARG NAME FRAME-NUMBER NEW) Set value of argument named <name> in > frame <frame-number> to value <new>. > > (:ARG NAME FRAME-NUMBER) Return value of argument named <name> in frame > <frame-number> > > (:V N FRAME-NUMBER) Return value <n> in frame <frame-number> > > (:RAW N) Show raw contents of backtrace frame <n> > > (:APPLY-IN-FRAME I FUNCTION &REST ARGS) Applies FUNCTION to ARGS in the > execution context of the Ith stack frame > > (:RETURN-FROM-FRAME I &REST VALUES) Return VALUES from the I'th stack > frame > > (:F N) Show backtrace frame <n> > > (:C &OPTIONAL N) Choose restart <n>. If no <n>, continue > > (:B &KEY START COUNT SHOW-FRAME-CONTENTS) backtrace > > :NFRAMES print the number of stack frames accessible from this break > loop > > :R list restarts > > :Q return to toplevel > > :GO continue > > :A exit current break loop > > :POP exit current break loop > > :KAP Release (but don't reestablish) *LISTENER-AUTORELEASE-POOL* > > :SAP Log information about current thread's autorelease-pool(s) to C's > standard error stream > > :RAP Release and reestablish *LISTENER-AUTORELEASE-POOL* > > :? help > > :PWD Print the pathame of the current directory > > (:CD DIR) Change to directory DIR (e.g., #p"ccl:" or "/some/dir") > > (:PROC &OPTIONAL P) Show information about specified process /all > processes > > (:KILL P) Kill process whose name or ID matches > > (:Y &OPTIONAL P) Yield control of terminal-input to process > > whose name or ID matches , or to any process if is null > > Any other form is evaluated and its results are printed out. > > 1 > q > > ? > > > >> On Apr 7, 2019, at 12:20 PM, Stas Boukarev <stassats(a)gmail.com> wrote: > >> > >> I can only suggest deleting quicklisp and retrying. > >> > >> On Sun, Apr 7, 2019 at 7:19 PM David Dmytryk <ddmytryk(a)icloud.com> > wrote: > >>> > >>> CL-USER> (asdf:asdf-version) > >>> "3.2.0" > >>> CL-USER> > >>> > >>> > >>> The error message is: > >>> > >>> Read error between positions 7396 and 7665 in > /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp. > >>> > >>> > >>> The installation is using …util.lisp from the cl-unicode folder, > different than the cl-ppcre folder. Not sure whether this is a problem > >>> > >>> > >>> > >>>> On Apr 7, 2019, at 12:05 PM, Stas Boukarev <stassats(a)gmail.com> > wrote: > >>>> > >>>> Where does > >>>> Invoking restart: Ignore attempt to IMPORT > >>>> "*STANDARD-OPTIMIZE-SETTINGS*" from package "CL-PPCRE" > >>>> come frome? > >>>> > >>>> And what's your (asdf:asdf-version)? > >>>> > >>>> On Sun, Apr 7, 2019 at 7:03 PM David Dmytryk <ddmytryk(a)icloud.com> > wrote: > >>>>> > >>>>> Here is result of loading and testing cl-ppcre, then loading mcclim: > >>>>> > >>>>> > >>>>> CL-USER> (ql:quickload :cl-ppcre) > >>>>> To load "cl-ppcre": > >>>>> Load 1 ASDF system: > >>>>> cl-ppcre > >>>>> ; Loading "cl-ppcre" > >>>>> > >>>>> (:CL-PPCRE) > >>>>> CL-USER> (asdf:oos 'asdf:test-op :cl-ppcre) > >>>>> #<TEST-OP> > >>>>> #<ASDF/PLAN:SEQUENTIAL-PLAN #x302003D29B6D> > >>>>> CL-USER> (ql:quickload 'mcclim) > >>>>> To load "mcclim": > >>>>> Load 1 ASDF system: > >>>>> mcclim > >>>>> ; Loading "mcclim" > >>>>> Invoking restart: Ignore attempt to IMPORT > "*STANDARD-OPTIMIZE-SETTINGS*" from package "CL-PPCRE" > >>>>> . > >>>>> Read error between positions 7396 and 7665 in > /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp. > >>>>> Invoking restart: Retry getting the value of > CL-UNICODE::*STANDARD-OPTIMIZE-SETTINGS*. > >>>>> Read error between positions 7396 and 7665 in > /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp.; > Evaluation aborted on #<UNBOUND-VARIABLE #x302003F8238D>. > >>>>> CL-USER> (asdf:oos 'asdf:test-op :cl-ppcre) > >>>>> > >>>>> #<TEST-OP> > >>>>> #<ASDF/PLAN:SEQUENTIAL-PLAN #x302004049A2D> > >>>>> > >>>>>> On Apr 7, 2019, at 11:57 AM, David Dmytryk <ddmytryk(a)icloud.com> > wrote: > >>>>>> > >>>>>> It is installed in home folder > ~quicklisp/dists/quicklisp/software/cl-ppcre-20180831-git/cl-ppcre-unicode > >>>>>> > >>>>>> May have made a mess with location? > >>>>>> > >>>>>>> On Apr 7, 2019, at 11:48 AM, Stas Boukarev <stassats(a)gmail.com> > wrote: > >>>>>>> > >>>>>>> So, is it working when you use the quicklisp one? > >>>>>>> > >>>>>>>> On Sun, Apr 7, 2019 at 6:47 PM David Dmytryk <ddmytryk(a)icloud.com> > wrote: > >>>>>>>> > >>>>>>>> Thanks for responding Stas > >>>>>>>> > >>>>>>>> Yes - it is > >>>>>>>> > >>>>>>>> David > >>>>>>>> > >>>>>>>>> On Apr 7, 2019, at 11:45 AM, Stas Boukarev <stassats(a)gmail.com> > wrote: > >>>>>>>>> > >>>>>>>>> Is your cl-ppcre not coming from quicklisp? > >>>>>>>>> > >>>>>>>>>> On Sun, Apr 7, 2019 at 6:23 PM David Dmytryk < > ddmytryk(a)icloud.com> wrote: > >>>>>>>>>> > >>>>>>>>>> Hi > >>>>>>>>>> > >>>>>>>>>> Wondering if anybody could help with solution or advice on > installing McCLIM on macOS Mojave, running CCL under Emacs / Slime > (Clozure Common Lisp Version 1.12-dev (v1.12-dev.4-6-gc3b1e184) > DarwinX8664). > >>>>>>>>>> > >>>>>>>>>> I tried to install using Quicklisp and received error response > as below. > >>>>>>>>>> > >>>>>>>>>> I am new to lisp, and heavily in learning-mode - would > appreciate any help. > >>>>>>>>>> > >>>>>>>>>> Kind Regards > >>>>>>>>>> > >>>>>>>>>> David Dmytryk > >>>>>>>>>> > >>>>>>>>>> > >>>>>>>>>> CL-USER> (ql:quickload 'mcclim) > >>>>>>>>>> To load "mcclim": > >>>>>>>>>> Load 1 ASDF system: > >>>>>>>>>> mcclim > >>>>>>>>>> ; Loading "mcclim" > >>>>>>>>>> Invoking restart: Ignore attempt to IMPORT > "*STANDARD-OPTIMIZE-SETTINGS*" from package "CL-PPCRE" > >>>>>>>>>> . > >>>>>>>>>> Read error between positions 7396 and 7665 in > /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp. > >>>>>>>>>> Invoking restart: Retry getting the value of > CL-UNICODE::*STANDARD-OPTIMIZE-SETTINGS*. > >>>>>>>>>> Read error between positions 7396 and 7665 in > /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp.; > Evaluation aborted on #<UNBOUND-VARIABLE #x302003F8238D>. > >>>>>>>> > >>> > > > > > > > > -- > "economics is a pseudoscience; the astrology of our time" > Kim Stanley Robinson

2 1

McCLIM Installation
by David Dmytryk 08 Apr '19

08 Apr '19

Hi Wondering if anybody could help with solution or advice on installing McCLIM on macOS Mojave, running CCL under Emacs / Slime (Clozure Common Lisp Version 1.12-dev (v1.12-dev.4-6-gc3b1e184) DarwinX8664). I tried to install using Quicklisp and received error response as below. I am new to lisp, and heavily in learning-mode - would appreciate any help. Kind Regards David Dmytryk CL-USER> (ql:quickload 'mcclim) To load "mcclim": Load 1 ASDF system: mcclim ; Loading "mcclim" Invoking restart: Ignore attempt to IMPORT "*STANDARD-OPTIMIZE-SETTINGS*" from package "CL-PPCRE" . Read error between positions 7396 and 7665 in /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp. Invoking restart: Retry getting the value of CL-UNICODE::*STANDARD-OPTIMIZE-SETTINGS*. Read error between positions 7396 and 7665 in /Users/daviddmytryk/quicklisp/dists/quicklisp/software/cl-unicode-20180328-git/util.lisp.; Evaluation aborted on #<UNBOUND-VARIABLE #x302003F8238D>.

2 9

command-tables (still)
by Greg Bennett 18 Mar '19

18 Mar '19

From Greg Bennett running sbcl 1.4.11 (64bit) under linux mint 18.1 (64bit) and using mcclim-2019-0202-git, as far as I can tell. I'm trying to learn how to add and remove menus from an existing menubar which I presume is done through its associated command-table. In the interests of completeness I include the contents of the example file. If this is a silly thing to do, let me know. From that git, I'm using the file Examples/menutest.lisp as a basis for experiments with menus, menubars, adding and removing menus. ;; START File contents of Examples/menutest.lisp ;;; (c) copyright 2000 by ;;; Robert Strandh (robert.strandh(a)gmail.com) ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public ;;; License as published by the Free Software Foundation; either ;;; version 2 of the License, or (at your option) any later version. ;;; ;;; This library is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; Library General Public License for more details. ;;; ;;; You should have received a copy of the GNU Library General Public ;;; License along with this library; if not, write to the ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. (defpackage #:menutest (:use :clim :clim-extensions :clim-lisp) (:export #:menutest)) (in-package #:menutest) (define-application-frame menutest () () (:menu-bar menubar-command-table) (:panes (screen :application :display-time nil :text-style (make-text-style :sans-serif :roman :normal))) (:layouts (defaults (vertically () screen)))) (define-menutest-command com-file () (format *standard-output* "You pressed the File button.~%") (finish-output *standard-output*)) (define-menutest-command com-hello () (format *standard-output* "You pressed the Hello button.~%") (finish-output *standard-output*)) (define-menutest-command com-hi () (format *standard-output* "You pressed the Hi button.~%") (finish-output *standard-output*)) (make-command-table 'buffer-command-table :errorp nil :menu '(("Hello there" :command com-hello) ("Hi there" :command com-hi))) (make-command-table 'menubar-command-table :errorp nil :menu '(("Buffer" :menu buffer-command-table) ("File" :command com-file))) ;; END file contents Inside the package menutest, I added this form: (defun run-menutest (thread-name) (flet ((run () (let ((frame (make-application-frame 'menutest))) (run-frame-top-level frame)))) (sb-thread::make-thread #'run :name thread-name))) so that I can create the frame and keep the listener. With Daniel's help I can see what is on the command-table: (let (foo) (map-over-command-table-commands (lambda (elt) (push elt foo)) (frame-command-table (find-application-frame 'menutest))) ;; from CLIM 2 P201 [f-c-t], P178 [f-a-f] 'menutest ;;; from define application-frame itself (nreverse foo)) ;; -> (COM-FILE COM-HELLO COM-HI CLIM-INTERNALS::COM-NULL-COMMAND CLIM-INTERNALS::COM-HELP CLIM-INTERNALS::COM-DESCRIBE CLIM-INTERNALS::COM-DESCRIBE-PRESENTATION CLIM-TAB-LAYOUT:COM-SWITCH-TO-TAB-PAGE CLIM-TAB-LAYOUT:COM-REMOVE-TAB-PAGE) And I seem to be able to add a command: (define-menutest-command com-RWO () (format *standard-output* "Fearless Leader~%") (finish-output *standard-output*)) ;; followed by [CLIM2.2 P219] (add-menu-item-to-command-table (frame-command-table (find-application-frame 'menutest)) "RWO" :command (cons 'COM-RWO (list ()))) ;; -> NIL ;; Does NIL indicate something is wrong, I wonder ? ;; Rerun (let ..) (COM-FILE COM-HELLO COM-HI COM-RWO CLIM-INTERNALS::COM-NULL-COMMAND CLIM-INTERNALS::COM-HELP CLIM-INTERNALS::COM-DESCRIBE CLIM-INTERNALS::COM-DESCRIBE-PRESENTATION CLIM-TAB-LAYOUT:COM-SWITCH-TO-TAB-PAGE CLIM-TAB-LAYOUT:COM-REMOVE-TAB-PAGE) ;;; and there it seems to be. I had hoped that the application-frame would now show RWO. Do I have to explicitly redisplay the items of the frame's menubar, perhaps ? My attempts to use (display-command-table-menu ..) each yield a no applicable method error. I would appreciate pointers to what I am still missing in exploring command-tables. Cheers /Greg Bennett

1 0

Help understanding command tables
by Greg Bennett 07 Mar '19

07 Mar '19

From Greg Bennett running sbcl 1.4.11 (64bit) under linux mint 18.1 (64bit) and using mcclim-2019-0202-git, as far as I can tell. From that git, I'm using the file Examples/menutest.lisp as a basis for experiments with menus, menubars, adding and removing menus. ;; START File contents of Examples/menutest.lisp ;;; (c) copyright 2000 by ;;; Robert Strandh (robert.strandh(a)gmail.com) ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public ;;; License as published by the Free Software Foundation; either ;;; version 2 of the License, or (at your option) any later version. ;;; ;;; This library is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; Library General Public License for more details. ;;; ;;; You should have received a copy of the GNU Library General Public ;;; License along with this library; if not, write to the ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. (defpackage #:menutest (:use :clim :clim-extensions :clim-lisp) (:export #:menutest)) (in-package #:menutest) (define-application-frame menutest () () (:menu-bar menubar-command-table) (:panes (screen :application :display-time nil :text-style (make-text-style :sans-serif :roman :normal))) (:layouts (defaults (vertically () screen)))) (define-menutest-command com-file () (format *standard-output* "You pressed the File button.~%") (finish-output *standard-output*)) (define-menutest-command com-hello () (format *standard-output* "You pressed the Hello button.~%") (finish-output *standard-output*)) (define-menutest-command com-hi () (format *standard-output* "You pressed the Hi button.~%") (finish-output *standard-output*)) (make-command-table 'buffer-command-table :errorp nil :menu '(("Hello there" :command com-hello) ("Hi there" :command com-hi))) (make-command-table 'menubar-command-table :errorp nil :menu '(("Buffer" :menu buffer-command-table) ("File" :command com-file))) ;; END file contents Inside the package menutest, I added this form: (defun run-menutest (thread-name) (flet ((run () (let ((frame (make-application-frame 'menutest))) (run-frame-top-level frame)))) (sb-thread::make-thread #'run :name thread-name))) so that I can create the frame and keep the listener. All seems to function as expected, so I tried to find out a little about what I had created: (find-command-table 'menubar-command-table) ; -> #<STANDARD-COMMAND-TABLE MENUBAR-COMMAND-TABLE {10018D6A43}> ;; OK (command-table-name (find-command-table 'menubar-command-table)) ;; ->MENUBAR-COMMAND-TABLE ;; possibly good ;;; Before trying to modify things, check which commands are there (map-over-command-table-commands #'command-name (find-command-table 'menubar-command-table)) ;;-> The value CLIM-INTERNALS::COM-NULL-COMMAND is not of type LIST I would appreciate pointers to what I have missed so far in exploring command-tables. Cheers /Greg Bennett

2 1

LIST-PANE issue on McClim 20190107-git (from Quicklisp distribution) with SBCL 1.4.15 (Win10_64 bits)
by Frederic Bastenaire 25 Jan '19

25 Jan '19

Hello fellow lispers, while playing with LISP-PANE gadget, I noticed that the highlighting color was not set properly in many cases to mark the selected item, resulting in an invisible item (the selected item text itself being written in white on white). After some investigation, I found the code for HANDLE-REPAINT method of GENERIC-LIST-PANE (in .....\mcclim-20190107-git\Core\clim-core\gadgets.lisp) was correct, but "misinterpreted" by the SBCL compiler, as it was working properly only with (debug 3) option... It is the MULTIPLE-VALUE-BIND form setting background/foreground inks that seems to suffer bad optimisation or whatever and does not work all the time !? I'll submit this to SBCL as it is not a McClim bug... but in the meantime, replacing the HANDLE-REPAINT method of GENERIC-LIST-PANE by the proposed code below seems to works fine. It does exactly the same thing without using multiple values. Best regards and thank you for reviving CLIM, it reminds me of the good ol' days on my Symbolics 3645. Frederic Bastenaire (fbast at fbast dot net) ---------------------------------------------------------------------------------------- ;; Modified version with "multiple-value-bind" replaced by regular SETQ for background/foreground (defmethod handle-repaint ((pane generic-list-pane) region) (with-bounding-rectangle* (sx0 sy0 sx1 sy1) (sheet-region pane) (declare (ignore sx1 sy1) ) (with-bounding-rectangle* (rx0 ry0 rx1 ry1) (if (bounding-rectangle-p region) region (or (pane-viewport-region pane) ; workaround for +everywhere+ (sheet-region pane))) (let ((item-height (generic-list-pane-item-height pane)) (highlight-ink (list-pane-highlight-ink pane))) (do* ((index (floor (- ry0 sy0) item-height) (1+ index)) (elt-index (+ index (items-origin pane)) (1+ elt-index))) ((or (> (+ sy0 (* item-height index)) ry1) (>= elt-index (generic-list-pane-items-length pane)) (>= elt-index (+ (items-origin pane) (visible-items pane))))) (let ((y0 (+ sy0 (* index item-height))) (y1 (+ sy0 (* (1+ index) item-height))) (bg (pane-background pane)) (fg (pane-foreground pane))) (when (and (slot-boundp pane 'value) ; when value bound and item selected (if (list-pane-exclusive-p pane) (funcall (list-pane-test pane) ; exclusive-selectable (elt (generic-list-pane-item-values pane) elt-index) (gadget-value pane)) (member (elt (generic-list-pane-item-values pane) ;multi-selectable elt-index) (gadget-value pane) :test (list-pane-test pane)))) (setq bg highlight-ink ;then hilight! fg (pane-background pane)) ) (draw-rectangle* pane rx0 y0 rx1 y1 :filled t :ink bg) (let ((x sx0) (y (+ y0 (text-style-ascent (pane-text-style pane) pane))) (el (elt (generic-list-pane-item-strings pane) elt-index))) (if (gadget-active-p pane) (draw-text* pane el x y :ink fg :text-style (pane-text-style pane)) (progn (draw-text* pane el (1+ x) (1+ y) :ink *3d-light-color* :text-style (pane-text-style pane)) (draw-text* pane el (1+ x) (1+ y) :ink *3d-dark-color* :text-style (pane-text-style pane)))))))))))

2 2

"Yule" progress report
by Daniel Kochmański 31 Dec '18

31 Dec '18

Dear All, we have published a progress report for year 2018: https://common-lisp.net/project/mcclim/posts/Yule-progress-report.html If you have any remarks please share them here on on #clim channel at freenode. Merry Hacking And a Happy New Year! Daniel Kochmański

1 0

[CLIM II][copyright]
by Daniel Kochmański 28 Nov '18

28 Nov '18

Dear Mr. McKay, my name is Daniel Kochmański and I'm the current maintainer of McCLIM. We have a recurring dispute about "CLIM II Specification" which is distributed with the library about its licensing. I know you were kind enough to agree for us to use it, however we are not sure if we are allowed to modify it (with appropriate annotation about changes) and incorporate parts of it in other documents. I'm writing to you with these questions: - What is the document legal status? Who is the copyright owner and what license does it have? - Are we allowed to redistribute it (like we do like now) with the source code of McCLIM? - Are we allowed to modify the document and incorporate parts of it in other documents (i.e in a manual)? - Are we allowed to create a derivative work based on it to clarify or some sections or even extend it? Thank you for your time taken to answer these questions. I'm adding mcclim-devel mailing list to CC, for all other community members to see questions (and hopefully, the answer). Best regards, Daniel Kochmański

2 1

bidi code licensing
by Alex Schröder 23 Oct '18

23 Oct '18

Hi all This mail is to confirming that I'm OK with releasing a derivative of my bidi code under LGPL2.1+. A copy of my code, written in Emacs Lisp, can be found here: https://github.com/kensanata/emacs-bidi Cheers Alex

2 1

Stuck trying to get this to build in AppVeyor, think it's related to the TrueType setup error in Windows
by pouar＠pouar.net 04 Sep '18

04 Sep '18

Tried wrapping it in handler-case but it doesn't seem to be working on AppVeyor Console output https://ci.appveyor.com/project/pouar/appveyor-test/build/1.0.25 Script used to install dependencies as AppVeyor might expect this to be separate https://gitlab.com/pouar/appveyor-test/blob/d889e5109ec5a56e52e875b8a125e0d… Script for building https://gitlab.com/pouar/appveyor-test/blob/d889e5109ec5a56e52e875b8a125e0d… -- GPG Keys: https://keybase.io/pouar Tox ID: 2EA7A6D5494C10B2E0F32004A1E9CBD971777E551A902059E5EA7E73E5A299272F29D9FF5F6A Matrix ID: @Pouar:matrix.org Social Links: https://www.pouar.net/social.php

1 1

← Newer
1
2
3
4
5
6
7
8
9
...
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