git.oblomov.eu Git - wine/blob - tools/wineconf.libs/getfilename.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:GetFileName {message opt1 opt2 searchtype} {
  29 global OK MSG_title WAITfilename TKW GetFileName BROWSE WAITbrowse
  30
  31         global SearchType
  32         set SearchType $searchtype
  33
  34     set base .getfilename
  35     if {[winfo exists .getfilename]} {
  36         wm deiconify .getfilename; return
  37     }
  38     ###################
  39     # CREATING WIDGETS
  40     ###################
  41     toplevel .getfilename -class Toplevel \
  42         -background #ffffff
  43     wm focusmodel .getfilename passive
  44     wm maxsize .getfilename 1265 994
  45     wm minsize .getfilename 1 1
  46     wm overrideredirect .getfilename 0
  47     wm resizable .getfilename 1 1
  48     wm deiconify .getfilename
  49      wm geometry .getfilename +100+100
  50     wm title .getfilename $MSG_title
  51     #wm iconbitmap .getfilename @$TKW/shared/images/setup2.xbm
  52     #wm iconmask   .getfilename @$TKW/shared/images/setupmask2.xbm
  53
  54 #creates the message widget:
  55     message .getfilename.msg -justify center -text $message \
  56         -background #dddddd -aspect 300
  57
  58 # Creates the entry box:
  59         global GetFileName
  60         entry .getfilename.ent -textvar GetFileName -relief sunken -width 50
  61
  62     button .getfilename.but1 \
  63         -background #dddddd \
  64         -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
  65         -pady 3 -text $opt1 -width 8 -state disabled \
  66         -command {
  67                 destroy .getfilename
  68                 set WAITfilename opt1
  69                 return
  70         }
  71     button .getfilename.but2 \
  72         -background #dddddd \
  73         -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
  74         -pady 3 -text $opt2  -width 8\
  75         -command {destroy .getfilename; set WAITfilename opt2; return}
  76     button .getfilename.but3 \
  77         -background #dddddd \
  78         -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
  79         -pady 3 -text $BROWSE  -width 8\
  80         -command {TkW:dirbrowse * * $SearchType
  81                 set WAITbrowse 1
  82                  while {$WAITbrowse == 1} {update}
  83                 if {$WAITbrowse == 0}   {
  84                    if {$SearchType == "File"} {
  85                          set GetFileName $SelectFile
  86                    } else {
  87                          set GetFileName $SelectFolder
  88                    }
  89                 }
  90               update
  91         }
  92     ###################
  93     ###################
  94     # SETTING GEOMETRY
  95     ###################
  96 #set H2 [expr $H +10]
  97     pack .getfilename.msg -padx 5 -pady 5
  98          #-anchor nw -bordermode ignore
  99     pack .getfilename.ent -padx 5 -pady 5
 100     pack .getfilename.but1 -padx 30 -pady 10 -side left
 101     pack .getfilename.but3 -padx 0 -pady 10 -side left
 102     pack .getfilename.but2 -padx 30 -pady 10 -side left
 103         #-x 110 -y $H2 -width 100 -height 28 -anchor nw -bordermode ignore
 104
 105         #bind .getfilename.ent <KeyPress-Return> {.getfilename.but1 invoke}
 106
 107     while {[winfo exists .getfilename]} {
 108         if {[file exists $GetFileName]} {
 109                 .getfilename.but1 configure -state normal
 110         } else {
 111                 .getfilename.but1 configure -state disabled
 112         }
 113         update
 114     }
 115 }