[plt-scheme] User interface - collect browser

At Tue, 20 Apr 2004 06:53:59 -0700, Matthew Flatt wrote:
> At Tue, 20 Apr 2004 12:18:42 +0200, "sly" wrote:
> > I have already found this 2nd exemple, but, I have the same error as you :
> > the panel's frame have not a status line.
> 
> If you have control over the frame, then you can fake the status line:
> [...]

You might also use the status-line mixin, from the framework:

 (module browser mzscheme
   (require (lib "class.ss")
	    (lib "mred.ss" "mred")
	    (lib "browser.ss" "browser")
            (lib "framework.ss" "framework"))
   
   (define f%
     (frame:status-line-mixin 
      frame:basic%))
   
   (define f (new f%
                  (label "My Frame")
                  (width 400)
                  (height 300)))
   (define browser (new hyper-panel% 
                        (info-line? #f)
                        (parent (send f get-area-container))))
   (send f show #t)
   
   (send (send browser get-canvas)
	 goto-url
	 ;; The starting URL:
	 "http://www.htdp.org/";
	 ;; #f means not a relative URL:
	 #f))

Robby