[plt-scheme] Re: MrEd - Gui

Ok, thanks :)

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