deiconify www-browser

From: Thomas Buerger <buerger_at_serv1.iaa.tu-clausthal.de>
Date: Mon, 10 Aug 1998 16:35:29 +0200 (MET DST)

The WWW:browser called without :parent creates a <toplevel>. If this toplevel
is iconified i want it to be deiconified upon subsequent calls of the
browser (used for an online help-system). This patch makes the browser doing
what i want. If it is usefull it could be build into the next STk-Version.

  greetings and nice holidays, Thomas

$ diff Lib/www-browser.stklos.orig Lib/www-browser.stklos

25c25,26
< (let ((browser #f)) ;; Id of browser (#f if no browser exists)

---
>   (let ((browser #f)		;; Id of browser (#f if no browser exists)
> 	(parent-widget #f))     ;; ... of browser (set if parent=<toplevel>)
27c28
< 
---
>       
138,140c139,144
<       (set! browser (make-interface 
< 		       (or parent 
< 			   (make <Toplevel> :title "STk Web browser"))))
---
>       (set! parent-widget #f)
>       (if (not parent)
> 	  (begin
> 	    (set! parent (make <Toplevel> :title "STk Web browser"))
> 	    (set! parent-widget parent)))
>       (set! browser (make-interface parent))
142c146,149
< 
---
>     
>     (if parent-widget
> 	(wm 'deiconify parent-widget))
>     
-- 
****************************************************************************
INSTITUT FUER APPARATEBAU UND ANLAGENTECHNIK      Dipl.-Ing. Thomas Buerger
     TECHNISCHE UNIVERSITAET CLAUSTHAL            Tel.: (49)5323/953-412
               Am Regenbogen 15                   Fax.: (49)5323/953-499
       D-38678 Clausthal-Z. (Germany)  Email:thomas.buerger_at_tu-clausthal.de
Schwerpunkt: Einsatz der Nahbereichsphotogrammetrie im Anlagenbau.
    Project: Application of close-range-photogrammetry in plant engineering.
*************************************************** FIAT LinUX ;-) ********* 

Received on Mon Aug 10 1998 - 16:32:41 CEST