diff options
| author | hobbs <hobbs> | 2004-09-06 23:21:47 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2004-09-06 23:21:47 (GMT) |
| commit | 14868d8f75546b594ffa0b8a90f8a3239843888f (patch) | |
| tree | 558a83c8cc74d9c742fc7ce04d918337eb76e4d2 /library/tkfbox.tcl | |
| parent | 7306e88aac749c19d7825a1f3e20484af137c584 (diff) | |
| download | tk-14868d8f75546b594ffa0b8a90f8a3239843888f.zip tk-14868d8f75546b594ffa0b8a90f8a3239843888f.tar.gz tk-14868d8f75546b594ffa0b8a90f8a3239843888f.tar.bz2 | |
* library/tkfbox.tcl (::tk::dialog::file::Create): use label
instead of button for "File of type", as it properly handles
-state disabled now.
Diffstat (limited to 'library/tkfbox.tcl')
| -rw-r--r-- | library/tkfbox.tcl | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl index 3d57daa..bedb32f 100644 --- a/library/tkfbox.tcl +++ b/library/tkfbox.tcl @@ -11,7 +11,7 @@ # files by clicking on the file icons or by entering a filename # in the "Filename:" entry. # -# RCS: @(#) $Id: tkfbox.tcl,v 1.38.2.5 2004/07/22 22:24:31 hobbs Exp $ +# RCS: @(#) $Id: tkfbox.tcl,v 1.38.2.6 2004/09/06 23:21:48 hobbs Exp $ # # Copyright (c) 1994-1998 Sun Microsystems, Inc. # @@ -1055,20 +1055,8 @@ static char updir_bits[] = { # Make the file types bits only if this is a File Dialog if { [string equal $class TkFDialog] } { - # The "File of types:" label needs to be grayed-out when - # -filetypes are not specified. The label widget does not support - # grayed-out text on monochrome displays. Therefore, we have to - # use a button widget to emulate a label widget (by setting its - # bindtags) - - set data(typeMenuLab) [::tk::AmpWidget button $f2.lab2 \ - -text $fTypeCaption -anchor e -bd [$f2.lab cget -bd] \ - -highlightthickness [$f2.lab cget -highlightthickness] \ - -relief [$f2.lab cget -relief] \ - -padx [$f2.lab cget -padx] \ - -pady [$f2.lab cget -pady]] - bindtags $data(typeMenuLab) [list $data(typeMenuLab) Label \ - [winfo toplevel $data(typeMenuLab)] all] + set data(typeMenuLab) [::tk::AmpWidget label $f2.lab2 \ + -text $fTypeCaption -anchor e -pady [$f2.lab cget -pady]] set data(typeMenuBtn) [menubutton $f2.menu -indicatoron 1 \ -menu $f2.menu.m] set data(typeMenu) [menu $data(typeMenuBtn).m -tearoff 0] |