<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.19088">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face=Arial>This is my program.</FONT></DIV>
<DIV><FONT size=2 face=Arial>Sign + button is a bit higher than </FONT></DIV>
<DIV><FONT size=2 face=Arial>two number buttons on the left. Why ?</FONT></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV><FONT size=2 face=Arial>(in-package :ltk)</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=2 face=Arial>(defun make-button (text width height)<BR>
(make-instance
'button<BR>
:text
text<BR>
:width
width<BR>
:height
height<BR>
:font "Arial 20"))</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>(defun calc ()<BR> (with-ltk
()<BR> (let ((buttons (make-array '(3
3))))<BR> (dotimes (x
3)<BR> (dotimes (y
3)<BR> (setf (aref
buttons x y) (make-button (format nil "~d" (+ (* 3 x) y 1)) 3
1))<BR> (grid (aref
buttons x y) x y)))<BR> (grid (make-button "0" 3
1) 3 1)<BR> (grid (make-button "+" 3 3) 1 3
:rowspan 2)<BR> (grid (make-button "-" 3 1) 1
4)<BR> (grid (make-button "*" 3 1) 0
3)<BR> (grid (make-button "/" 3 1) 0
4))))<BR> </FONT></DIV></BLOCKQUOTE></BODY></HTML>