ltk-user June 2018

ltk-user@common-lisp.net

3 participants
3 discussions

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

ltk-user June 2018