From: [email-masked] (Mike Hoegeman)
To: [email-masked]
Date: Mon, 2 Dec 91 21:31:13 PST

Below is tar file compressed and uuencoded which implements support for
the ICCM WM_PROTOCOLS WM_DELETE for Tk

In short, it allows you to handle the 'Quit' (or whatever it's called)
menu item on the frame window produced by your window mgr. 

I will be posting a newsreader written completely in tcl/tk in a week or
so. You will probably want to have these patches to use it.

below is an example of how you do it.
# ------------------------------------------------------------------
proc are_you_sure {windowname} {
    global saveFile

    # do are you sure dialog here....
    # if it returns non zero blast the window
    if {[are_you_sure_dialog]} {
	save_whatever_we_are_doing saveFile
	destroy $windowname
    }
}
wm protocol . delete "are_you_sure"
# ------------------------------------------------------------------

I have tested these patches using 
    - olwm & olvwm on a sparc w/ openwindows 3.0 and 2.0
    - olvwm and mwm on an hp PA_RISC machine with the stock HP X server

to install...

- uudecode, uncompress and untar the file below in the tk1.3 directory

- look at patchFile to see what files will get changed if you like

- run patch <patchFile

- do some editing of the XI XL and MD makefile variables
  at the top of the Makefile.

-compile

mike hoegeman, [email-masked]
-------------------
[uudecoded file deleted]