If I want a square button I have to specify a width 3 times larger than height. Why is that so ? What do size values represent exactly ?
I made a grid button rowspan of 2. That button's height isn't exactly 2 times larger than other buttons so it streches the positions of other buttons a bit. Why is that ?
Thanks
This is my program. Sign + button is a bit higher than two number buttons on the left. Why ? (in-package :ltk)
(defun make-button (text width height) (make-instance 'button :text text :width width :height height :font "Arial 20"))
(defun calc () (with-ltk () (let ((buttons (make-array '(3 3)))) (dotimes (x 3) (dotimes (y 3) (setf (aref buttons x y) (make-button (format nil "~d" (+ (* 3 x) y 1)) 3 1)) (grid (aref buttons x y) x y))) (grid (make-button "0" 3 1) 3 1) (grid (make-button "+" 3 3) 1 3 :rowspan 2) (grid (make-button "-" 3 1) 1 4) (grid (make-button "*" 3 1) 0 3) (grid (make-button "/" 3 1) 0 4))))
-
cage -
Haris Bogdanovich