I think you'll have to handle `on-size' at the `racket/gui' level: (define panel (new (class panel% (define/override (on-size w h) (tellv web-view setFrame: #:type _NSRect (make-NSRect (make-NSPoint 0 0) (make-NSSize w h)))) (super-new)) [parent frame]))
;; instead of `frame-view': (define panel-view (send panel get-client-handle)) (tellv panel-view addSubview: web-view) At Fri, 14 Oct 2011 23:19:32 -0700, Eric Dobson wrote: > I am trying to implement a WebKit panel in Racket, and am running in to some > trouble with the windowing API. I cannot get resizing to work. In OS X it > looks like it is supposed to be enabled by default so I assume racket is > changing it so that it can do its layout algorithm. The problem is that If I > want to hook into this It looks like I need to get access to the platform > specific racket windowing API. Currently I can get access to the Objective C > layer, but not to the hidden racket layer. Maybe this is not the way I should > approach this but I'm hoping someone can help. > > > > #lang racket > (require racket/gui/base ffi/unsafe/objc ffi/unsafe) > (require mred/private/wx/cocoa/types > (prefix-in c: mred/private/wx/cocoa/window)) > (define webkit-lib (ffi-lib (format > "/System/Library/Frameworks/WebKit.framework/WebKit"))) > > (import-class WebView) > (import-class NSURLRequest) > (import-class NSURL) > (define web-view (tell (tell WebView alloc) initWithFrame: #:type _NSRect > (make-NSRect (make-NSPoint 0 0) (make-NSSize 300 300)) frameName: #f > groupName: #f)) > (define frame (new frame% (label "test-frame") (width 300) (height 300))) > ;(define racket-web-view (new c:window% (parent frame) (cocoa web-view) > (no-show? #f))) > ;This problem is here the parent argument needs to be the platform specific > window and not the generic one > (define frame-view (send frame get-client-handle)) > (tellv frame-view addSubview: web-view) > > (define request (tell NSURLRequest requestWithURL: (tell NSURL URLWithString: > #:type _NSString "http://www.google.com"))) > (tellv (tell web-view mainFrame) loadRequest: request) > > (send frame show #t) > _________________________________________________ > For list-related administrative tasks: > http://lists.racket-lang.org/listinfo/dev _________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/dev