# STOPSERVICE.TCL - this routine stops any of the Tornado services that might# be running during the installation of this patch.  i.e. Tornado Registry## Copyright 2001 Wind River Systems, Inc## modification history# --------------------# 01b,02aug01,rjl stops any Tornado services running during installation of#                 this patch# 0ba,02aug01,rjl written################################################################################################################################################################ stopService - stops any Tornado services that are running## SYNOPSIS# .tS# stopService# .tE## PARAMETERS: N/A## RETURN :N/A## ERRORS: N/A################################################################################proc stopService {} {       set torReg "Tornado Registry"        global env       load $env(WIND_BASE)/SETUP/X86/WIN32/SETUPTCL[string toupper [info sharedlibextension]]       if {[catch {setupServiceStop $torReg} error]} {	   puts "Your Tornado Registry is running, please stop this service."#	messageBox "done1"	}#	messageBox "done"}################################################################################# STOPSERVICE.TCL - Initialization code## This code is executed when the file is sourced.#stopService