ltk-user April 2010

ltk-user@common-lisp.net

4 participants
4 discussions

[ltk-user] sudoku
by Daniel Herring 26 Apr '10

26 Apr '10

I took a few hours this weekend to write yet another sudoku gui. Why? Because the world doesn't have enough implementations. Temporary home is http://libcl.com/tmp/sudoku.lisp A bit rough, but not bad. (load "ltk") (load "sudoku") (sudoku::render) Then open the file menu and select "Generate board". Left click numbers to select them, right click to hide. File->Check board will red flag any squares which are incorrect. Later, Daniel

1 0

[ltk-user] [patch] improved font support
by Daniel Herring 25 Apr '10

25 Apr '10

The attached patch was developed on http://ltk.rplay.net/svn/branches/ltk/repl revision 224 It adds a few useful commands for manipulating fonts. http://www.tcl.tk/man/tcl8.5/TkCmd/font.htm Example: (font-create :bignum :family :courier :size 30 :weight :bold :slant :italic :underline :true :overstrike :true) (configure some-canvas-text :font :bignum) Later, Daniel

1 0

[ltk-user] ltk-tile make-instance 'button :command
by Everett Fuller 19 Apr '10

19 Apr '10

Hello ltk-users After looking at gtk, qt, and other widget tool kits, from my noob perspective, ltk-tile looked the most promising (even I might be able to do it!) for creating guis with native look and feel. Hats off to Mr. Herth in extreme thanks for his work. However, I am finding scanty documentation on ltk-tile, and have been mostly relying on the ltk-tile.lisp file to try and figure out it's syntax. , In the example function (tile-test), though creating a window with a label, an entry, and a button, the button doesn't do anything. I am hereby pasting in the code of two separate files. The first one successfully uses ltk to create a frame with a button in it that outputs "Hello!" to the console when the button is clicked. The second file tries to do the same thing, only using ltk-tile instead, but it is unsuccessful at outputing anything to the console. Because I am new to lisp, I still sometimes separate and indent the parentheses to help me visually comprehend what is inside of what. Here is code of first file: *;; making a button in ltk that outputs "Hello" to the console when clicked ; load dependent systems (load "/usr/local/lisp/systems/ltk/ltk") (in-package :ltk) ; define function (defun hellobutton () (with-ltk () (let* ( (f (make-instance 'frame)) (b (make-instance 'button :master f :text "hellobutton" :command (lambda () (format t "~%~THello!~%")))) ) (pack f) (pack b) (mainloop) ))) ; use function (hellobutton) * The above worked!!! But when I try it with ltk-tile it doesn't work. Here is the ltk-tile code that is trying to do same thing: *;; trying to make a button with ltk-tile that outputs "Hello" to the console when clicked ; load dependent systems (load "/usr/local/lisp/systems/ltk/ltk") (load "/usr/local/lisp/systems/ltk/ltk-tile") (in-package :ltk-tile) ; define function (defun hellobutton () (activate-tile) (with-ltk () (let* ( (f (make-instance 'frame)) (b (make-instance 'button :master f :text "hellobutton" :command (lambda () (format t "~%~THello!~%")))) ) (pack f) (pack b) (dolist (theme (theme-names)) (make-menubutton mtheme theme (lambda() (use-theme theme)))) (mainloop) ))) ; use function (hellobutton) * Unfortunately I am new to lisp, tcl, tk, and gui programming in general. Any links to additional examples or tutorials on ltk-tile would be appreciated. I am happy to buy books too, so long as they cover ltk-tile. Thanks in advance, --Slac-in-the-box (p.s. I've started my 12-year-old on lisp, and he has already made a text game in the fashioned after bsd-games "adventure" and he squeals with excitement (same joyous sounds he makes on the way to visit other kids) whenever he gets something to work! He is only a day or two behind on learning ltk and is asking questions for which I haven't any answers. Thus, the pressure is on for me to find answers!)

2 4

[ltk-user] misprint in comment
by Johan Ur Riise 09 Apr '10

09 Apr '10

--- ltk.lisp.old 2010-04-10 01:17:39.000000000 +0200 +++ ltk.lisp 2010-04-10 01:18:18.000000000 +0200 @@ -19,7 +19,7 @@ |# #| -All tk commads as of version 8.4 with support information. "-" means not +All tk commands as of version 8.4 with support information. "-" means not supported by purpose (look comment), "x" means supported, though some options may not be supported.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

ltk-user April 2010