tools/wineconf.libs/message.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:message {message} {
  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         #-background #4c92fe
  25     wm focusmodel .msg passive
  26     wm maxsize .msg 1265 994
  27     wm minsize .msg 200 1
  28     wm overrideredirect .msg 0
  29     wm resizable .msg 1 1
  30     wm deiconify .msg
  31      wm geometry .msg +100+100
  32     wm title .msg $MSG_title
  33     #wm iconbitmap .msg @$TKW/shared/images/setup2.xbm
  34     #wm iconmask   .msg @$TKW/shared/images/setupmask2.xbm
  35
  36 #creates the message widget:
  37     message .msg.msg -justify center -text $message -background #dddddd -aspect 300
  38
  39
  40     button .msg.but18 \
  41         -background #dddddd \
  42         -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
  43         -pady 3 -text button -textvariable $OK -width 8\
  44         -command {
  45                 destroy .msg
  46                 set WAIT done
  47         }
  48     ###################
  49     # SETTING GEOMETRY
  50     ###################
  51 #set H2 [expr $H +10]
  52     pack .msg.msg -padx 5 -pady 5
  53          #-anchor nw -bordermode ignore
  54     pack .msg.but18 -side bottom -padx 5 -pady 5
  55         #-x 110 -y $H2 -width 100 -height 28 -anchor nw -bordermode ignore
  56     #pack .msg.lab19 -width 50 -height 30 -padx 10 -pady 10
  57     #pack .msg.but18
  58 }