- Timestamp:
- Aug 13, 2008, 3:30:20 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.2/source/examples/cocoa/easygui/views.lisp
r9794 r10455 263 263 (defmethod initialize-view :after ((view slider-view)) 264 264 (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."))) 273 275 (dcc (#/setMinValue: (cocoa-ref view) (float min-value ns:+cgfloat-zero+))) 274 276 (dcc (#/setMaxValue: (cocoa-ref view) (float max-value ns:+cgfloat-zero+)))
Note: See TracChangeset
for help on using the changeset viewer.