Return-Path: mh%awds@WLV.IMSD.CONTEL.COM Received: from sprite.Berkeley.EDU (allspice.Berkeley.EDU) by barkley.Berkeley.EDU (4.1/1.42) id AA00291; Wed, 4 Dec 91 07:09:43 PST Received: from WLV.IMSD.CONTEL.COM by sprite.Berkeley.EDU (5.59/1.29) id AA200268; Mon, 2 Dec 91 21:36:09 PST Received: from AWDS27.IMSD.CONTEL.COM by WLV.IMSD.CONTEL.COM (5.65/1.25) id AA26108; Mon, 2 Dec 91 21:34:18 -0800 Received: by awds27.imsd.contel.com (4.1/SMI-4.1) id AA25681; Mon, 2 Dec 91 21:31:13 PST Date: Mon, 2 Dec 91 21:31:13 PST From: mh%awds@WLV.IMSD.CONTEL.COM (Mike Hoegeman) Message-Id: <9112030531.AA25681@awds27.imsd.contel.com> To: tcl@sprite.Berkeley.EDU 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