deny multiple instances of app?

[Brian Genisio]

I am using wish82 for windows for my tcl/tk script. How do I make it so
only one instance of the script can be running at a time? Currently, I
can run the script, and have lots of windows pop up. I do not want
this, and wish to make it so it just comes up to the already started
app.

Any ideas?

Brian

[Michael A. Cleverly]

http://mini.net/tcl/1558.html demonstrates one possible approach.

[Cameron Laird]

In article <3C1F7DCC...@OasisAdvancedEngineering.com>,

.
.
.
It's a subtler question than might first appear. Does
<URL: http://mini.net/tcl/singleton > give you what you
want?
--

Cameron Laird <Cam...@Lairds.com>
Business: http://www.Phaseit.net
Personal: http://starbase.neosoft.com/~claird/home.html

[Kevin Kenny]

Use [dde] to check if the app is already running, and send it a message
to pop itself up if it is.

The following script is a basic skeleton:

package require dde

# Establish the DDE topic

set topicName MyTopic

# See if a service with our topic is already running. If so,
# delegate to it.

set otherServices [dde services TclEval $topicName]
if { [llength $otherServices] > 0 } {
dde execute TclEval $topicName {
wm deiconify .
raise .
bell
}
exit
}

# Launch the service

dde servername $topicName
grid [label .l -text [list $topicName is running]]
grid [button .q -text Quit -command exit]

--
73 de ke9tv/2, Kevin KENNY GE Corporate R&D, Niskayuna, New York, USA

[Brian Genisio]

Yup :) thhat did it... thanks
Brian