[brlcad-commits] SF.net SVN: brlcad:[50196] brlcad/trunk/src/tclscripts/lib/Ged.tcl

[bob1961]

Revision: 50196
          http://brlcad.svn.sourceforge.net/brlcad/?rev=50196&view=rev
Author:   bob1961
Date:     2012-04-20 17:26:47 +0000 (Fri, 20 Apr 2012)
Log Message:
-----------
Fleshed out begin_data_poly_###.

Modified Paths:
--------------
    brlcad/trunk/src/tclscripts/lib/Ged.tcl

Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Ged.tcl     2012-04-20 16:52:00 UTC (rev 
50195)
+++ brlcad/trunk/src/tclscripts/lib/Ged.tcl     2012-04-20 17:26:47 UTC (rev 
50196)
@@ -2994,17 +2994,23 @@
 
 
 ::itcl::body cadwidgets::Ged::begin_data_poly_circ {} {
-    # Nothing for now
+    foreach callback $mBeginDataPolygonCallbacks {
+       catch {$callback}
+    }
 }
 
 
 ::itcl::body cadwidgets::Ged::begin_data_poly_cont {} {
-    # Nothing for now
+    foreach callback $mBeginDataPolygonCallbacks {
+       catch {$callback}
+    }
 }
 
 
 ::itcl::body cadwidgets::Ged::begin_data_poly_ell {} {
-    # Nothing for now
+    foreach callback $mBeginDataPolygonCallbacks {
+       catch {$callback}
+    }
 }
 
 
@@ -3634,7 +3640,7 @@
     measure_line_erase
 
     foreach dm {ur ul ll lr} {
-       bind $itk_component($dm) <$_button> "[::itcl::code $this 
begin_data_poly_circ $dm]; $mGed poly_circ_mode $itk_component($dm) %x %y; 
focus %W; break"
+       bind $itk_component($dm) <$_button> "[::itcl::code $this 
begin_data_poly_circ]; $mGed poly_circ_mode $itk_component($dm) %x %y; focus 
%W; break"
        bind $itk_component($dm) <ButtonRelease-$_button> "[::itcl::code $this 
end_data_poly_circ $dm]; break"
     }
 }
@@ -3644,7 +3650,7 @@
     measure_line_erase
 
     foreach dm {ur ul ll lr} {
-       bind $itk_component($dm) <$_button> "[::itcl::code $this 
begin_data_poly_cont $dm]; $mGed poly_cont_build $itk_component($dm) %x %y; 
focus %W; break"
+       bind $itk_component($dm) <$_button> "[::itcl::code $this 
begin_data_poly_cont]; $mGed poly_cont_build $itk_component($dm) %x %y; focus 
%W; break"
        bind $itk_component($dm) <Shift-$_button> "[::itcl::code $this 
end_data_poly_cont $dm]; break"
        bind $itk_component($dm) <ButtonRelease> ""
        bind $itk_component($dm) <ButtonRelease-$_button> ""
@@ -3656,7 +3662,7 @@
     measure_line_erase
 
     foreach dm {ur ul ll lr} {
-       bind $itk_component($dm) <$_button> "[::itcl::code $this 
begin_data_poly_ell $dm]; $mGed poly_ell_mode $itk_component($dm) %x %y; focus 
%W; break"
+       bind $itk_component($dm) <$_button> "[::itcl::code $this 
begin_data_poly_ell]; $mGed poly_ell_mode $itk_component($dm) %x %y; focus %W; 
break"
        bind $itk_component($dm) <ButtonRelease-$_button> "[::itcl::code $this 
end_data_poly_ell $dm]; break"
     }
 }

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


------------------------------------------------------------------------------
For Developers, A Lot Can Happen In A Second.
Boundary is the first to Know...and Tell You.
Monitor Your Applications in Ultra-Fine Resolution. Try it FREE!
http://p.sf.net/sfu/Boundary-d2dvs2
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits