From cba60dd8a7dedbad7db4e1a7ca3dc5bfb4532e0a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 29 Jul 2010 18:47:57 -0600 Subject: [PATCH] cocoa slider initial value original commit: 1beecc143d9e6c2c4bc42491bfc943850eac9618 --- collects/mred/private/wx/cocoa/slider.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/mred/private/wx/cocoa/slider.rkt b/collects/mred/private/wx/cocoa/slider.rkt index 45c03b5b..679f42bd 100644 --- a/collects/mred/private/wx/cocoa/slider.rkt +++ b/collects/mred/private/wx/cocoa/slider.rkt @@ -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