git.oblomov.eu Git - wine/blob - tools/wineconf.libs/message2.tcl

   1 #!/usr/bin/wish
   2 #############################################################################
   3 # Visual Tcl v1.07 Project
   4 #
   5
   6 #################################
   7 # GLOBAL VARIABLES
   8 #
   9 global widget;
  10 #################################
  11
  12 proc TkW:message2 {message opt1 opt2} {
  13 global OK MSG_title WAIT TKW
  14
  15     set base .msg
  16     if {[winfo exists .msg]} {
  17         wm deiconify .msg; return
  18     }
  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
  34
  35 #creates the message widget:
  36     message .msg.msg -justify center -text $message -background #dddddd -aspect 300
  37
  38
  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
  58 }