[brlcad-commits] SF.net SVN: brlcad:[70086] brlcad/trunk/src/tclscripts/checker/check.tcl

[<n_...@us...>]

Revision: 70086
          http://sourceforge.net/p/brlcad/code/70086
Author:   n_reed
Date:     2017-08-17 12:29:00 +0000 (Thu, 17 Aug 2017)
Log Message:
-----------
home/end should calculate list endpoints each time

Modified Paths:
--------------
    brlcad/trunk/src/tclscripts/checker/check.tcl

Modified: brlcad/trunk/src/tclscripts/checker/check.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/checker/check.tcl	2017-08-17 12:13:32 UTC (rev 70085)
+++ brlcad/trunk/src/tclscripts/checker/check.tcl	2017-08-17 12:29:00 UTC (rev 70086)
@@ -58,6 +58,9 @@
 	method registerDrawCallbacks { left_callback right_callback } {}
 	method registerEraseCallback { callback } {}
 	method registerOverlapCallback { callback } {}
+
+	method handleHomeKey {} {}
+	method handleEndKey {} {}
     }
 
     private {
@@ -497,8 +500,8 @@
     }
 
     # add key bindings
-    bind $_ck <Home> [code $_ck see [lindex [$_ck children {}] 0]]
-    bind $_ck <End> [code $_ck see [lindex [$_ck children {}] end]]
+    bind $_ck <Home> [code $this handleHomeKey]
+    bind $_ck <End> [code $this handleEndKey]
 }
 
 
@@ -968,7 +971,15 @@
     set _overlapCallback $callback
 }
 
+body GeometryChecker::handleHomeKey {} {
+    $_ck see [lindex [$_ck children {}] 0]
+}
 
+body GeometryChecker::handleEndKey {} {
+    $_ck see [lindex [$_ck children {}] end]
+}
+
+
 ##########
 # end public methods
 ##########

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