cocoa slider initial value
original commit: 1beecc143d9e6c2c4bc42491bfc943850eac9618
This commit is contained in:
parent
a95c0b901c
commit
cba60dd8a7
|
@ -45,6 +45,7 @@
|
|||
[vert? (memq 'vertical style)])
|
||||
(tellv cocoa setMinValue: #:type _double* lo)
|
||||
(tellv cocoa setMaxValue: #:type _double* hi)
|
||||
(tellv cocoa setDoubleValue: #:type _double* val)
|
||||
(tellv cocoa setNumberOfTickMarks: #:type _NSUInteger (add1 (- hi lo)))
|
||||
(tellv cocoa setAllowsTickMarkValuesOnly: #:type _BOOL #t)
|
||||
(tellv cocoa setFrame: #:type _NSRect (make-NSRect
|
||||
|
|
Loading…
Reference in New Issue
Block a user