Changeset 9661


Ignore:
Timestamp:
Jun 3, 2008, 4:55:16 PM (11 years ago)
Author:
mikel
Message:

commented out reference to tick-mark-values in easygui/views.lisp, to avoid a compiler error. we can uncomment it when tick-mark-values is defined or unneeded

File:
1 edited

Legend:

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

    r7802 r9661  
    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.