[plt-scheme] Re: MrEd - Gui

I have again a little problem :)

When i define menu-item and i execute this code :

>;; "Montrer/Cacher l'interpretation" item definition...
>(define (interpretation-text)
>  (if (send scheme-editor is-shown?)
>      "Cacher l'interprétation"
>      "Montrer l'interprétation"))
>
>(define (interpretation-show)
>  (if (send scheme-editor is-shown?)
>      (send editor-hdragable delete-child scheme-editor)
>      (send editor-hdragable add-child scheme-editor)))
>
>(define interpretation-menu-item
>  (new menu-item%
>       (label (interpretation-text))
>       (shortcut #\I)
>       (parent show-menu)
>       (callback (lambda (item event) ((interpretation-show))))
>       (demand-callback (lambda (item)
>                          (send item set-label (interpretation-text))))))

This perform, but DrScheme send me an error :

>procedure application: expected procedure, given: #<void> (no arguments)

from :
>(callback (lambda (item event) ((interpretation-show))))

I don't understand why ?

Thanks,
Laurent


On 30 sep, 11:12, "Robby Findler" <ro... at cs.uchicago.edu> wrote:
> Use the change-children method of the container of the two editor canvases.
>
> Robby
>
> On 9/30/07, Laurent <Ouai... at gmail.com> wrote:
>
> > Hi,
>
> > I searched in the framework but i don't find how to hide an editor
> > canvas and reset the size from other editor canvas.
> > For example, when we do CTRL + E, the toplevel is hidden and the
> > editor size reset.
> > If i do :
>
> > > (send editor-canvas-toplevel show #t)
>
> > the editor is hidden, but I always have a grey space instead of the
> > toplevel. The editor-canvas-editor is not reset.
>
> > Does anybody know how to make?
>
> > Thanks,
> > Laurent
>
> > On 23 sep, 23:31, "Stephen De Gabrielle" <step... at degabrielle.name>
> > wrote:
> > > Hi,
> > > - your editor canvases stretch fine for me
> > > - I think you need to use the frame:status-line%
> > > -- seehttp://download.plt-scheme.org/doc/371/html/framework/framework-Z-H-1...
> > > -- I think grow-box-spacer-pane is no good for containing information
>
> > > The framework collection has lots of stuff that is used by the DrScheme
> > > application:
> > > -http://download.plt-scheme.org/doc/371/html/framework/framework.html
>
> > > I think collects/framework fits in between collects/MrEd which provides the
> > > gui basics, and collects/DrScheme that describes the IDE&editor whick is the
> > > DrScheme Application.
>
> > > Cheers,
>
> > > Stephen
>
> > > On 9/23/07, Laurent <Ouai... at gmail.com> wrote:
>
> > > > Hello,
>
> > > > I am trying to make the DrScheme gui with MrEd, but i have some
> > > > problems :
>
> > > > - Canvas editor are not stretchables. I have no idea from why ?
> > > > - I have used grow-box-spacer-pane. Is that the good object for static
> > > > bar ?
>
> > > > My short code :
>
> > > > (define frame-1 (new frame%
> > > >                      (label "Test...")
> > > >                      (min-height 500) (min-width 600)))
>
> > > > ;; Container
> > > > (define vpanel-1 (new vertical-panel% (parent frame-1)))
>
> > > > (define gbsp-toolbar (new grow-box-spacer-pane%
> > > >                             (parent vpanel-1)
> > > >                             (min-height 30)))
>
> > > > (define vpane-editor (new vertical-panel%
> > > >                           (parent vpanel-1)
> > > >                           (style '(border))
> > > >                           (stretchable-height #t)
> > > >                           (spacing 5)))
> > > > ;;Canvas
> > > > (define canvas-editor (new editor-canvas%
> > > >                            (parent vpane-editor)
> > > >                            (stretchable-height #t)
> > > >                            (style '(no-hscroll))))
>
> > > > (define canvas-evaluator (new editor-canvas%
> > > >                               (parent vpane-editor)
> > > >                               (stretchable-height #t)
> > > >                               (style '(no-hscroll))))
>
> > > > (define gbsp-infobar (new grow-box-spacer-pane%
> > > >                             (parent vpanel-1)
> > > >                             (min-height 30)))
>
> > > > (define text-1 (make-object text%))
> > > > (define text-2 (make-object text%))
>
> > > > (send canvas-editor set-editor text-1)
> > > > (send canvas-evaluator set-editor text-2)
>
> > > > ;; On centre la fenêtre
> > > > (send frame-1 center 'both)
> > > > ;; On affiche la fenêtre
> > > > (send frame-1 show #t)
>
> > > > Thanks,
> > > > Laurent
>
> > > > _________________________________________________
> > > >   For list-related administrative tasks:
> > > >  http://list.cs.brown.edu/mailman/listinfo/plt-scheme
>
> > > --
> > > Cheers,
>
> > > Stephen
>
> > > --
> > > Stephen De Gabrielle
> > > s.degabrie... at ucl.ac.uk
> > > Telephone +44 (0)20 7679 5242 (x45242)
> > > Mobile                  079 851 890 45http://www.uclic.ucl.ac.uk/annb/MaSI.html
> > > University College London Interaction Centre
> > > Remax House - 31/32 Alfred Place
> > > London - WC1E 7DP
>
> > > _________________________________________________
> > >   For list-related administrative tasks:
> > >  http://list.cs.brown.edu/mailman/listinfo/plt-scheme
>
> > _________________________________________________
> >   For list-related administrative tasks:
> >  http://list.cs.brown.edu/mailman/listinfo/plt-scheme
>
>
>
> _________________________________________________
>   For list-related administrative tasks:
>  http://list.cs.brown.edu/mailman/listinfo/plt-scheme>>