Revision: 75477
http://sourceforge.net/p/brlcad/code/75477
Author: n_reed
Date: 2020-04-20 20:41:47 +0000 (Mon, 20 Apr 2020)
Log Message:
-----------
Adjust the layout of the overlap checker's launch menu to avoid a flickering
update loop that would occur when hovering over the "Use Last File" button.
A long pathname displayed in the hint text when hovering over the button was
causing the window to resize, which would move the button out from underneath
the cursor, reverting the hint text to a shorter string, moving the button back
under the cursor, triggering the longer hint text, ad infinitum. Now the
buttons stay in place when the window auto-resizes.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/checker/menu.tcl
Modified: brlcad/trunk/src/tclscripts/checker/menu.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/checker/menu.tcl 2020-04-20 20:17:41 UTC
(rev 75476)
+++ brlcad/trunk/src/tclscripts/checker/menu.tcl 2020-04-20 20:41:47 UTC
(rev 75477)
@@ -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
