[brlcad-commits] SF.net SVN: brlcad:[53005] brlcad/trunk/src/tclscripts/archer/BotEditFrame. tcl

[<bo...@us...>]

Revision: 53005
          http://brlcad.svn.sourceforge.net/brlcad/?rev=53005&view=rev
Author:   bob1961
Date:     2012-10-12 18:43:49 +0000 (Fri, 12 Oct 2012)
Log Message:
-----------
When a table row is selected in the BOT edit panel, make sure the user can see it.

Modified Paths:
--------------
    brlcad/trunk/src/tclscripts/archer/BotEditFrame.tcl

Modified: brlcad/trunk/src/tclscripts/archer/BotEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/BotEditFrame.tcl	2012-10-12 16:12:58 UTC (rev 53004)
+++ brlcad/trunk/src/tclscripts/archer/BotEditFrame.tcl	2012-10-12 18:43:49 UTC (rev 53005)
@@ -556,6 +556,7 @@
     incr _face
     set mCurrentBotFace $_face
     $itk_component(faceTab) selectSingleRow $_face
+    $itk_component(faceTab) see "$_face,0"
 }
 
 
@@ -563,6 +564,7 @@
     incr _face
     set mCurrentBotFace $_face
     $itk_component(faceTab) selectSingleRow $_face
+    $itk_component(faceTab) see "$_face,0"
 }
 
 
@@ -570,6 +572,7 @@
     incr _face
     set mCurrentBotFace $_face
     $itk_component(faceTab) selectSingleRow $_face
+    $itk_component(faceTab) see "$_face,0"
     $itk_option(-mged) bot_face_split $itk_option(-geometryObjectPath) [expr {$mCurrentBotFace - 1}]
     $::ArcherCore::application setSave
 }
@@ -579,6 +582,7 @@
     incr _pindex
     set mCurrentBotPoint $_pindex
     $itk_component(vertTab) selectSingleRow $_pindex
+    $itk_component(vertTab) see "$_pindex,0"
 }
 
 

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