#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"

source [ file join $env(TCLTOOLS_HOME) TclToolInits.tcl ]
TclToolInits GUI UTILS GUIUTILS

# THIS is the promote window information

set MiP   [lindex $argv 0]
set PorT  [lindex $argv 1]
set pList [lindex $argv 2]
set Hname [lindex $argv 3]
set Dname [lindex $argv 4]

# READ the user GUI preferences

GUIprefsRead

# SET up the promote window

set bW .proPoPuP
if [winfo exists $bW] { destroy $bW }

GUIFrame $bW -1 pack|top||both|true
wm deiconify .
set W $bW.msg
GUIboxText  $W 45 6 pack|top||both|true

$W configure -foreground #000000

GUItextWrite $W "UDF PROMOTE  -  SERVER DOWN WARNING\n\n" "" [list "" "" bold]
GUItextWrite $W "SERVER AT: $MiP (PORT $PorT)\n\n"
GUItextWrite $W "IS NOT REPSONDING\n\n"

raise $W
update

after 10000
destroy .
