From 8d402e473c0ff897f3009480215da12c428bde42 Mon Sep 17 00:00:00 2001 From: ericm Date: Sat, 4 Mar 2000 01:44:16 +0000 Subject: fixed gridding problem --- library/choosedir.tcl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/library/choosedir.tcl b/library/choosedir.tcl index 659870c..879af23 100644 --- a/library/choosedir.tcl +++ b/library/choosedir.tcl @@ -6,7 +6,7 @@ # Copyright (c) 1998-2000 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: choosedir.tcl,v 1.4 2000/03/02 03:02:13 ericm Exp $ +# RCS: @(#) $Id: choosedir.tcl,v 1.5 2000/03/04 01:44:16 ericm Exp $ # Make sure the tk::dialog namespace, in which all dialogs should live, exists namespace eval ::tk::dialog {} @@ -112,8 +112,9 @@ proc ::tk::dialog::chooseDir::tkChooseDirectory { args } { grid configure $lbl -sticky w grid configure $ent -sticky ew grid configure $frm -sticky nsew - grid columnconfigure . 0 -weight 1 - grid columnconfigure . 1 -weight 1 + grid columnconfigure $w 0 -weight 1 + grid columnconfigure $w 1 -weight 1 + grid rowconfigure $w 2 -weight 1 $ent insert end $opts(-initialdir) -- cgit v0.12