(define (addcustomer )
(set 'namee (read-line))
(set 'street (read-line))
(push '((namee) (street)))customer)
The part that isn't working is: (push '((namee) (street)))customer)
- Welcome to newLISP Fan Club.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Pages1
#1
newLISP newS / why don't this work?
April 13, 2006, 05:06:05 PM(define (addcustomer )
(set 'namee (read-line))
(set 'street (read-line))
(push '((namee) (street)))customer)
The part that isn't working is: (push '((namee) (street)))customer)
#3
newLISP newS / How do you get it to put buttons on one line
April 13, 2006, 06:06:18 AMI am very new to Newlisp.
I am trying to learn Newlisp and was trying to make a calculator program.
I was wondering how to I could get tk to diplay all the buttons on one line instead of putting the buttons on a new line? Here is my code:
(define (calc)
(tk "toplevel .mywin")
(tk "button .mywin.add -relief flat -overrelief raised -text ADD")
(tk "pack .mywin.add -padx 30 -pady 20")
(tk "button .mywin.subtract -relief flat -overrelief raised -text SUBTRACT")
(tk "pack .mywin.subtract -padx 30 -pady 20")
(tk "button .mywin.multiply -relief flat -overrelief raised -text MULTIPLY")
(tk "pack .mywin.multiply -padx 30 -pady 20")
(tk "button .mywin.divide -relief flat -overrelief raised -text DIVIDE")
(tk "pack .mywin.divide -padx 10 -pady 10")
)
I hope you can understand my question. Thanks for any help.
Pages1