- ltk-user - mailman3.common-lisp.net

Sending events from lisp outside ltk context
by Orm Finnendahl 12 Feb '23

12 Feb '23

Hi, after creating a ltk window with the following code: (ltk:with-ltk () (let ((c (make-instance 'ltk:canvas :width 500 :height 500))) (ltk:pack c) (let ((txt (ltk:create-text c 200 100 "lorem ipsum dolor sit amet consectetur adipiscing elit")))))) Is there a way to change the text in the textbox from the outside? Storing the canvas instance in a global variable and using #'ltk:itemconfigure on it doesn't work. I'd like to somehow hook into the main loop in order to change items from the lisp process outside of the with-ltk within the ltk context, like calling an event queue or sending events to the wish event handler which triggers the execution of functions within the ltk context. Any help is appreciated! -- Orm

1 0

[ANN] ltk-plotchart
by Peter Lane 11 Apr '21

11 Apr '21

Hi list, I have written a wrapper around the tklib/plotchart library to work with LTk. This includes over 20 different chart types (xy-plots, gantt charts, 3d-bar charts etc...). Many examples ported over from TCL appear to be working well. For information and to download, see: https://peterlane.netlify.app/ltk-plotchart/ Let me know if you come across any problems. So far I've only tested it on the included examples. -- Peter

1 0

ltk examples
by Peter Lane 09 Apr '21

09 Apr '21

Hi list, This is a very quiet list, so I hope someone's out there! I have spent the last couple of weeks in LTk-land, and having a lot of fun on the way. This message is in the way of an annoucement - I went through the tkdocs tutorial and converted many of the examples to LTk. I've put these together as: https://peterlane.netlify.app/ltk-examples/ Maybe these will be useful to someone. -- Peter.

3 3

Prompting A User For a Canvas Click
by Ryan Burnside 11 Dec '20

11 Dec '20

[Apologies to the postmaster if this was originally sent via rburnside(a)fumico.net, please delete that thread. This account is the registered one] Hello All, I'm currently caught in a catch22. I wish to make a CAD like program for diagram drawing. This means I need to draw lines and boxes and such - stuff Ltk's canvas is quite capable of. Here is the kicker, I want to let the user define their own complex drawing functions which would get sucked up into my Ltk program when it starts. The problem is, the minute a user's function gets executed, Ltk would stop updating. So, if they had a dynamic user defined function that needed points (as clicked by the canvas) Ltk would freeze and their user defined function could not get the points from the interface. Suppose a user loaded a command like so: (defun draw-foo (&key (pt1 nil) (pt2 nil)) (unless (or pt1 pt2) (setf pt1 (prompt-canvas "Define point 1 of FOO.")) (setf pt2 (prompt-canvas "Define point 2 of FOO."))) (user-defined-drawing-nonsense pt1 pt2)) We can't hit PROMPT-CANVAS because at that point the program flow is entered the DRAW-FOO body. Ltk is great for forms but keeping both Lisp waiting for a value and Ltk catching events seems very tricky. Sincerely, Ryan Burnside (Pixel_Outlaw)

2 6

Re: canvas
by igor denisov 09 Nov '20

09 Nov '20

Hi there, I cannot figure out how to use canvas. I JUST DO NOT KNOW WHERE TO LOOK FOR THE ANSWER LTK> (let* (;;(f (make-instance 'frame)) (c (make-instance 'canvas :width WIDTH :height HEIGHT)) (line (create-line c 20 20 40 40)) ;;(pack f) (pack c) ;;(itemconfigure c line arrow first) ;; HOW TO MAKE IT WORK !!!!!!!!!!!!!!! )) ; in: ; LET* ((C (MAKE-INSTANCE 'CANVAS :WIDTH WIDTH :HEIGHT HEIGHT)) ; (LINE (CREATE-LINE C 20 20 40 40)) (PACK C)) ; (LTK:CREATE-LINE LTK::C 20 20 40 40) ; ; caught STYLE-WARNING: ; The function was called with five arguments, but wants exactly two. ; (LET* ((LTK::C ; (MAKE-INSTANCE 'LTK:CANVAS :WIDTH LTK::WIDTH :HEIGHT LTK::HEIGHT)) ; (LTK::LINE (LTK:CREATE-LINE LTK::C 20 20 40 40)) ; (LTK:PACK LTK::C)) ; ) ; ; caught STYLE-WARNING: ; The variable LINE is defined but never used. ; ; caught STYLE-WARNING: ; The variable PACK is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; Evaluation aborted on #<SB-INT:SIMPLE-PROGRAM-ERROR "invalid number of arguments: ~S" {1003704743}>. Here is another one. If you run the following you get a strange error (defun 0-ltk-test () (with-ltk (:serve-event t) (let ((sc (make-instance 'scrolled-canvas))) (create-line sc '(10 10 20 20)) (pack sc :expand 1 :fill :both) ))) The value NIL is not of type STREAM when binding STREAM [Condition of type TYPE-ERROR] BEST On 11/7/20, igor denisov <saufesma(a)gmail.com> wrote: > Hi there, > > Here is another one. > > If you run the following you get a strange error > > (defun 0-ltk-test () > (with-ltk (:serve-event t) > (let ((sc (make-instance 'scrolled-canvas))) > (create-line sc '(10 10 20 20)) > (pack sc :expand 1 :fill :both) > ))) > > The value > NIL > is not of type > STREAM > when binding STREAM > [Condition of type TYPE-ERROR] > > On 11/7/20, igor denisov <saufesma(a)gmail.com> wrote: >> I cannot figure out how to use canvas. I JUST DO NOT KNOW WHERE TO LOOK >> FOR >> >> LTK> (let* (;;(f (make-instance 'frame)) >> (c (make-instance 'canvas :width WIDTH :height HEIGHT)) >> (line (create-line c 20 20 40 40)) >> ;;(pack f) >> (pack c) >> ;;(itemconfigure c line arrow first) ;; HOW TO MAKE IT WORK >> !!!!!!!!!!!!!!! >> )) >> ; in: >> ; LET* ((C (MAKE-INSTANCE 'CANVAS :WIDTH WIDTH :HEIGHT HEIGHT)) >> ; (LINE (CREATE-LINE C 20 20 40 40)) (PACK C)) >> ; (LTK:CREATE-LINE LTK::C 20 20 40 40) >> ; >> ; caught STYLE-WARNING: >> ; The function was called with five arguments, but wants exactly two. >> >> ; (LET* ((LTK::C >> ; (MAKE-INSTANCE 'LTK:CANVAS :WIDTH LTK::WIDTH :HEIGHT >> LTK::HEIGHT)) >> ; (LTK::LINE (LTK:CREATE-LINE LTK::C 20 20 40 40)) >> ; (LTK:PACK LTK::C)) >> ; ) >> ; >> ; caught STYLE-WARNING: >> ; The variable LINE is defined but never used. >> ; >> ; caught STYLE-WARNING: >> ; The variable PACK is defined but never used. >> ; >> ; compilation unit finished >> ; caught 3 STYLE-WARNING conditions >> ; Evaluation aborted on #<SB-INT:SIMPLE-PROGRAM-ERROR "invalid number >> of arguments: ~S" {1003704743}>. >> >> BEST >> >

2 2

Re: ltk-user Digest, Vol 20, Issue 2
by Ulrich Vollert 29 Oct '20

29 Oct '20

> Message: 2 > Date: Wed, 28 Oct 2020 14:51:28 +0100 > From: vindarel <vindarel(a)mailz.org> > To: ltk-user(a)common-lisp.net > Subject: Re: ltk-user Digest, Vol 20, Issue 1 > Message-ID: <37e5a08a-c434-fbb6-5334-4f798e01b428(a)mailz.org> > Content-Type: text/plain; charset=utf-8 Hello Vincent, thank you very much for your helpful comments. In the meantime I solved the problem (see my comment on this mailing list). Best regards, Ulrich

1 0

Re: ltk-user Digest, Vol 20, Issue 1
by vindarel 28 Oct '20

28 Oct '20

Hello, I don't have a problem running this function. We didn't see all your code, what did you type before and how did you call the function? I don't have a problem when I am in the ltk-user package: (in-package :ltk-user) (defun hello() (with-ltk () (let* ((tx (make-instance 'text ))) (pack tx)))) (hello) => opens a text widget However, to stay in the cl-user package, I prefixed the ltk functions: (defun hello() (ltk:with-ltk () (let* ((tx (make-instance 'ltk:text ))) (ltk:pack tx)))) (hello) => ok So you probably want to "use" ltk, with (use-package :ltk) or in your package definition. Looking at the first steps tutorial (http://www.peter-herth.de/ltk/ltkdoc/node5.html) there is no mentions of packages, but here there is: https://lispcookbook.github.io/cl-cookbook/gui.html#tk Best, Vincent On 28/10/2020 13:00, ltk-user-request(a)common-lisp.net wrote: > Send ltk-user mailing list submissions to > ltk-user(a)common-lisp.net > > To subscribe or unsubscribe via the World Wide Web, visit > https://mailman.common-lisp.net/listinfo/ltk-user > or, via email, send a message with subject or body 'help' to > ltk-user-request(a)common-lisp.net > > You can reach the person managing the list at > ltk-user-owner(a)common-lisp.net > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of ltk-user digest..." > > > Today's Topics: > > 1. error on first steps with LTK (Ulrich Vollert) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Mon, 26 Oct 2020 19:11:02 +0100 > From: Ulrich Vollert <ulrivo(a)gmx.de> > To: ltk-user(a)common-lisp.net > Subject: error on first steps with LTK > Message-ID: <1722B608-9760-415B-B1D5-87B9B0F14A4C(a)gmx.de> > Content-Type: text/plain; charset=us-ascii > > Hello, > > I am trying to make a text widget: > > (defun hello() > (with-ltk () > (let* ((tx (make-instance 'text ))) > (pack tx)))) > > > But I get an error (here the messages by slime): > > too many colons in "07" > > Stream: #<TWO-WAY-STREAM > :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 16" {1005CE4193}> > :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {1005CE45B3}>> > [Condition of type SB-INT:SIMPLE-READER-ERROR] > > Restarts: > 0: [SEND-TO-DEBUGGER] Send condition to the debugger > 1: [ABORT] Abort handling Tk event > 2: [EXIT] Exit Ltk main loop > 3: [RETRY] Retry SLIME REPL evaluation request. > 4: [*ABORT] Return to SLIME's top level. > 5: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {10026087A3}>) > > Backtrace: > 0: (SB-IMPL::READ-TOKEN #<TWO-WAY-STREAM :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 16" {1005CE4193}> :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {1005CE45B3}>> #\1) > 1: (SB-IMPL::READ-MAYBE-NOTHING #<TWO-WAY-STREAM :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 16" {1005CE4193}> :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {1005CE45B3}>> #\1) > 2: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<TWO-WAY-STREAM :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 16" {1005CE4193}> :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {1005CE45B3}>> NIL NIL T) > 3: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<TWO-WAY-STREAM :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 16" {1005CE4193}> :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {1005CE45B3}>> NIL NIL NI.. > 4: (READ-EVENT :BLOCKING T :NO-EVENT-VALUE (NIL)) > 5: ((LABELS LTK::PROC-EVENT :IN LTK::MAIN-ITERATION)) > 6: (MAINLOOP :SERVE-EVENT NIL) > 7: ((LAMBDA (CONDITION) :IN LTK::MAKE-CONDITION-HANDLER-FUNCTION) #<SIMPLE-ERROR "When reading from tcl, expected a list but instead got ~S" {1005CFB063}>) > 8: (SB-KERNEL::%SIGNAL #<SIMPLE-ERROR "When reading from tcl, expected a list but instead got ~S" {1005CFB063}>) > 9: (ERROR "When reading from tcl, expected a list but instead got ~S" |2020-10-26|) > 10: (LTK::VERIFY-EVENT |2020-10-26|) > 11: ((LABELS LTK::PROC-EVENT :IN LTK::MAIN-ITERATION)) > 12: (LTK::MAIN-ITERATION :BLOCKING T :REENTRANT? NIL) > 13: ((LAMBDA (LTK::THUNK) :IN LTK::MAKE-CALL-WITH-CONDITION-HANDLERS-FUNCTION) #<FUNCTION (LAMBDA NIL :IN MAINLOOP) {2279624B}>) > 14: (MAINLOOP :SERVE-EVENT NIL) > 15: (CALL-WITH-LTK #<FUNCTION (LAMBDA NIL :IN HELLO) {227BF74B}>) > 16: (SB-INT:SIMPLE-EVAL-IN-LEXENV (HELLO) #<NULL-LEXENV>) > 17: (EVAL (HELLO)) > 18: (SWANK::EVAL-REGION "(hello) ..) > 19: ((LAMBDA NIL :IN SWANK-REPL::REPL-EVAL)) > 20: (SWANK-REPL::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1005CE26FB}>) > 21: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1005CE269B}>) > 22: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1005CE267B}>) > 23: (SWANK-REPL::REPL-EVAL "(hello) ..) > 24: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK-REPL:LISTENER-EVAL "(hello) ..) > 25: (EVAL (SWANK-REPL:LISTENER-EVAL "(hello) ..) > 26: (SWANK:EVAL-FOR-EMACS (SWANK-REPL:LISTENER-EVAL "(hello) ..) > 27: (SWANK::PROCESS-REQUESTS NIL) > 28: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) > 29: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) > 30: (SWANK/SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {10026180FB}>) > 31: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/ulrivo/Dropbox/emacs/.emacs.d/elpa/slime-20200810.224/swank/sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK::.. > 32: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #<SWANK/GRAY::SLIME-INPUT-STREAM {10025F0BF3}>)) #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {100261811B}>) > 33: (SWANK::HANDLE-REQUESTS #<SWANK::MULTITHREADED-CONNECTION {10022D30F3}> NIL) > 34: ((FLET SB-UNIX::BODY :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE)) > 35: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE)) > 36: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE)) > 37: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX)) > 38: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE) {115E7E7B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD "repl-th.. > 39: (SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE #<SB-THREAD:THREAD "repl-thread" RUNNING {10026087A3}> NIL #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::SPAWN-REPL-THREAD) {100260874B}> NIL) > 40: ("foreign function: call_into_lisp") > 41: ("foreign function: new_thread_trampoline") > > > > > ------------------------------ > > Subject: Digest Footer > > _______________________________________________ > ltk-user mailing list > ltk-user(a)common-lisp.net > https://mailman.common-lisp.net/listinfo/ltk-user > > > ------------------------------ > > End of ltk-user Digest, Vol 20, Issue 1 > ***************************************

1 0

error on first steps with LTK
by Ulrich Vollert 28 Oct '20

28 Oct '20

> > Message: 1 > Date: Mon, 26 Oct 2020 19:11:02 +0100 > From: Ulrich Vollert <ulrivo(a)gmx.de> > To: ltk-user(a)common-lisp.net > Subject: error on first steps with LTK > Message-ID: <1722B608-9760-415B-B1D5-87B9B0F14A4C(a)gmx.de> > Content-Type: text/plain; charset=us-ascii > > Hello, > > I am trying to make a text widget: > > (defun hello() > (with-ltk () > (let* ((tx (make-instance 'text ))) > (pack tx)))) > > > But I get an error (here the messages by slime): > > too many colons in "07" > > Stream: #<TWO-WAY-STREAM > :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 16" {1005CE4193}> > :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {1005CE45B3}>> > [Condition of type SB-INT:SIMPLE-READER-ERROR] I found a solution. The error is caused by a message from wish in reply to the creation of a text widget. The message is described here http://74.208.161.176/tk/tktview/855049e799 <http://74.208.161.176/tk/tktview/855049e799> I reinstalled TCL/TK to Tcl 9.0a2 & Tk 9.0a2 (on macOS Catalina 10.15.6), and the message is gone, so is my error ;-) Regards, Ulrich

1 0

error on first steps with LTK
by Ulrich Vollert 26 Oct '20

26 Oct '20

Hello, I am trying to make a text widget: (defun hello() (with-ltk () (let* ((tx (make-instance 'text ))) (pack tx)))) But I get an error (here the messages by slime): too many colons in "07" Stream: #<TWO-WAY-STREAM :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 16" {1005CE4193}> :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {1005CE45B3}>> [Condition of type SB-INT:SIMPLE-READER-ERROR] Restarts: 0: [SEND-TO-DEBUGGER] Send condition to the debugger 1: [ABORT] Abort handling Tk event 2: [EXIT] Exit Ltk main loop 3: [RETRY] Retry SLIME REPL evaluation request. 4: [*ABORT] Return to SLIME's top level. 5: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {10026087A3}>) Backtrace: 0: (SB-IMPL::READ-TOKEN #<TWO-WAY-STREAM :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 16" {1005CE4193}> :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {1005CE45B3}>> #\1) 1: (SB-IMPL::READ-MAYBE-NOTHING #<TWO-WAY-STREAM :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 16" {1005CE4193}> :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {1005CE45B3}>> #\1) 2: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<TWO-WAY-STREAM :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 16" {1005CE4193}> :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {1005CE45B3}>> NIL NIL T) 3: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<TWO-WAY-STREAM :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 16" {1005CE4193}> :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {1005CE45B3}>> NIL NIL NI.. 4: (READ-EVENT :BLOCKING T :NO-EVENT-VALUE (NIL)) 5: ((LABELS LTK::PROC-EVENT :IN LTK::MAIN-ITERATION)) 6: (MAINLOOP :SERVE-EVENT NIL) 7: ((LAMBDA (CONDITION) :IN LTK::MAKE-CONDITION-HANDLER-FUNCTION) #<SIMPLE-ERROR "When reading from tcl, expected a list but instead got ~S" {1005CFB063}>) 8: (SB-KERNEL::%SIGNAL #<SIMPLE-ERROR "When reading from tcl, expected a list but instead got ~S" {1005CFB063}>) 9: (ERROR "When reading from tcl, expected a list but instead got ~S" |2020-10-26|) 10: (LTK::VERIFY-EVENT |2020-10-26|) 11: ((LABELS LTK::PROC-EVENT :IN LTK::MAIN-ITERATION)) 12: (LTK::MAIN-ITERATION :BLOCKING T :REENTRANT? NIL) 13: ((LAMBDA (LTK::THUNK) :IN LTK::MAKE-CALL-WITH-CONDITION-HANDLERS-FUNCTION) #<FUNCTION (LAMBDA NIL :IN MAINLOOP) {2279624B}>) 14: (MAINLOOP :SERVE-EVENT NIL) 15: (CALL-WITH-LTK #<FUNCTION (LAMBDA NIL :IN HELLO) {227BF74B}>) 16: (SB-INT:SIMPLE-EVAL-IN-LEXENV (HELLO) #<NULL-LEXENV>) 17: (EVAL (HELLO)) 18: (SWANK::EVAL-REGION "(hello) ..) 19: ((LAMBDA NIL :IN SWANK-REPL::REPL-EVAL)) 20: (SWANK-REPL::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1005CE26FB}>) 21: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1005CE269B}>) 22: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {1005CE267B}>) 23: (SWANK-REPL::REPL-EVAL "(hello) ..) 24: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK-REPL:LISTENER-EVAL "(hello) ..) 25: (EVAL (SWANK-REPL:LISTENER-EVAL "(hello) ..) 26: (SWANK:EVAL-FOR-EMACS (SWANK-REPL:LISTENER-EVAL "(hello) ..) 27: (SWANK::PROCESS-REQUESTS NIL) 28: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) 29: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) 30: (SWANK/SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {10026180FB}>) 31: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/ulrivo/Dropbox/emacs/.emacs.d/elpa/slime-20200810.224/swank/sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK::.. 32: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #<SWANK/GRAY::SLIME-INPUT-STREAM {10025F0BF3}>)) #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {100261811B}>) 33: (SWANK::HANDLE-REQUESTS #<SWANK::MULTITHREADED-CONNECTION {10022D30F3}> NIL) 34: ((FLET SB-UNIX::BODY :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE)) 35: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE)) 36: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE)) 37: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX)) 38: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE) {115E7E7B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD "repl-th.. 39: (SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE #<SB-THREAD:THREAD "repl-thread" RUNNING {10026087A3}> NIL #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::SPAWN-REPL-THREAD) {100260874B}> NIL) 40: ("foreign function: call_into_lisp") 41: ("foreign function: new_thread_trampoline")

1 0

Delete/Replace widget with fresh instance
by Ryan 16 Jun '20

16 Jun '20

Good Afternoon All, First thanks for a great way to make simple GUIs in Common Lisp. In my current application I have a tray of buttons. This currently gets populated from a directory path defined by the user. I keep this frame as a special variable in Common Lisp so I can easily access it across all functions. Is there a way to get the parent of a widget currently? How about a list of all children? I'd like to write a function that saves the frame's parent, deletes the frame on CL and Tcl sides, then binds and packs a new frame instance in it's place. Here is a picture of my little launcher program. https://i.imgur.com/GiOaez7.png You can see how the frame exists inside a notebook and contains buttons. Thanks for any help!

1 1

Making a colorpicker
by Tom 19 Aug '19

19 Aug '19

Hi, I'm back from vacation and continuing my exploration of ltk. I'm currently trying to build a color picker and I'm modeling it after the blender color picker. To replicate how it looks I need a nice gradient. My first instinct was to just put a bunch of really small rectangles (pixels) on a canvas. This worked (see attachment), but it took about 5 minutes for all the pixels to be put on the canvas. Not ideal, especially if I have to redraw the gradient when the brightness value is changed by some slider or something. My next idea was to use a bitmap. This leads my to my first question: How do I get a bitmap on a canvas? I tried the following code. ``` (defvar image (open "lena_gray.bmp")) (with-ltk () (let* ((canvas (make-instance 'canvas :width 400 :height 400))) (pack canvas) (let ((lena (create-bitmap canvas 20 20 :bitmap image))) (declare (ignore lena))))) ``` And I get a generic type-error: The value NIL is not of type STREAM when binding STREAM [Condition of type TYPE-ERROR]The value NIL is not of type STREAM when binding STREAM [Condition of type TYPE-ERROR] There is really no example given in the documentation. So I need help with this one (Using SBCL on Linux by the way). The next question is concerning transparent colors. To darken the gradient I thought of having an oval over the bitmap, on which I can change the transparency value. I haven't found a way to do that with "itemconfigure". And I also haven't found a place where all the keyword arguments are listed for "itemconfigure". I'm almost certain that there are no transparency options for canvas items in tcl/tk. But in case I've overlooked them, I'm asking anyway. I'd also like to say that I accept tips on my approach. Is there an obvious solution that I'm missing or are there other general tips I need to figure it out myself. Please let me know! Thanks in advance for any help. Greetings, Tom.

3 4

This documentation is quite confusing.
by Tom Hassel 09 Aug '19

09 Aug '19

I've been getting into ltk, since I wanted to do some GUI programming again. I'm currently trying some things, one of them being changing the color of a button. This should be possible becaus of this bit of documentation <http://www.peter-herth.de/ltk/ltkdoc/node18.html>. But it is not really specified how I could do it. I've tried with 'configure' and I tried in the initialization code and even in the 'pack' function, but it does not seem to work. It might be nice if the documentation told me how to do this. The working code looks like this. How do I change the color of the button? ``` (with-ltk () (let* ((frame (make-instance 'frame)) (button (make-instance 'button :master frame :text "Hello, World" :command (lambda () (print "Hello, World"))))) (pack frame) (pack button))) ``` Thanks in advance for any help. Greetings, Tom

3 5

[ANN] nodgui
by cage 11 Dec '18

11 Dec '18

Hello! I think my attempt to clean up ltk went a bit too far, and nodgui was born. :) This library is basically a refactoring of ltk with a bit of modernization (use some new wish 8.6 features) and some syntactic sugar on top (and probably some bugs too :) ). More information can be found on the README here: https://notabug.org/cage/nodgui/raw/master/README.txt the repository can be found here instead: https://notabug.org/cage/nodgui I do not mean in anyway this fork as hostile, the work of the people behind ltk (and Peter in particular) was fantastic and my library is just a simple attempt to take care of a piece code that helped me a lot in the last years. Of course the library is still FLOSS (LLGPL licensed) so anyone is very welcome to contribute (there is a lot of work to do)! Bye! C.

1 0

patch proposal
by cage 18 Nov '18

18 Nov '18

Hi Peter! I have a patch for ltk that supposed to do the following: - remove use of a deprecated function for sbcl: "sb-debug:backtrace" https://github.com/herth/ltk/blob/master/ltk/ltk.lisp#L5088 with "sb-debug:print-backtrace" - prevent ltk to "leak" error messages from other applications (I have had problems with font-config, for example) into the communication pipe with user application, this pollute the messages sent on the pipe and makes the application crash. I have just added ":error nil" to this line https://github.com/herth/ltk/blob/master/ltk/ltk.lisp#L464 i feel this solution is sub-optimal as is not portable, probably UIOP could help here. - clean a bit the code (mostly comes from Emacs for free ;-) ) Please can you tel me how can I send the patch to be reviewed? Is here a good place or should I set up a pull request on github? Bye! C.

1 0

menu of ltk
by Kamuy Cikap 21 Jul '18

21 Jul '18

Hi everyone. I have a question. There is check button and radio button in Tcl/Tk8.4 in menu. is there check button and radio button in menu widget of LTK? I looked ltktest in ltk.lisp source code. I found make - menu and "make-menubutton". Furthermore I found "add-separator". Is there a check button or radio button in the same way? Please Tell me this code.

3 3

Use of postcommand in combobox?
by Volker 11 Jul '18

11 Jul '18

Has anyone a clue how postcommand in combobox is supposed to be used? I want to construct the values of a combobox according to the state of a device just when klicking on the widget. I can construct a combobox: (defun combo-1 () (ltk:with-ltk () (let ((c (make-instance 'combobox :text "Values:" :values '(1 2 3)))) (ltk:pack c :side :left :padx 2)))) and change the values outside the constructor: (defun combo-values () "Change :values of combobox outside the constructor" (ltk:with-ltk () (let ((c (make-instance 'combobox :text "Values:"))) (ltk:pack c :side :left :padx 2) (setf (options c) '(1 2 3))))) ; changes field :values Even if I think it would have been better if this would have worked instead: (setf (values c) '(1 2 3)) But fail when I try to use postcommand. This doesn't work: (defun combo-postcommand-1 () "Use of postcommand in combobox." (ltk:with-ltk () (let ((c (make-instance 'combobox :text "Values:" :postcommand (lambda () (set (options c) '(1 2 3)))))) (ltk:pack c :side :left :padx 2)))) (I understand that c is not defined when the lambda command is read but don't see a correct solution.) I can not even run a simple function as postcommand, because this doesn't work either: (defun combo-postcommand-2 () (ltk:with-ltk () (let ((c (make-instance 'combobox :text "Values:" :postcommand (lambda () (format t "Run postcommand~%"))))) (ltk:pack c :side :left :padx 2)))) ???

3 8

How to change the title of the root window?
by Volker 23 Jun '18

23 Jun '18

I'm trying to get started with ltk and of cause running into many problems. One is: how do I change the title of the root window (it is "LTK" as default). The corresponding python code would be: root = Tk() root.title("Hello, world") This was one of my many unsuccessful tries: (defun how-to-set-title () (ltk:with-ltk () (let* ((root (make-instance 'ltk:widget :name "." :path ".")) (b (make-instance 'button :master nil :text "Press Me" :command (lambda () (format t "Hello World!~&"))))) (setf (title root) "My app") (pack b)))) I experienced a bit with toplevel (where I could set the name of the window) but this always opened an additional new window. Any help appreciated! Regards Volker

2 3

I want to control on and off ob check-button.
by Kamuy Cikap 01 Jun '18

01 Jun '18

Hi every one. I want to control on and off of check-button by clicking the button. but I can't it. how do control it? code point is _ (setf (value cbtn1) "ON")))) ;; <- I want control on and of. in the my code. Please help me. This is the my code. ;;;;;; my code ;;; LTKでボタンを表示する (ql:quickload :ltk) ;; my package (defpackage :ex4-05 (:use :common-lisp :common-lisp-user :ltk) (:export :main)) (in-package :ex4-05) (defun main () (with-ltk () (let* ( (cbtn1 (make-instance 'check-button :text "check button1" :variable :cbtn1_val :onvalue :on :offvalue :off :command (lambda (value) (format t "check-button1:~A~%" value) ))) (cbtn2 (make-instance 'check-button :text "check button2")) (cbtn3 (make-instance 'check-button :text "Close")) (btn (make-instance 'button :text "check on!" :command (lambda () (setf (value cbtn1) "ON")))) ;; <- I want control on and of. ) (pack (list cbtn1 cbtn2 cbtn3) :side :top :fill :both :expand :yes) (pack btn :side :top :fill :both :expand :yes) ))) (main)

3 3

Set height of a scrolled-canvas
by Luis López 11 Sep '17

11 Sep '17

Hi! I'm trying to simulate a diffraction grating for my pupils. I have two scrolled-canvas: one for displaying the spectrum as colors, and one for showing its intensity profile. The problem is that I want to make the first one to have a specific height (no matter if the window gets maximized), and the other to get expanded, but all I can get is the two having always the same height. What am I doing wrong? Thank you very much, Luis

2 3

ltk patch for SBCL
by Douglas Katzman 21 Apr '17

21 Apr '17

Please apply the following forward-and-backward compatible diff for SBCL. closure-header-widetag is pending removed in the next release. diff --git a/ginspect.lisp b/ginspect.lisp index 3d448f8..a5ad37d 100644 --- a/ginspect.lisp +++ b/ginspect.lisp @@ -252,8 +252,7 @@ (inspected-standard-object-elements object))) #+:sbcl (defmethod inspected-parts ((object function)) - (let* ((type (sb-kernel:widetag-of object)) - (object (if (= type sb-vm:closure-header-widetag) + (let ((object (if (sb-kernel:closurep object) (sb-kernel:%closure-fun object) object))) (values (format nil "FUNCTION ~S.~@[~%Argument List: ~A~]." object

1 0

Problem moving items in a canvas
by Luis López 20 Dec '16

20 Dec '16

Hi! I am an astronomy teacher, and I'm preparing a program to analyze stellar spectra with my pupils. It's going on well (I think!), but I have a strange problem that I can't solve by myself. The principal code is in "espectro-visual.lisp" ("fits.lisp" is a kind of little 'library' to open fits image files, an astronomical standard; you can visualize them with programs like "SaoImage DS9"). You run the program with '(espectro-visual)'. To reproduce the problem I think I'd better guide you step by step: 1) You click in 'Create profile..." and choose 'solar-spectrum.fit' (you can download this file (~1MB) from http://www.astro.cnba.uba.ar/solar-spectrum.fit) 2) Then you move over the profile, and -pressing the mouse right-button- move a dozen or so pixels left or right and release the button: you'll see a line and a number under the 'barycenter' of the zone (astronomically, you should choose an spectral line (one of those 'valleys' here and there), but that doesn't matter now). 3) If you press the mouse left-button over the number created, you can move it around the canvas (I want to be able to do it, to avoid the 'cluttering' of labels). Now, the problem: As soon as I leave the canvas with the mouse, if I re-enter the canvas I'm no longer able to move the labels again! I can do it with new labels, but if I leave the canvas the problem applies to them too. Thank you very much, and please excuse me if I didn't explain myself very well. Luis López

1 0

Re: Filetypes in get-open-file
by Martin Buchmann 14 Dec '16

14 Dec '16

Hi Jason, :filetypes nil did the trick! I am running OS X 10.10.5 and 'which wish‘ leads /usr/bin/wish so i guess it is the version coming with the system. I havn’t installed anything using homebrew. You are of course totally right regarding *. It failed from time to time but than worked perfect again. I guess that’s a pretty noob error I ran into here. Thanks for your help! Martin > Am 14.12.2016 um 05:24 schrieb Jason Miller <jason(a)milr.com>: > > Quoting Martin Buchmann (2016-12-13 11:54:06) >> Hi, >> >> I am trying a create a little gui using ltk which has an open file button using get-open-file. It works fine besides the fact that I cannot select any file. I played around with the filetypes keyword but could not get it running and could not find anything in the net so far which helped me. I actually do not care about the filetype at all. >> >> I have installed ltk via quicklisp on OS X using sbcl. >> > Which version of OS X? Are you using the system wish, or a version > installed from macports/homebrew? >> (defun test () >> (ltk:with-ltk () >> (let* ((datei (make-instance 'ltk:button >> :master nil >> :text "Datei" >> :command (lambda () >> (print (ltk:get-open-file :filetypes '(("All Files" "*")) >> :title "Open")))))) >> >> (ltk:wm-title ltk:*tk* "Test") >> (ltk:pack datei)))) > This worked fine for me. >> >> I get a nice button, the open file dialog opens but all file in the current directory are gray and not selectable. What am I missing? >> >> If I choose >> >> :filetypes * >> >> it works but that’s very different from what I have expected. > That probably only works because the last item from the REPL is nil; > :filetypes nil ought to work. (The special variable CL:* is equal to the > last value returned at the REPL). >> >> Thanks for any advice >> Martin

1 0

Filetypes in get-open-file
by Martin Buchmann 13 Dec '16

13 Dec '16

Hi, I am trying a create a little gui using ltk which has an open file button using get-open-file. It works fine besides the fact that I cannot select any file. I played around with the filetypes keyword but could not get it running and could not find anything in the net so far which helped me. I actually do not care about the filetype at all. I have installed ltk via quicklisp on OS X using sbcl. (defun test () (ltk:with-ltk () (let* ((datei (make-instance 'ltk:button :master nil :text "Datei" :command (lambda () (print (ltk:get-open-file :filetypes '(("All Files" "*")) :title "Open")))))) (ltk:wm-title ltk:*tk* "Test") (ltk:pack datei)))) I get a nice button, the open file dialog opens but all file in the current directory are gray and not selectable. What am I missing? If I choose :filetypes * it works but that’s very different from what I have expected. Thanks for any advice Martin

1 0

Remove canvas shapes by tag?
by Ryan 14 Oct '16

14 Oct '16

Hello all, new to the list (hopefully this has not been asked) I've created a global canvas called *main-canvas* and have attached a few shapes to it. (create-line* *main-canvas* `(,x ,y ,x2 ,y2) :tags "line") Am I specifying the tag correctly for the new line instance or does it need to be in a list? Also, how would I tell a canvas to remove all and only items with the "line" tag attached? Sincerely, Ryan

3 6

button scale and font
by Michael Acker 10 Jun '16

10 Jun '16

When I try to set the font on a button, which is specified as a valid keyword arg in the docs, I get the following error: Invalid initialization argument: :FONT I don't necessarily need to do anything fancy with the font in said button, but it's default size and font are very small even on a regular monitor, and my monitor is high-res, making it quite tiny. For every other component i can just scale with fonts, but it doesn't seem to work with buttons. While searching for solutions, I found this: https://mailman.common-lisp.net/pipermail/ltk-user/2011-August/000477.html It makes reference to setting an older version of wish in order to scale components? If this functionality was truly just broken by an update back in 2011 and never fixed, I'd like to be able to help address the bug, but if I am just missing something, or there is a better way of making widgets big enough to read, please let me know! Thanks!

2 1