tools/wineconf.libs/message2.tcl

   1 #!/usr/bin/wish
   2 #############################################################################
   3 # Visual Tcl v1.07 Project
   4 #
   5 # Copyright 1999 Jean-Louis Thirot
   6 #
   7 # This library is free software; you can redistribute it and/or
   8 # modify it under the terms of the GNU Lesser General Public
   9 # License as published by the Free Software Foundation; either
  10 # version 2.1 of the License, or (at your option) any later version.
  11 #
  12 # This library is distributed in the hope that it will be useful,
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 # Lesser General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU Lesser General Public
  18 # License along with this library; if not, write to the Free Software
  19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20 #
  21
  22 #################################
  23 # GLOBAL VARIABLES
  24 #
  25 global widget;
  26 #################################
  27
  28 proc TkW:message2 {message opt1 opt2} {
  29 global OK MSG_title WAIT TKW
  30
  31     set base .msg
  32     if {[winfo exists .msg]} {
  33         wm deiconify .msg; return
  34     }
  35     ###################
  36     # CREATING WIDGETS
  37     ###################
  38     toplevel .msg -class Toplevel \
  39         -background #ffffff
  40     wm focusmodel .msg passive
  41     wm maxsize .msg 1265 994
  42     wm minsize .msg 1 1
  43     wm overrideredirect .msg 0
  44     wm resizable .msg 1 1
  45     wm deiconify .msg
  46      wm geometry .msg +100+100
  47     wm title .msg $MSG_title
  48     #wm iconbitmap .msg @$TKW/shared/images/setup2.xbm
  49     #wm iconmask   .msg @$TKW/shared/images/setupmask2.xbm
  50
  51 #creates the message widget:
  52     message .msg.msg -justify center -text $message -background #dddddd -aspect 300
  53
  54
  55     button .msg.but1 \
  56         -background #dddddd \
  57         -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
  58         -pady 3 -text $opt1 -width 8 \
  59         -command {destroy .msg; set WAIT opt1; return}
  60     button .msg.but2 \
  61         -background #dddddd \
  62         -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
  63         -pady 3 -text $opt2  -width 8\
  64         -command {destroy .msg; set WAIT opt2; return}
  65     ###################
  66     # SETTING GEOMETRY
  67     ###################
  68 #set H2 [expr $H +10]
  69     pack .msg.msg -padx 5 -pady 5
  70          #-anchor nw -bordermode ignore
  71     pack .msg.but1 -padx 5 -pady 5 -side left
  72     pack .msg.but2 -padx 5 -pady 5 -fill x
  73         #-x 110 -y $H2 -width 100 -height 28 -anchor nw -bordermode ignore
  74 }