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

[ltk-user] PATCH: fix tile namespace problem and widget renaming for 8.5 in one patch
by Johan Ur Riise 27 Apr '08

27 Apr '08

If you like, Ignore my other patches from today an apply this. This can be applied to ltk-0.91 johan@perle:~/prg/ltk$ git diff 0607d45dda260283ed3e85fffe44efe5a890de33 diff --git a/ltk-tile.lisp b/ltk-tile.lisp index 559e8da..7fb9914 100644 --- a/ltk-tile.lisp +++ b/ltk-tile.lisp @@ -32,29 +32,35 @@ (defparameter *tile-widgets* '(button check-button entry label radio-button scrollbar )) ;;; checkbutton combobox dialog notebook paned progressbar treeview menubutton separator +(defun tclversion () + (send-wish "senddatastrings [info tclversion]") + (read-from-string (first (ltk::read-data)))) + (defun require-tile () - (send-wish "package require tile")) + (unless (> (tclversion) 8.4) + (send-wish "package require tile"))) (defun activate-tile () (pushnew #'require-tile *init-wish-hook*) - (dolist (widget *tile-widgets*) - (let ((w (make-instance widget))) - (unless (search "ttk::" (widget-class-name w)) - (setf (widget-class-name w) (concatenate 'string "ttk::" (widget-class-name w))))))) + (pushnew (lambda () (dolist (widget *tile-widgets*) + (let ((w (make-instance widget))) + (unless (search "ttk::" (widget-class-name w)) + (setf (widget-class-name w) (concatenate 'string "ttk::" (widget-class-name w))))))) + *init-wish-hook*)) (defun theme-names () - (send-wish "senddatastrings [style theme names]") + (send-wish "senddatastrings [ttk::style theme names]") (ltk::read-data)) (defun use-theme(name) - (format-wish "style theme use ~a" name)) + (format-wish "ttk::style theme use ~a" name)) (defun style-element-names () - (send-wish "senddatastrings [style element names]") + (send-wish "senddatastrings [ttk::style element names]") (ltk::read-data)) (defun style-default (style &rest params) - (format-wish "style default ~A ~{ -~(~a~) {~a}~}" style params)) + (format-wish "ttk::style default ~A ~{ -~(~a~) {~a}~}" style params)) (defun tile-test () (activate-tile) @@ -72,5 +78,3 @@ (use-theme theme))))) ))) - - \ No newline at end of file johan@perle:~/prg/ltk$

1 0

[ltk-user] PATCH a much better patch that works on 8.4 and 8.5
by Johan Ur Riise 27 Apr '08

27 Apr '08

Here I leave activate-tile on the outside of the with-ltk form in tile-test. In stead, I have deferred the renaming of widgets, using the same technique as is used with require-tile, pushing a lambda to the init hook. Works beautifully with tile-test on both tcl 8.4 and 8.5, and also with my own application. The "unless" in require-tile _could_ be a premature optimization, but it could also be a hint to the next generation programmers that this is only for an ancient wish, and could be removed. So forget my last pathc, but the one adding ttk:: is needed diff --git a/ltk-tile.lisp b/ltk-tile.lisp index 0d8c39c..7fb9914 100644 --- a/ltk-tile.lisp +++ b/ltk-tile.lisp @@ -32,15 +32,21 @@ (defparameter *tile-widgets* '(button check-button entry label radio-button scrollbar )) ;;; checkbutton combobox dialog notebook paned progressbar treeview menubutton separator +(defun tclversion () + (send-wish "senddatastrings [info tclversion]") + (read-from-string (first (ltk::read-data)))) + (defun require-tile () - (send-wish "package require tile")) + (unless (> (tclversion) 8.4) + (send-wish "package require tile"))) (defun activate-tile () (pushnew #'require-tile *init-wish-hook*) - (dolist (widget *tile-widgets*) - (let ((w (make-instance widget))) - (unless (search "ttk::" (widget-class-name w)) - (setf (widget-class-name w) (concatenate 'string "ttk::" (widget-class-name w))))))) + (pushnew (lambda () (dolist (widget *tile-widgets*) + (let ((w (make-instance widget))) + (unless (search "ttk::" (widget-class-name w)) + (setf (widget-class-name w) (concatenate 'string "ttk::" (widget-class-name w))))))) + *init-wish-hook*)) (defun theme-names () (send-wish "senddatastrings [ttk::style theme names]") -- 1.5.4.3

1 0

[ltk-user] PATCH: added ttk:: namespace to tcl style commands
by Johan Ur Riise 27 Apr '08

27 Apr '08

(tile-test) would sometimes hang on the first command without this debian sid sbcl 1.0.16.3 wish 8.5 added ttk:: namespace to tcl style commands diff --git a/ltk-tile.lisp b/ltk-tile.lisp index d33bceb..024d118 100644 --- a/ltk-tile.lisp +++ b/ltk-tile.lisp @@ -43,18 +43,18 @@ (setf (widget-class-name w) (concatenate 'string "ttk::" (widget-class-name w))))))) (defun theme-names () - (send-wish "senddatastrings [style theme names]") + (send-wish "senddatastrings [ttk::style theme names]") (ltk::read-data)) (defun use-theme(name) - (format-wish "style theme use ~a" name)) + (format-wish "ttk::style theme use ~a" name)) (defun style-element-names () - (send-wish "senddatastrings [style element names]") + (send-wish "senddatastrings [ttk::style element names]") (ltk::read-data)) (defun style-default (style &rest params) - (format-wish "style default ~A ~{ -~(~a~) {~a}~}" style params)) + (format-wish "ttk::style default ~A ~{ -~(~a~) {~a}~}" style params)) (defun tile-test () (with-ltk () @@ -71,7 +71,3 @@ (make-menubutton mtheme theme (lambda () (use-theme theme))))) ))) - - - - \ No newline at end of file johan@sodd:~/prg/ltk$

1 1

[ltk-user] bug in ltk-tile.lisp function tile-test in ltk-091
by Johan Ur Riise 27 Apr '08

27 Apr '08

Found this small bug. TILE-TEST * (tile-test) debugger invoked on a TYPE-ERROR in thread #<THREAD "initial thread" {1002445C91}>: The value NIL is not of type STREAM. Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. ((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND (LTK::TKVARIABLE)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE # {10033B9679}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CHECK-BUTTON {100260BEB1}>)[:EXTERNAL] 0] and this patch corrects it: --- ltk-tile.lisp.orig 2008-04-27 08:45:27.000000000 +0200 +++ ltk-tile.lisp 2008-04-27 08:46:09.000000000 +0200 @@ -57,8 +57,8 @@ (format-wish "style default ~A ~{ -~(~a~) {~a}~}" style params)) (defun tile-test () - (activate-tile) (with-ltk () + (activate-tile) (let* ((mb (make-menubar)) (mtheme (make-menu mb "Theme" )) (b (make-instance 'button :text "a button"))

1 0

[ltk-user] Ltk on Vista
by christopher melen 12 Apr '08

12 Apr '08

I know there's been a problem with Ltk on WinXP, but I've just tested it on Vista and it seems to run fine. Here's my setup - Sony PCG-7Z2M Laptop Windows Vista Home Premium Clisp-Win32 ActiveTCL 8.4.18.0 I'm going to test again when I've set up Cygwin on that machine, so that I've got a decent asdf-friendly environment (just loaded ltk.lisp for that quick test). Will also test with SBCL. By the way thanks Peter on an absolutely terrific program. Best, Chris ___________________________________________________________ Yahoo! For Good helps you make a difference http://uk.promotions.yahoo.com/forgood/

1 0

[ltk-user] Ltk gui freezing on windows
by Jonathan Johansen 08 Apr '08

08 Apr '08

Hi All, I have recently tried to use Phil Armitage's lisp editor ABLE (of course written with Ltk). However on my windows XP desktop, it didn't work very well. It would start up, but when I pressed a key (such as Ctrl-n), it froze. It didn't take any extra resources, it just didn't respond. Anyway, to cut a long story short, I found this tcl/tk bug report: http://sourceforge.net/tracker/index.php?func=detail&aid=1779265&group_id=1… Then I (with the help of Phil) figured out a workaround (mostly through sheer luck). I put a call to ltk:do-msg before the user gets a chance to press anything, and to avoid freezing the application, you have to dismiss the message box with a press of enter (clicking OK is not OK). So like it says in the bug report above, it seems that an enter will stop it freezing. Being 'lazy', I don't want to have to customise every single tcl/tk/ltk application I want to run on this computer, so is there a way to include an extra 'enter' or #\Newline in key places in the Ltk code to avoid this happening? They could all use #+win32 because I think it only seems to happen to that type of OS :(. Anyway, now I'm going to start learning to use ABLE! Cheers, Jonathan

1 0