tools/wineconf.libs/message.tcl

#!/usr/bin/wish
#############################################################################
# Visual Tcl v1.07 Project
#
# Copyright 1999 Jean-Louis Thirot
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#

#################################
# GLOBAL VARIABLES
#
global widget; 
#################################

proc TkW:message {message} {
global OK MSG_title WAIT TKW

    set base .msg
    if {[winfo exists .msg]} {
        wm deiconify .msg; return
    }
    ###################
    # CREATING WIDGETS
    ###################
    toplevel .msg -class Toplevel \
        -background #ffffff
        #-background #4c92fe 
    wm focusmodel .msg passive
    wm maxsize .msg 1265 994
    wm minsize .msg 200 1
    wm overrideredirect .msg 0
    wm resizable .msg 1 1
    wm deiconify .msg
     wm geometry .msg +100+100
    wm title .msg $MSG_title
    #wm iconbitmap .msg @$TKW/shared/images/setup2.xbm
    #wm iconmask   .msg @$TKW/shared/images/setupmask2.xbm

#creates the message widget:
    message .msg.msg -justify center -text $message -background #dddddd -aspect 300


    button .msg.but18 \
        -background #dddddd \
        -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
        -pady 3 -text button -textvariable $OK -width 8\
	-command {
		destroy .msg
		set WAIT done 
	}   
    ###################
    # SETTING GEOMETRY
    ###################
#set H2 [expr $H +10]
    pack .msg.msg -padx 5 -pady 5  
         #-anchor nw -bordermode ignore  
    pack .msg.but18 -side bottom -padx 5 -pady 5  
        #-x 110 -y $H2 -width 100 -height 28 -anchor nw -bordermode ignore 
    #pack .msg.lab19 -width 50 -height 30 -padx 10 -pady 10
    #pack .msg.but18
}