From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 32321 invoked by alias); 26 Feb 2002 20:30:49 -0000 Mailing-List: contact sourcenav-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: sourcenav-owner@sources.redhat.com Received: (qmail 32263 invoked from network); 26 Feb 2002 20:30:48 -0000 Received: from unknown (HELO shell4.bayarea.net) (209.128.82.1) by sources.redhat.com with SMTP; 26 Feb 2002 20:30:48 -0000 Received: from modrick (209-128-79-218.BAYAREA.NET [209.128.79.218]) by shell4.bayarea.net (8.9.3/8.9.3) with SMTP id MAA23786 for ; Tue, 26 Feb 2002 12:30:47 -0800 (envelope-from supermo@bayarea.net) Date: Tue, 26 Feb 2002 12:51:00 -0000 From: Mo DeJong To: sourcenav Subject: [Patch] Fix for parser tab in prefs dialog Message-Id: <20020226122933.0c5398fe.supermo@bayarea.net> Organization: House of Mirth X-Mailer: Sylpheed version 0.4.99cvs6 (GTK+ 1.2.7; i686-pc-linux-gnu) Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit X-SW-Source: 2002-q1/txt/msg00135.txt.bz2 The ChangeLog entry says it all. cheers Mo 2002-02-26 Mo DeJong * gui/preferences.tcl (AddParser): Use a grid layout for the "Language Extensions" entries in the Parser tab. The previous implementation would grow the left entry at the expense of the right entry. One could make the right entry vanish by typing a lot of text into the left entry. Index: gui/preferences.tcl =================================================================== RCS file: /cvs/sourcenav/src/snavigator/gui/preferences.tcl,v retrieving revision 1.2 diff -u -r1.2 preferences.tcl --- preferences.tcl 2002/02/22 03:31:49 1.2 +++ preferences.tcl 2002/02/26 20:26:53 @@ -910,17 +910,15 @@ ${ext} config -background $sn_options(def,layout-bg) set win [${Parser}.ext subwidget frame] pack ${ext} -fill x -side top -anchor c - foreach type [lsort -dictionary ${Avail_Parsers}] { - set fr ${win}.${type} - set ext ${fr}.edit - set externaled ${fr}.external - #file extensitions for there types - pack [frame ${fr}] -side top -fill x + set row 0 + foreach type [lsort -dictionary ${Avail_Parsers}] { + set ext ${win}.edit${row} + set externaled ${win}.external${row} Entry& ${ext} -width -1 -labelwidth 10 -label ${type}\ -textvariable opt_Parser_Info(${type},SUF) - pack ${ext} -side left -fill x -expand y + grid ${ext} -row $row -column 0 -sticky ew #external editors LabelEntryButton& ${externaled} -text [get_indep String\ @@ -929,8 +927,11 @@ -buttonballoon [get_indep String ChooseINFO]\ -extensions $sn_options(executable_ext)\ -defaultextension $sn_options(executable_defaultext) - pack ${externaled} -side left + grid ${externaled} -row $row -column 1 + + incr row } + grid columnconfigure ${win} 0 -weight 1 #Macro files set macfr [tixLabelFrame ${Parser}.macros -label [get_indep String\