wm title . {Disk Check}
wm iconname . {diskcheck}
wm geometry . 225x65+500+100
#   
# Need some version control data and also like to make it bigger 
#
frame .top 
frame .bottom

if {[ file isfile "E:\donot.remove" ]} {
   set messagetext " The external disk has been turned on! "
   set buttontext "  OK  "
   image create photo infopic -file [file join $tk_library images info.gif]
} else {
   # what happend if I issue a destroy . command here, so there is null display
   set messagetext " Please turn on the external disk! "
   set buttontext " Done "
   image create photo infopic -file [file join $tk_library images warning.gif]
}

label .top.icon  -image infopic
frame .top.f -width 50
label .top.f.mess -text $messagetext

pack .top.f.mess -side top -fill x
pack  .top.icon .top.f -side left

button .bottom.dismiss -text $buttontext -command "exit"
pack   .bottom.dismiss

pack   .top .bottom

proc exit {} {
    destroy .
}