Sweden-Number/tools/wineconf.libs/message.tcl

59 lines
1.6 KiB
Tcl
Raw Normal View History

#!/usr/bin/wish
#############################################################################
# Visual Tcl v1.07 Project
#
#################################
# 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
}