ltk-user

ltk-user@common-lisp.net

259 discussions

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

ltk-user