Conference bulova::decw_jan-89_to_nov-90

$ !This the the command procedure that you should use to run MESSAGE
$ !in a detached process  (edit the node name )
$ !
$ !
$ set ver
$ !
$ !if this is being executed by the detached process then...
$ !
$ if  "''f$mode()'"   .nes. "INTERACTIVE" then goto do
$ !
$ run/auth/uic=['f$getjpi("","UserName")']  -
sys$system:loginout.exe/input='f$en("Procedure")'/-
out=NL:/proc=MESSAGE
$ exit
$ !
$ do:
$ ! Executed by the detached process created above
$ !
$ set disp/create/node=VANITY     	! <<<<<<<<<< EDIT HERE 
$ !
$ ! create a decterm controller
$ !
$ spa/nowait  mc  decw$terminal
$ !
$ ! wait for the controller
$ !
$ wait 00:00:30
$ !
$ run Sys$Login:Message

How to link the source


$ mac  Message  
$ link Message,sys$input:/opt
sys$share:decw$terminalshr/share
sys$share:decw$dwtlibshr/share

>>   -< how is this different from DECwindows BANNER? >-


MESSAGE will run as a detached process...
you dont have a message box up if there are no messages
messages are allways 'new' (ie a message stays up for 5 mins... then goes away)
you get one message per box



I'am not trying to play down DECbanner or promote Message..
like it says... it a quick 'n' dirty hack that does
what I want it to

thats it

If you want to run Message as a subprocess..  do

SPAWN/NOWAIT/NOTI/OUT=NL:   RUN MESSAGE

You'll still get to see  broadcast messages on the terminal
you spawned from  (I dont think there's a way to turn these 
off)


Dont do any

Set Broadcast=nnnn
or
SEt Term/NoBroadcast

type things, cos what the terminal (you spawned from)  'sees'
is what gets put up the messages boxes

Ps..  this requires no privs at all to do

    
    Actually, this isn't like "banner", but instead it's a variant of
    DISPMSG (Burns Fisher circa 1986) for UIS now called VWS Message
    and included on the demo disk.  It did allow VWSBANNER to be used as
    the destination for the output instead of creating a pop-up window.
    
    _Fred

    re .0
    
    How is this different from VMS's MESSAGE utility?	:-)
    
    (In other words, maybe you want to change the name of your program --
     VMS already ships a program called MESSAGE)
    

Hi,

Could you provide a pointer to the source please,

Many thanks,

Rich.

> Could you provide a pointer to the source please,


JUNO""::MESSAGE.MAR

What am I doing wrong  ??? (Clean answers only please)

cannot get LOAD_QUERY_FONT to work... any ideas???

failing example follows  (Macro... Sorry!)

(The returned pointer to the created font structure is Zero)


; open the default display

        pushaq  null
        calls   #1,g^X$Open_Display
        movl    R0,Display


; load font

	pushal	x_font_list		; returned pointer to font structure
	pushaq	font_name		; font name
	pushal	display			; display
	calls	#3,g^x$load_query_font

	cmpl	r0,#x$c_success		; check for error
	beql	41$


; tell us the returned pointer to font structure & the display

	movl	#100,out
	$fao_s	ctrstr=ctraaa,outbuf=out,outlen=out,-
		p1=x_font_list,-
		p2=display
	pushaq	out
	calls	#1,g^lib$put_output


	ret		; exit our program !!
41$:	nop



error:	nop

	ret

font_name:	.ascid	/-*-Courier-BOLD-R-Normal--*-*-*-*-M-*-*-*/
x_font_list:	.long	struc			; point to structure 
struc:		.Blkl	100			; font structure <Returned>


out:	.long	100
	.long	out+8
	.blkb	100

ctraaa:	.ASCID	/x_font_list !XL  display !XL/

;x_font_list:	.blkl	100





display:	.blkl	1
null:           .ascid  //
f_err:	.ascid	/------------- error in x$load_query_font-------------/

	.end	start

I wish you were using something higher level than MACRO.  It would make
troubleshooting the code easier.

I think you problem may be here:

>       font_name:	.ascid	/-*-Courier-BOLD-R-Normal--*-*-*-*-M-*-*-*/

All of the Courier fonts listed in Appendix D of the DECwindows Programmer's
Guide have the word "Bold" spelled capital-B-o-l-d, not all caps the way you
have it.  An awful lot of X is case-sensitive.  I'd try:

	font_name:	.ascid	/-*-Courier-Bold-R-Normal--*-*-*-*-M-*-*-*/

--PSW

Thanks for the try...

> I wish you were using something higher level than MACRO.  It would make
> troubleshooting the code easier.

I know... one day I _must_ upgrade

> I'd try:
>	font_name:	.ascid	/-*-Courier-Bold-R-Normal--*-*-*-*-M-*-*-*/


Tried that... but no go

I even ran one of the 'list all loaded font' programs and
used _exactly_ one of the font it listed... even with this no go

rats

found my problem, I was passing by reference and not passing
by value... !Sigh! my brain must be leaking...  fortunately
I'am off now for a weeks hols!!


Thanks for the all help

There is a new version of message at juno""::message.exe 


This uses 12 point test in the pop up message box (thus making them
a bit smaller)



re .-1

> fortunately I'am off now for a weeks hols!!

And now I'am back !sigh!..still it was nice while it lasted

Sorry about that

its at VANITY""::

(I've moved)

How about the source?

%COPY-E-OPENIN, error opening VANITY""::SYS$SYSDEVICE:[DECNET]MESSAGE.MAR; as input
-RMS-E-FNF, file not found

Has anyone got the source to message ????


			MARTIN :-)

>Has anyone got the source to message ????


$ dir  vanity""::message.mar

Directory VANITY""::SYS$SYSDEVICE:[DECNET]

MESSAGE.MAR;1

Total of 1 file.