Brilliant thanks. Stephen On Thursday, March 28, 2013, Diogo F. S. Ramos wrote:
> Stephen De Gabrielle <[email protected] <javascript:;>> writes: > > > You can use the FFI to pull in more Gtk, Win32, or Cocoa widgets > > on the > > corresponding platform. The `get-handle' and `get-client-handle' > > methods of a `window<%>' provide access to the underlying GUI > > toolkit's > > object, which lets you mix `racket/gui' windows and naive widgets. > > > > I'm fascinated by this, I'm having trouble locating an example where > > it is used to bring in a native control. > > The following code brings up a toggle button from GTK+. > > Hope this helps. :^) > > > #lang racket/gui > > (require ffi/unsafe) > > (define gtk-toggle-button-new-with-label > (get-ffi-obj "gtk_toggle_button_new_with_label" > #f > (_fun _string -> _pointer))) > (define gtk-container-add > (get-ffi-obj "gtk_container_add" > #f > (_fun _pointer _pointer -> _void))) > (define gtk-widget-show > (get-ffi-obj "gtk_widget_show" > #f > (_fun _pointer -> _void))) > > (define win (new frame% (label "hello, world"))) > > (define toggle (gtk-toggle-button-new-with-label "toggle me")) > (gtk-widget-show toggle) > (gtk-container-add (send win get-client-handle) toggle) > > (send win show #t) > -- -- Stephen De Gabrielle [email protected] Telephone +44 (0)20 85670911 Mobile +44 (0)79 85189045 http://www.degabrielle.name/stephen ---- Professor: Oh God! I clicked without reading! Cubert: And I slightly modified something I own! Professor: We're monsters!
____________________ Racket Users list: http://lists.racket-lang.org/users
