[plt-scheme] User interface - collect browser

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:

 (module browser mzscheme
   (require (lib "class.ss")
	    (lib "mred.ss" "mred")
	    (lib "browser.ss" "browser"))
   
   (define f (instantiate (class frame% 
			    (define/public (open-status-line . args) (void))
			    (define/public (update-status-line . args) (void))
			    (define/public (close-status-line . args) (void))
			    (super-new))
			  ("My Frame" #f 400 300)))
   (define browser (instantiate hyper-panel% (#f f)))
   (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))


Matthew