[plt-scheme] MrEd - Gui

Hi,
- your editor canvases stretch fine for me
- I think you need to use the frame:status-line%
-- see
http://download.plt-scheme.org/doc/371/html/framework/framework-Z-H-140.html#node_tag_Temp_131
-- 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 <Ouaibou 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.degabrielle at ucl.ac.uk
Telephone +44 (0)20 7679 5242 (x45242)
Mobile                  079 851 890 45
http://www.uclic.ucl.ac.uk/annb/MaSI.html
University College London Interaction Centre
Remax House - 31/32 Alfred Place
London - WC1E 7DP
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20070923/c85e11b6/attachment.html>