🚀 go-pugleaf

lms@rle-vlsi.mit.edu writes:
>I tried to send this directly to Liam [lee@sqlee.sq.com (Liam R. E.
>Quin)] but it bounced back twice.  Sorry for the bandwith loss...

The correct reply address is lee@sq.com; sorry.

>> I am not sure how to get rid of the OpenWindows startup banner if you are
>> using xdm, but the normal approach is to insert into .startup.ps
>> 	/IncludeDemos? false def % faster startup, no TNT demos
>> 	/NoBanner? true def
>>  [...]

>Actually there might be some confusion here.  There are two banners
>involved.  In general one can start xnews with -banner and get the
>full screen OW screen (with full screen blue background).  However the
>default is -nobanner and one will get the X "weavy" background.
>Unfortunately even in this situation one gets the small OW logo on the
>middle of the screen.
>

You can redefine init.ps and paintroot.ps (they normally go in $HOME/NeWS,
but you could edit the ones in $OPENWINHOME/share/etc/NeWS if you were
very careful... :-)

The following versions will start OW3 up with neither `banner'.

A better solution would be to move the small banner out of the way of the xdm
screen, or to move the xdm screen (with .x and .y resources, probably) so
it doesn't hide the OpenWindows logo.  Since the logo is only there for 5
seconds, I don't see that it matters all that much, but still...

diff -r -c NeWS/init.ps /usr/openwin/share/etc/NeWS/init.ps
*** NeWS/init.ps	Mon Aug 31 23:04:36 1992
--- /usr/openwin/share/etc/NeWS/init.ps	Wed Sep 18 10:37:49 1991
***************
*** 158,164 ****
  	% window system time to start, and still have something to 
          % look at.
  
!         1 0 timeval storetimeval sleep % LIAM - comment out
  	shareddict begin
  	    CleanupPaintRoot
  	    shareddict /CleanupPaintRoot undef
--- 158,164 ----
  	% window system time to start, and still have something to 
          % look at.
  
!         5 0 timeval storetimeval sleep
  	shareddict begin
  	    CleanupPaintRoot
  	    shareddict /CleanupPaintRoot undef
diff -r -c NeWS/paintroot.ps /usr/openwin/share/etc/NeWS/paintroot.ps
*** NeWS/paintroot.ps	Mon Aug 31 23:07:31 1992
--- /usr/openwin/share/etc/NeWS/paintroot.ps	Wed Sep 18 10:37:53 1991
***************
*** 478,483 ****
--- 478,552 ----
  	        versionstring emboss
  
              } {
+ 
+                 /width1 width1 logodim add def
+  
+                 /width2 width2 logodim add def
+  
+                 /leftright leftright logodim 2 div sub def
+ 
+                 /rectx1 leftright def
+                 /recty1 top logodim space 2 mul add sub def
+                 /recth logodim space 2 mul add def
+                 /rectw width1 width2 max space 3 mul add def
+                 /rectx2 rectx1 rectw add def
+                 /recty2 recty1 recth add def
+ 
+                 bannercv /Color get {         
+                    normal setcolor
+                 } {
+                    dim setcolor
+                 } ifelse
+   
+                 newpath rectx1 recty1 rectw recth rectpath fill
+                 rectx1 recty1 rectx2 recty2 size 2 div embossrect
+   
+                 bannercv /Color get {
+                    dim setcolor
+                    rectx1 space add 4 add recty1 space add 1 sub logo
+                    bright setcolor
+                    rectx1 space add 3 sub recty1 space add 1 add logo
+                    normal setcolor
+                    rectx1 space add recty1 space add logo
+                 } {
+                    normal setcolor
+                    rectx1 space add 2 add recty1 space add 1 sub logo
+                    bright setcolor
+                    rectx1 space add 3 sub recty1 space add 1 add logo
+                 } ifelse
+ 
+                 /midpoint rectx2 space sub
+                          rectx1 logodim add space add sub
+                          2 div rectx1 add logodim add space add def
+ 
+                 midpoint banner stringwidth pop 2 div sub
+                 top logodim .333 mul sub space sub moveto
+                 banner
+                 bannercv /Color get {
+                    emboss
+                 } {
+                    bright setcolor show
+                 } ifelse
+  
+                 0 size 2 div rmoveto
+                 tmfont setfont
+                 trademark
+                 bannercv /Color get {
+                    emboss
+                 } {
+                    bright setcolor show
+                 } ifelse
+  
+                 textfont setfont
+                 midpoint versionstring stringwidth pop 2 div sub
+                 top logodim .666 mul sub space 2 mul sub moveto
+                 versionstring
+                 bannercv /Color get {
+                    emboss
+                 } {
+                    bright setcolor show
+                 } ifelse
+ 
  	    } ifelse    % NoBanner?
  
  	grestore

Lee

-- 
Liam Quin, lee@sq.com, SoftQuad, Toronto, 416 239-4801; the barefoot programmer
  lq-text (Unix text retrieval package) mailing list: lq-text-request@sq.com
  latest released version: 1.10; ftp: ftp.cs.toronto.edu in directory: pub
  If Adultery is for Adults, is Juvenal for Juveniles?