Changes between Version 11 and Version 12 of EasyGuiCurrencyConverter


Ignore:
Timestamp:
Nov 28, 2007, 4:42:32 PM (12 years ago)
Author:
alms
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • EasyGuiCurrencyConverter

    v11 v12  
    1616
    1717(defmethod initialize-view :after ((cw converter-window))
    18   (let ((currency-form (make-instance 'form-view
     18  (let* ((currency-form (make-instance 'form-view
    1919                          :autosize-cells-p t
    2020                          :interline-spacing 9.0
    2121                          :position (point 15 70)                         
    2222                          :size (point 353 90)))
    23         (convert-button (make-instance 'push-button-view
     23        (convert-button (make-instance 'push-button-view
    2424                           :default-button-p t
    2525                           :text "Convert"
    2626                           :position (point 247 15)))
    27         (line (make-instance 'box-view
     27        (line (make-instance 'box-view
    2828                 :position (point 15 59)
    29                  :size (point 353 2))))
     29                 :size (point 353 2)))
     30         (entries (add-entries currency-form
     31                               "Exchange Rate per $1:"
     32                               "Dollars to Convert:"
     33                               "Amount in other Currency:")))
    3034    (setf (action convert-button)
    3135          #'(lambda ()
     
    3741                  (setf (entry-text currency-form 2)
    3842                        (prin1-to-string (* n1 n2)))))))
    39     (setf (editable-p (car (last (add-entries currency-form
    40                                               "Exchange Rate per $1:"
    41                                               "Dollars to Convert:"
    42                                               "Amount in other Currency:"))))
     43    (setf (editable-p (car (last entries)))
    4344          nil)
    4445    (add-subviews cw currency-form line convert-button)