chiark
/
gitweb
/
~mdw
/
jlisp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Work in progress.
[jlisp]
/
rolling.lisp
diff --git
a/rolling.lisp
b/rolling.lisp
index 61874c7334e9d7430eb58a846cc8818c260ba65b..7f9b34203774368c68203ff47f63497d0f961a7f 100644
(file)
--- a/
rolling.lisp
+++ b/
rolling.lisp
@@
-48,8
+48,8
@@
(defwindow rolling-window () ("Rolling")
(make-output "Length:" start-length))
(within-group ("Initial stock")
(make-radio-dep stock-type
(make-output "Length:" start-length))
(within-group ("Initial stock")
(make-radio-dep stock-type
- :round "Round section"
-
:square "Square section"
)
+
'(
:round "Round section"
+
:square "Square section")
)
(make-input "Stock size:" stock-size)
(make-output "Stock length:" stock-length))
#+ no
(make-input "Stock size:" stock-size)
(make-output "Stock length:" stock-length))
#+ no