Revision: 75484
          http://sourceforge.net/p/brlcad/code/75484
Author:   starseeker
Date:     2020-04-21 10:57:19 +0000 (Tue, 21 Apr 2020)
Log Message:
-----------
Cherrypick r75477 - overlap checker layout improvements

Modified Paths:
--------------
    brlcad/branches/RELEASE/src/tclscripts/checker/menu.tcl

Property Changed:
----------------
    brlcad/branches/RELEASE/

Index: brlcad/branches/RELEASE
===================================================================
--- brlcad/branches/RELEASE     2020-04-21 10:56:30 UTC (rev 75483)
+++ brlcad/branches/RELEASE     2020-04-21 10:57:19 UTC (rev 75484)

Property changes on: brlcad/branches/RELEASE
___________________________________________________________________
Modified: svn:mergeinfo
## -6,4 +6,4 ##
 /brlcad/branches/opencl:65867-66137
 /brlcad/branches/osg:62110-62113
 /brlcad/branches/prep-cache:68236-68933
-/brlcad/trunk:36844-37285,37571-38764,38777-38845,41559-43155,43159-43908,44241-44324,44326-44385,44710-45373,45377,45379-47342,47370-68122,68125-74976,74981,74991,75056,75325,75375,75377-75378,75387,75470-75472
\ No newline at end of property
+/brlcad/trunk:36844-37285,37571-38764,38777-38845,41559-43155,43159-43908,44241-44324,44326-44385,44710-45373,45377,45379-47342,47370-68122,68125-74976,74981,74991,75056,75325,75375,75377-75378,75387,75470-75472,75477
\ No newline at end of property
Modified: brlcad/branches/RELEASE/src/tclscripts/checker/menu.tcl
===================================================================
--- brlcad/branches/RELEASE/src/tclscripts/checker/menu.tcl     2020-04-21 
10:56:30 UTC (rev 75483)
+++ brlcad/branches/RELEASE/src/tclscripts/checker/menu.tcl     2020-04-21 
10:57:19 UTC (rev 75484)
@@ -65,15 +65,15 @@
        ttk::button $itk_component(newFileFrame).buttonRunOvFileGen \
        -text "Create New Overlaps File" -padding 8 -command [ code $this 
runOvFileTool ]
     } {}
-    itk_component add exisitingFileFrame {
-       ttk::labelframe $itk_component(buttonsFrame).exisitingFileFrame 
-padding 8 -text " Exisiting File "
+    itk_component add existingFileFrame {
+       ttk::labelframe $itk_component(buttonsFrame).existingFileFrame -padding 
8 -text " Exisiting File "
     } {}
     itk_component add buttonBrowse {
-       ttk::button $itk_component(exisitingFileFrame).buttonBrowse \
+       ttk::button $itk_component(existingFileFrame).buttonBrowse \
        -text "Browse Overlaps File" -padding 8 -command [ code $this 
browseOverlapFile ]
     } {}
     itk_component add buttonLastFile {
-       ttk::button $itk_component(exisitingFileFrame).buttonLastFile \
+       ttk::button $itk_component(existingFileFrame).buttonLastFile \
        -text "Use Last File" -padding 8 -state disabled -command [ code $this 
runCheckerTool ]
     } {}
     itk_component add hintLabel {
@@ -84,21 +84,22 @@
 
     eval itk_initialize $args
 
-    pack $itk_component(buttonsFrame)
+    grid $itk_component(buttonsFrame) -sticky ew
+    grid $itk_component(hintLabel)
+    grid columnconfigure $itk_interior 0 -weight 1
 
-    pack $itk_component(newFileFrame) -side left -padx { 8 4 }
-    pack $itk_component(buttonRunOvFileGen)
+    grid $itk_component(newFileFrame) $itk_component(existingFileFrame) -padx 4
+
+    grid $itk_component(buttonRunOvFileGen)
+
+    grid $itk_component(buttonLastFile) $itk_component(buttonBrowse) -padx 2
+
     bind $itk_component(buttonRunOvFileGen) <Enter> [code $this handleHintText 
"Creates a new overlaps file with specified objects and runs checker tool on 
the created overlaps file"]
     bind $itk_component(buttonRunOvFileGen) <Leave> [code $this handleHintText 
""]
 
-    pack $itk_component(exisitingFileFrame) -side right -padx { 4 8 }
-    pack $itk_component(buttonLastFile) -side left -padx { 0 8 }
-
-    pack $itk_component(buttonBrowse) -side right
     bind $itk_component(buttonBrowse) <Enter> [code $this handleHintText 
"Select an overlaps file and run checker tool\n"]
     bind $itk_component(buttonBrowse) <Leave> [code $this handleHintText ""]
 
-    pack $itk_component(hintLabel) -pady { 0 4 }
     #load default hint text
     $this handleHintText ""
 

This was sent by the SourceForge.net collaborative development platform, the 
world's largest Open Source development site.



_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits

Reply via email to