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

[ltk-user] Increamentally build the GUI?
by Josef Wolf 26 Nov '12

26 Nov '12

Hello everybody, I am trying to build my tk GUI incrementally. The SERVE-EVENT parameter seems to suggest that something like the following should be possible: (defvar *frame*) (defvar *label-widget*) (with-ltk (:serve-event t) (setf *frame* (make-instance 'frame)) (pack *frame*)) (with-ltk (:serve-event t) (setf *label-widget* (make-instance 'label :master *frame* :text "initial text")) (pack *label-widget* :side :left)) (with-ltk () ;; All initializations are already done, we just need to enter MAINLOOP ) But instead of a single toplevel containing both, the frame and the label, I get two separate toplevels. And none of those toplevels seem to contain the label widget. The output of the ps command shows, that two separate WISH processes are started, which obviously is not going to work. Does anybody have an example of how to properly use the SERVE-EVENT parameter?

2 1

[ltk-user] Using tags on canvas items?
by Josef Wolf 21 Nov '12

21 Nov '12

Hello everybody, I am trying to use the tags feature of the canvas. So I am trying to attach a list of tags to an item and use those tags later to identify items. Here's an example: (with-ltk () (let* ((sc (make-instance 'scrolled-canvas)) (canvas (canvas sc)) (polygon (create-polygon canvas '(10 20 30 40 60 50)))) (pack sc) (configure canvas :width 100 :height 100) (itemconfigure canvas polygon :tags '(foo bar baz)) (itemconfigure canvas polygon :fill 'red) (itemconfigure canvas 'foo :fill 'yellow))) But it somehow doesn't work the way I expected it to work. The polygon stays red instead of being re-configured to yellow. It also won't work if I use strings instead of symbols. It only works if I use a _single_ string. But this is not how the tags feature is intended to work. Any ideas?

1 1

[ltk-user] How to configure widgets?
by Josef Wolf 21 Nov '12

21 Nov '12

Hello everybody, I am trying to make my first steps with ltk, and I have problems to reconfigure existing widgets. Here is an example where I try to reconfigure the :TEXT attribute of the LABEL-WIDGET widget whenever the checkbox of the CHECK-BUTTON-WIDGET widget is clicked. (with-ltk () (setf *debug-tk* t) (let* ((f (make-instance 'frame)) (label-widget (make-instance 'label :master f :text "initial text")) (check-button-widget (make-instance 'check-button :master f :text "check me" :command (lambda (val) (configure label-widget :text val))))) (pack f) (pack label-widget :side :left) (pack check-button-widget :side :left) (configure f :borderwidth 3) (configure f :relief :sunken))) When I click on the checkbox, the col.or of the checkbox changes and I can see in the debug output something like this: process_buffer l:(:CALLBACK "we" 1)<= buffer size 27 bt ".wc.wd configure -text {1}" process_buffer l:(:CALLBACK "we" 0)<= buffer size 27 bt ".wc.wd configure -text {0}" So I assume, the callback is executed properly. But the diplayed text of LABEL-WIDGET is not changed at all. I have tried to use "text" and 'text instead of :text, but none of those seems to make any difference. This is on opensuse-12.1 with tk-8.5 and I use LTK-0.98, as it bundled with the newest quicklisp distro. Any ideas what I am missing here? Here is the complete debug output of LTK: ; compiling (WITH-LTK NIL ...)buffer size 19 bt "package require Tk" process_buffer add-callback (we #<CLOSURE (LAMBDA (VAL) :IN "/lisp/ltk-test.lisp") {C1D9FA5}>) buffer size 3519 bt "if {\[catch {package require Ttk} err\]} {tk_messageBox -icon error -type ok -message \"\$err\"}" bt "proc debug { msg } { global server puts \$server \"(:debug \\\"\[escape \$msg\]\\\")\" flush \$server } " bt "proc escape {s} {regsub -all {\\\\} \$s {\\\\\\\\} s1;regsub -all {\"} \$s1 {\\\"} s2;return \$s2}" bt "proc senddata {s} {global server; puts \$server \"(:data \[escape \$s\])\";flush \$server}" bt "proc senddatastring {s} { global server puts \$server \"(:data \\\"\[escape \$s\]\\\")\" flush \$server } " bt "proc senddatastrings {strings} { global server puts \$server \"(:data (\" foreach s \$strings { puts \$server \"\\\"\[escape \$s\]\\\"\" } puts \$server \"))\";flush \$server} " bt "proc to_keyword {s} { if {\[string index \$s 0\] == \"-\"} { return \":\[string range \$s 1 \[string length \$s\]\]\" } {return \":\$s\"}}" bt "proc sendpropertylist {l} { global server; set pos 0 set ll \[llength \$l\] puts \$server \"(:data (\" while {\$pos < \$ll} { puts \$server \" \[to_keyword \[lindex \$l \$pos\]\] \" set pos \[expr \$pos + 1\] puts \$server \" \[lindex \$l \$pos\] \" set pos \[expr \$pos + 1\] } puts \$server \"))\" }" bt "proc searchall {widget pattern} { set l \[string length \$pattern\] set result \[\$widget search \$pattern 1.0\] set previous 0 while {\$result > \$previous} { \$widget tag add sel \$result \$result+\${l}chars set previous \$result set result \[\$widget search \$pattern \$result+\${l}chars\] } }" bt "proc searchnext {widget pattern} { set l \[string length \$pattern\] set result \[\$widget search \$pattern insert\] if {\$result > 0} { \$widget tag remove sel 1.0 end \$widget tag add sel \$result \$result+\${l}chars \$widget mark set insert \$result+\${l}chars \$widget see insert } }" bt "proc resetScroll {c} { \$c configure -scrollregion \[\$c bbox all\] } proc moveToStart {sb} { set range \[\$sb get\] \$sb set 0 \[expr \[lindex \$range 1\] - \[lindex \$range 0\]\] } " bt "proc sendevent {s x y keycode char width height root_x root_y mouse_button} {global server; puts \$server \"(:event \\\"\$s\\\" \$x \$y \$keycode \$char \$width \$height \$root_x \$root_y \$mouse_button)\"; flush \$server} " bt "proc callback {s} {global server; puts \$server \"(:callback \\\"\$s\\\")\";flush \$server} " bt "proc callbackval {s val} {global server; puts \$server \"(:callback \\\"\$s\\\" \$val)\"} " bt "proc callbackstring {s val} {global server; puts \$server \"(:callback \\\"\$s\\\" \\\"\[escape \$val\]\\\")\"} " bt "proc keepalive {} {global server; puts \$server \"(:keepalive \\\"\[clock format \[clock seconds\] -format \"%d/%m/%y %T\"\]\\\")\"; flush \$server}" bt "global text_wd ; set text_wd \"initial text\"" bt "global text_we ; set text_we \"check me\"" bt "ttk::frame .wc " bt "ttk::checkbutton .wc.we -command {callbackval we \$we} -textvariable text_we" bt ".wc.we configure -variable we ; global we ; set we {}" bt "pack .wc -side top -fill none" bt "ttk::label .wc.wd -textvariable text_wd" bt "pack .wc.wd -side left -fill none" bt "pack .wc.we -side left -fill none" bt ".wc configure -borderwidth {3}" bt ".wc configure -relief {sunken}" bt ".wc.wd configure -text {x}" process_buffer l:(:CALLBACK "we" 1)<= buffer size 27 bt ".wc.wd configure -text {1}" process_buffer l:(:CALLBACK "we" 0)<= buffer size 27 bt ".wc.wd configure -text {0}" process_buffer Closing wish stream: #<TWO-WAY-STREAM :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {C11D111}> :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 8" {C11D4C9}>>

2 2

[ltk-user] Updating the canvas
by David Peebles 10 Nov '12

10 Nov '12

Hi everyone, I'm trying to update the canvas at regular intervals as currently it only does so once my program has finished. I know there's a Tk 'update' command have been unable to find an example of its use in LTk. I'd be very grateful if someone could tell me if it is possible to use this command in LTk and if so, how to do it. Many thanks, David --- David Peebles PhD Reader in Cognitive Science, Department of Behavioural and Social Sciences, University of Huddersfield Queensgate, Huddersfield, HD1 3DH --- This transmission is confidential and may be legally privileged. If you receive it in error, please notify us immediately by e-mail and remove it from your system. If the content of this e-mail does not relate to the business of the University of Huddersfield, then we do not endorse it and will accept no liability.

1 0

[ltk-user] run-time error => Invalid initialization argument: :FONT
by haruichi yabuki 09 Nov '12

09 Nov '12

Hi, ltk-users, I am very much troubled by the following situation. Can someone help me? The program below gives the error message at run-time: > Invalid initialization argument: > :FONT > in call for class #<STANDARD-CLASS BUTTON>. > See also: > The ANSI Standard, Section 7.1.2 > [Condition of type INITARG-ERROR] The program is as follos: ------------------------------------------------------------- (asdf:operate 'asdf:load-op :ltk :verbose nil) (defpackage :ltk-user (:use :common-lisp :cl-user :ltk)) (in-package :ltk-user) (with-ltk () (wm-title *tk* "an example of button") (bind *tk* "<Alt-q>" (lambda (event) (setf *exit-mainloop* t))) (let ((btn (make-instance 'button :master nil :text "BUTTON" :font "verdana 20" :command (lambda () (format t "the button is pushed.~%") (setf *exit-mainloop* t))))) ; (configure btn :font "verdana 20") (pack btn))) ;; end ----------------------------------------------------------------- (without the line :font "verdana 20" the program works fine.) My environement is as follows: OS: Ubuntu 12.04 $ sbcl --version SBCL 1.0.55.0.debian $ wish % puts $tcl_version 8.5 It seems to me that many options of tk give this kind of error messages everywhere in my 'wrong' programming environement! The above is one of the simple examples. I would like to know how to fix the problem. Thank you in advance. -- haruichi yabuki <hyabuki(a)zb.ztv.ne.jp>

1 1

[ltk-user] listbox api
by Nikita B. Zuev 03 Nov '12

03 Nov '12

Hello, I'm having a little trouble with usage of a listbox in LTK library, and would appreciate some assistance. Documentation states that there is a LISTBOX class http://www.peter-herth.de/ltk/ltkdoc/node25.html but nothing about how to manipulate its contents. Google have helped me to find LISTBOX-APPEND to add items and LISTBOX-GET-SELECTION to retrieve selection. Thing here is LISTBOX-GET-SELECTION returns list of indices, not actual items, and nothing in google says about where to apply index to get actual selected item. That is easy to workaround by using a separate variable to store list of items and pushing to it after adding item to LISTBOX instance, then getting selection from LISTBOX and getting selected item from this variable by index, but I have a feeling that I'm doing it wrong, and overcomplicating things. Also docs say http://www.peter-herth.de/ltk/ltkdoc/node15.html :COMMAND initarg can be used to handle LISTBOX's selection change event, but (MAKE-INSTANCE 'LISTBOX :command (lambda () ... )) fails saying it has no such initarg, well BIND works, so its ok probably. Main question is, can someone please provide me with a little example of LISTBOX's proper usage? LTK library is from the quicklisp repository. Thanks. -- Regards, Nikita B. Zuev

2 2