Revision: 56453
http://sourceforge.net/p/brlcad/code/56453
Author: n_reed
Date: 2013-08-01 21:13:32 +0000 (Thu, 01 Aug 2013)
Log Message:
-----------
add empty brep editing frame to archer
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/Archer.tcl
brlcad/trunk/src/tclscripts/archer/CMakeLists.txt
Added Paths:
-----------
brlcad/trunk/src/tclscripts/archer/BrepEditFrame.tcl
Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2013-08-01 21:01:10 UTC
(rev 56452)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2013-08-01 21:13:32 UTC
(rev 56453)
@@ -315,6 +315,7 @@
method buildArb7EditView {}
method buildArb8EditView {}
method buildBotEditView {}
+ method buildBrepEditView {}
method buildCombEditView {}
method buildDbAttrView {}
method buildEhyEditView {}
@@ -6206,6 +6207,13 @@
return $itk_component(botView)
}
+ "brep" {
+ if {![info exists itk_component(brepView)]} {
+ buildBrepEditView
+ }
+
+ return $itk_component(brepView)
+ }
"comb" {
if {![info exists itk_component(combView)]} {
buildCombEditView
@@ -6707,6 +6715,13 @@
} {}
}
+::itcl::body Archer::buildBrepEditView {} {
+ set parent $itk_component(objEditView)
+ itk_component add brepView {
+ BrepEditFrame $parent.brepview \
+ -units "mm"
+ } {}
+}
::itcl::body Archer::buildCombEditView {} {
set parent $itk_component(objEditView)
Added: brlcad/trunk/src/tclscripts/archer/BrepEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/BrepEditFrame.tcl
(rev 0)
+++ brlcad/trunk/src/tclscripts/archer/BrepEditFrame.tcl 2013-08-01
21:13:32 UTC (rev 56453)
@@ -0,0 +1,83 @@
+# B R E P E D I T F R A M E . T C L
+# BRL-CAD
+#
+# Copyright (c) 2013 United States Government as represented by
+# the U.S. Army Research Laboratory.
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public License
+# version 2.1 as published by the Free Software Foundation.
+#
+# This library is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this file; see the file named COPYING for more
+# information.
+#
+###
+
+::itcl::class BrepEditFrame {
+ inherit GeometryEditFrame
+
+ constructor {args} {}
+ destructor {}
+
+ public {}
+
+ protected {
+ # GeometryEditFrame overrides
+ method buildUpperPanel
+ method buildLowerPanel
+ method initEditState {}
+ }
+
+ private {}
+}
+
+
+# ------------------------------------------------------------
+# CONSTRUCTOR
+# ------------------------------------------------------------
+
+::itcl::body BrepEditFrame::constructor {args} {
+ eval itk_initialize $args
+}
+
+
+# ------------------------------------------------------------
+# PUBLIC METHODS
+# ------------------------------------------------------------
+
+
+
+# ------------------------------------------------------------
+# PROTECTED METHODS
+# ------------------------------------------------------------
+
+::itcl::body BrepEditFrame::buildUpperPanel {} {
+}
+
+::itcl::body BrepEditFrame::buildLowerPanel {} {
+ set parent [$this childsite lower]
+
+ itk_component add editCV {
+ ::ttk::checkbutton $parent.editCV \
+ -text "Edit Control Vertices"
+ } {}
+}
+
+::itcl::body BrepEditFrame::initEditState {} {
+ GeometryEditFrame::initEditState
+}
+
+# Local Variables:
+# mode: Tcl
+# tab-width: 8
+# c-basic-offset: 4
+# tcl-indent-level: 4
+# indent-tabs-mode: t
+# End:
+# ex: shiftwidth=4 tabstop=8
Property changes on: brlcad/trunk/src/tclscripts/archer/BrepEditFrame.tcl
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+text/plain
\ No newline at end of property
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: brlcad/trunk/src/tclscripts/archer/CMakeLists.txt
===================================================================
--- brlcad/trunk/src/tclscripts/archer/CMakeLists.txt 2013-08-01 21:01:10 UTC
(rev 56452)
+++ brlcad/trunk/src/tclscripts/archer/CMakeLists.txt 2013-08-01 21:13:32 UTC
(rev 56453)
@@ -11,6 +11,7 @@
AttrGroupsDisplayUtility.tcl
BotEditFrame.tcl
BotUtility.tcl
+ BrepEditFrame.tcl
CombEditFrame.tcl
DataUtils.tcl
EhyEditFrame.tcl
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Get your SQL database under version control now!
Version control is standard for application code, but databases havent
caught up. So what steps can you take to put your SQL databases under
version control? Why should you start doing it? Read more to find out.
http://pubads.g.doubleclick.net/gampad/clk?id=49501711&iu=/4140/ostg.clktrk
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
