I've got it working, by looking at the example 'delegate-mixin' in framework/private/frame.rkt Thanks for you tips. I'll soon work out *how* it works and post a mini-example. Cheers, Stephen <div class="gmail_quote">On Fri, Jul 2, 2010 at 12:22 PM, Robby Findler <<a href="mailto:robby@eecs.northwestern.edu">robby@eecs.northwestern.edu</a>> wrote: <blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"> You want to override the make-root-area-container method to create your panel. See here: <a href="http://docs.racket-lang.org/framework/Frame.html?q=frame%3Abasic#%28meth._%28%28%28lib._framework/main..rkt%29._frame%7E3abasic%7E3c%7E25%7E3e%29._make-root-area-container%29%29" target="_blank">http://docs.racket-lang.org/framework/Frame.html?q=frame%3Abasic#%28meth._%28%28%28lib._framework/main..rkt%29._frame~3abasic~3c~25~3e%29._make-root-area-container%29%29</a> (and ask again if that's not enough of a hint; sorry for the clue dropping, I promise that eventually I make a little example if you don't beat me to it.) Robby On Thu, Jul 1, 2010 at 9:42 AM, Stephen De Gabrielle <div><div></div><div class="h5"><<a href="mailto:spdegabrielle@gmail.com">spdegabrielle@gmail.com</a>> wrote: > it's lives, but I'm still a little confused on how I set where it sits in > the layout, and how to make it dragable - the class is not enough. I > appreciate the help - I'm having a bad run at making sense of the > documentation. > > the relevant bit; > [...] > (define (tabs-mixin super%) > (class super% > (define text (new text%)) > (super-new) > (let* ((area-container (send this get-area-container)) > (test-panel (new panel:horizontal-dragable% (parent > area-container))) > (text (new text%)) > (ed (new editor-canvas% (parent test-panel)))) > (send ed set-editor text) > #;(send area-container add-child test-panel)) ;;; I need a parent > to instantiate a panel. > )) > [...] > > As you can see I'm also curious about the nature of the add-child method, > given that the panel is added at instantiation, and a parent is required. > > Thanks again for your help. > , > Stephen > > Full file; > > #lang racket/base > (require mred > racket/class > scheme/file > scheme/contract > framework/framework > framework > racket/unit > drracket/tool-lib > drscheme/tool > ) > > (provide tool@) > > (define tool@ > (unit > (import drracket:tool^) > (export drracket:tool-exports^) > (define (phase1) (void)) > (define (phase2) (void)) > > (define (tabs-mixin super%) > (class super% > ; frame:basic<%> > ; frame:basic-mixin: do not add children directly to a frame:basic > (unless using make-root-area-container) > ; use the get-area-contaner method instead > (define text (new text%)) > > (inherit get-current-tab get-menu-bar get-button-panel > register-toolbar-button) > (super-new) > > (let* ((area-container (send this get-area-container)) > (test-panel (new panel:horizontal-dragable% (parent > area-container))) > (text (new text%)) > (ed (new editor-canvas% (parent test-panel)))) > (send ed set-editor text) > #;(send area-container add-child test-panel)) > )) > > > (drracket:get/extend:extend-unit-frame tabs-mixin) > )) > > ;; info file > #lang setup/infotab > > (define name "Cosmonaut") > (define version "0.1") > (define release-notes '("for Racket 5")) > (define blurb '("Cosmonaut lets you explore the PLaneT package repository > from within DrScheme.")) > > (define doc.txt "doc.txt") > (define homepage "<a href="http://sp.degabrielle.name/cosmonaut" target="_blank">http://sp.degabrielle.name/cosmonaut</a>") > > > (define drracket-tools '(("cosmonaut.rkt") > ;("fossil.rkt") > ;("tabs.rkt") > )) > > (define drracket-tool-names '("Cosmonaut" > ;"Fossil" > ;"Tabs" > )) > > ;(define drracket-tool-icons (list (list "cosmonaut.png" "fossil.png" > "projectmgr.png"))) > (define drracket-tool-urls '(("<a href="http://sp.degabrielle.name/cosmonaut" target="_blank">http://sp.degabrielle.name/cosmonaut</a>") > ;("<a href="http://sp.degabrielle.name/Fossil" target="_blank">http://sp.degabrielle.name/Fossil</a>") > ;("<a href="http://sp.degabrielle.name/Tabs" target="_blank">http://sp.degabrielle.name/Tabs</a>") > )) > > > > > > > > > > On Wed, Jun 30, 2010 at 5:02 PM, Robby Findler <<a href="mailto:robby@eecs.northwestern.edu">robby@eecs.northwestern.edu</a>> > wrote: >> >> You want to create a tool, add in a frame-mixin (both via the tools >> interface), and then use the frame:basic<%> mechanism for adding >> panels to the frame. >> >> If that's not enough to get you started, I'll write up a little >> example tool that does it. >> >> Robby >> >> On Wed, Jun 30, 2010 at 8:30 AM, Stephen De Gabrielle >> <<a href="mailto:spdegabrielle@gmail.com">spdegabrielle@gmail.com</a>> wrote: >> > Hi, >> > >> > Please forgive my ignorance, I'm trying to work out how to add a panel >> > (like program contour) to DrRacket. >> > >> > Does anyone know the correct method, or can point me to source code, or >> > the >> > right bit of the documentation? >> > >> > Cheers, >> > >> > Stephen >> > >> > _________________________________________________ >> > For list-related administrative tasks: >> > <a href="http://lists.racket-lang.org/listinfo/users" target="_blank">http://lists.racket-lang.org/listinfo/users</a> >> > > > > > -- > > -- > Stephen De Gabrielle > <a href="mailto:stephen.degabrielle@acm.org">stephen.degabrielle@acm.org</a> > Telephone +44 (0)20 85670911 > Mobile +44 (0)79 85189045 > <a href="http://www.degabrielle.name/stephen" target="_blank">http://www.degabrielle.name/stephen</a> > > </div></div></blockquote></div> -- -- Stephen De Gabrielle <a href="mailto:stephen.degabrielle@acm.org">stephen.degabrielle@acm.org</a> Telephone +44 (0)20 85670911 Mobile +44 (0)79 85189045 <a href="http://www.degabrielle.name/stephen">http://www.degabrielle.name/stephen</a>