Revision: 54184
http://brlcad.svn.sourceforge.net/brlcad/?rev=54184&view=rev
Author: bob1961
Date: 2013-01-16 17:47:39 +0000 (Wed, 16 Jan 2013)
Log Message:
-----------
More tweaks to Archer's sketch editor. Added more bindings for the creation
modes. Added hints for using key and button presses to change the mode or the
sketch canvas view.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl
Modified: brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl 2013-01-16
15:48:34 UTC (rev 54183)
+++ brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl 2013-01-16
17:47:39 UTC (rev 54184)
@@ -54,11 +54,11 @@
common mEdgeDetailHeadings {{} A B}
common mFaceDetailHeadings {{} A B C}
common mEditLabels {
- Move
- {Create Line}
- {Create Circle}
- {Create Arc}
- {Create Bezier}
+ "Move\t\tm"
+ "Create Line\tl"
+ "Create Circle\tc"
+ "Create Arc\t\ta"
+ "Create Bezier\tb"
}
common pi2 [expr {4.0 * asin( 1.0 )}]
@@ -540,6 +540,35 @@
-validatecommand {::cadwidgets::Ged::validateDouble %P}
} {}
+ itk_component add sketchHintsKeyL {
+ ::ttk::label $parent.sketchHintsKeyL \
+ -text "
+Key and Button Hints:
+a\tArc Mode
+b\tBezier Mode
+c\tCircle Mode
+l\tLine Mode
+m\tMove Mode
+Escape\tNew Contour
+BSpace\tDelete Selected
+d\tDelete Selected
+Delete\tDelete Selected" \
+ -anchor w
+ } {}
+
+ itk_component add sketchHintsBtnL {
+ ::ttk::label $parent.sketchHintsBtnL \
+ -text "
+Button-1
+\tUsed to move
+\tand create items
+Lock-Ctrl-Shift-Button-1
+\tScale View
+Lock-Shift-Button-1
+\tTranslate View" \
+ -anchor w
+ } {}
+
set row 0
grid $itk_component(sketchType) \
-row $row \
@@ -582,6 +611,16 @@
$itk_component(sketchBzE) \
-row $row \
-sticky nsew
+ incr row
+ grid $itk_component(sketchHintsKeyL) \
+ -columnspan 5 \
+ -row $row \
+ -sticky nsew
+ incr row
+ grid $itk_component(sketchHintsBtnL) \
+ -columnspan 5 \
+ -row $row \
+ -sticky nsew
grid columnconfigure $parent 1 -weight 1
grid columnconfigure $parent 2 -weight 1
@@ -1304,13 +1343,19 @@
::itcl::body SketchEditFrame::clear_canvas_bindings {} {
bind $itk_component(canvas) <a> [::itcl::code $this create_arc]
+ bind $itk_component(canvas) <A> [::itcl::code $this create_arc]
bind $itk_component(canvas) <b> [::itcl::code $this create_bezier]
+ bind $itk_component(canvas) <B> [::itcl::code $this create_bezier]
bind $itk_component(canvas) <c> [::itcl::code $this create_circle]
+ bind $itk_component(canvas) <C> [::itcl::code $this create_circle]
bind $itk_component(canvas) <l> [::itcl::code $this create_line]
+ bind $itk_component(canvas) <L> [::itcl::code $this create_line]
bind $itk_component(canvas) <m> [::itcl::code $this setup_move_arbitrary]
+ bind $itk_component(canvas) <M> [::itcl::code $this setup_move_arbitrary]
bind $itk_component(canvas) <BackSpace> [::itcl::code $this
delete_selected]
bind $itk_component(canvas) <d> [::itcl::code $this delete_selected]
+ bind $itk_component(canvas) <D> [::itcl::code $this delete_selected]
bind $itk_component(canvas) <Delete> [::itcl::code $this delete_selected]
bind $itk_component(canvas) <Lock-Control-Shift-ButtonPress-1>
[::itcl::code $this start_scale %x %y]
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Master Java SE, Java EE, Eclipse, Spring, Hibernate, JavaScript, jQuery
and much more. Keep your Java skills current with LearnJavaNow -
200+ hours of step-by-step video tutorials by Java experts.
SALE $49.99 this month only -- learn more at:
http://p.sf.net/sfu/learnmore_122612
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
