[racket] affing a panel to DrRacket

From: Stephen De Gabrielle (spdegabrielle at gmail.com)
Date: Mon Jul 5 18:51:52 EDT 2010

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


On Fri, Jul 2, 2010 at 12:22 PM, Robby Findler
<robby at eecs.northwestern.edu>wrote:

> You want to override the make-root-area-container method to create
> your panel. See here:
>
>
> 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<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>
>
> (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
> <spdegabrielle at gmail.com> 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 [email protected])
> >
> > (define [email protected]
> >   (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 "http://sp.degabrielle.name/cosmonaut")
> >
> >
> > (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  '(("http://sp.degabrielle.name/cosmonaut")
> >                               ;("http://sp.degabrielle.name/Fossil")
> >                               ;("http://sp.degabrielle.name/Tabs")
> >                               ))
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > On Wed, Jun 30, 2010 at 5:02 PM, Robby Findler <
> robby at eecs.northwestern.edu>
> > 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
> >> <spdegabrielle at gmail.com> 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:
> >> >  http://lists.racket-lang.org/listinfo/users
> >> >
> >
> >
> >
> > --
> >
> > --
> > Stephen De Gabrielle
> > stephen.degabrielle at acm.org
> > Telephone +44 (0)20 85670911
> > Mobile        +44 (0)79 85189045
> > http://www.degabrielle.name/stephen
> >
> >
>



-- 

--
Stephen De Gabrielle
stephen.degabrielle at acm.org
Telephone +44 (0)20 85670911
Mobile        +44 (0)79 85189045
http://www.degabrielle.name/stephen
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20100705/d35a36b2/attachment.html>

Posted on the users mailing list.