Changeset 10455 for release/1.2/source


Ignore:
Timestamp:
Aug 13, 2008, 3:30:20 AM (11 years ago)
Author:
rme
Message:

Port r9661 here. (Avoid compiler errors due to undefined tick-mark-values.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.2/source/examples/cocoa/easygui/views.lisp

    r9794 r10455  
    263263(defmethod initialize-view :after ((view slider-view))
    264264  (with-slots (discrete-tick-marks-p tick-mark-count min-value max-value) view
    265      (cond ((and (not (slot-boundp view 'tick-mark-count))
    266                  (slot-boundp view 'discrete-tick-marks-p)
    267                  (/= (length tick-mark-values) tick-mark-count))
    268             (error "Incompatible tick mark specification: ~A doesn't match ~
    269                      count of ~A" tick-mark-values tick-mark-values))
    270            ((or (not (slot-boundp view 'max-value))
    271                 (not (slot-boundp view 'min-value)))
    272             (error "A slider view needs both :min-value and :max-value set.")))
     265     (cond
     266       #| BUG: tick-mark-values is not defined.
     267       ((and (not (slot-boundp view 'tick-mark-count))
     268       (slot-boundp view 'discrete-tick-marks-p)
     269       (/= (length tick-mark-values) tick-mark-count))
     270       (error "Incompatible tick mark specification: ~A doesn't match ~
     271       count of ~A" tick-mark-values tick-mark-values))|#
     272       ((or (not (slot-boundp view 'max-value))
     273            (not (slot-boundp view 'min-value)))
     274        (error "A slider view needs both :min-value and :max-value set.")))
    273275     (dcc (#/setMinValue: (cocoa-ref view) (float min-value ns:+cgfloat-zero+)))
    274276     (dcc (#/setMaxValue: (cocoa-ref view) (float max-value ns:+cgfloat-zero+)))
Note: See TracChangeset for help on using the changeset viewer.