Display the importing dll in the 0xdeadbeef message.
[wine.git] / tools / wineconf.libs / message2.tcl
blobf67154fa71067541757a3d69960bc65c44a4074d
1 #!/usr/bin/wish
2 #############################################################################
3 # Visual Tcl v1.07 Project
6 #################################
7 # GLOBAL VARIABLES
9 global widget;
10 #################################
12 proc TkW:message2 {message opt1 opt2} {
13 global OK MSG_title WAIT TKW
15 set base .msg
16 if {[winfo exists .msg]} {
17 wm deiconify .msg; return
19 ###################
20 # CREATING WIDGETS
21 ###################
22 toplevel .msg -class Toplevel \
23 -background #ffffff
24 wm focusmodel .msg passive
25 wm maxsize .msg 1265 994
26 wm minsize .msg 1 1
27 wm overrideredirect .msg 0
28 wm resizable .msg 1 1
29 wm deiconify .msg
30 wm geometry .msg +100+100
31 wm title .msg $MSG_title
32 #wm iconbitmap .msg @$TKW/shared/images/setup2.xbm
33 #wm iconmask .msg @$TKW/shared/images/setupmask2.xbm
35 #creates the message widget:
36 message .msg.msg -justify center -text $message -background #dddddd -aspect 300
39 button .msg.but1 \
40 -background #dddddd \
41 -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
42 -pady 3 -text $opt1 -width 8 \
43 -command {destroy .msg; set WAIT opt1; return}
44 button .msg.but2 \
45 -background #dddddd \
46 -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
47 -pady 3 -text $opt2 -width 8\
48 -command {destroy .msg; set WAIT opt2; return}
49 ###################
50 # SETTING GEOMETRY
51 ###################
52 #set H2 [expr $H +10]
53 pack .msg.msg -padx 5 -pady 5
54 #-anchor nw -bordermode ignore
55 pack .msg.but1 -padx 5 -pady 5 -side left
56 pack .msg.but2 -padx 5 -pady 5 -fill x
57 #-x 110 -y $H2 -width 100 -height 28 -anchor nw -bordermode ignore